Apple ii Battery Charger User Manual


 
FADE: A9 00 457 LDA #ACC/256
FAE0: 85 41 458 STA A3H
FAE2: A2 FB 459 LDX #$FB
FAE4: A9 A0 460 RDSP1 LDA #$A0
FAE6: 20 ED FD 461 JSR COUT
FAE9: BD 1E FA 462 LDA RTBL-$FB,X
FAEC: 20 ED FD 463 JSR COUT
FAEF: A9 BD 464 LDA #$BD
FAF1: 20 ED FD 465 JSR COUT
FAF4: B5 4A 466 LDA ACC+5,X
FAF6: 20 DA FD 467 JSR PRBYTE
FAF9: E8 468 INX
FAFA: 30 E8 469 BMI RDSP1
FAFC: 60 470 RTS
FAFD: 18 471 BRANCH CLC ;BRANCH TAKEN,
FAFE: A0 01 472 LDY #$01 ; ADD LEN+2 TO PC
FB00: B1 3A 473 LDA (PCL),Y
FB02: 20 56 F9 474 JSR PCADJ3
FB05: 85 3A 475 STA PCL
FB07: 98 476 TYA
FB08: 38 477 SEC
FB09: B0 A2 478 BCS PCINC2
FB0B: 20 4A FF 479 NBRNCH JSR SAVE ;NORMAL RETURN AFTER
FB0E: 38 480 SEC ; XEQ USER OF
FB0F: B0 9E 481 BCS PCINC3 ;GO UPDATE PC
FB11: EA 482 INITBL NOP
FB12: EA 483 NOP ;DUMMY FILL FOR
FB13: 4C 0B FB 484 JMP NBRNCH ; XEQ AREA
FB16: 4C FD FA 485 JMP BRANCH
FB19: C1 486 RTBL DFB $C1
FB1A: D8 487 DFB $D8
FB1B: D9 488 DFB $D9
FB1C: D0 489 DFB $D0
FB1D: D3 490 DFB $D3
FB1E: AD 70 C0 491 PREAD LDA PTRIG ;TRIGGER PADDLES
FB21: A0 00 492 LDY #$00 ;INIT COUNT
FB23: EA 493 NOP ;COMPENSATE FOR 1ST COUNT
FB24: EA 494 NOP
FB25: BD 64 C0 495 PREAD2 LDA PADDL0,X ;COUNT Y-REG EVERY
FB28: 10 04 496 BPL RTS2D ; 12 USEC
FB2A: C8 497 INY
FB2B: D0 F8 498 BNE PREAD2 ; EXIT AT 255 MAX
FB2D: 88 499 DEY
FB2E: 60 500 RTS2D RTS
FB2F: A9 00 501 INIT LDA #$00 ;CLR STATUS FOR DEBUG
FB31: 85 48 502 STA STATUS ; SOFTWARE
FB33: AD 56 C0 503 LDA LORES
FB36: AD 54 C0 504 LDA LOWSCR ;INIT VIDEO MODE
FB39: AD 51 C0 505 SETTXT LDA TXTSET ;SET FOR TEXT MODE
FB3C: A9 00 506 LDA #$00 ; FULL SCREEN WINDOW
FB3E: F0 0B 507 BEQ SETWND
FB40: AD 50 C0 508 SETGR LDA TXTCLR ;SET FOR GRAPHICS MODE
FB43: AD 53 C0 509 LDA MIXSET ; LOWER 4 LINES AS
FB46: 20 36 F8 510 JSR CLRTOP ; TEXT WINDOW
FB49: A9 14 511 LDA #$14
FB4B: 85 22 512 SETWND STA WNDTOP ;SET FOR 40 COL WINDOW
FB4D: A9 00 513 LDA #$00 ; TOP IN A-REG,
FB4F: 85 20 514 STA WNDLFT ; BTTM AT LINE 24
FB51: A9 28 515 LDA #$28
FB53: 85 21 516 STA WNDWDTH
FB55: A9 18 517 LDA #$18
FB57: 85 23 518 STA WNDBTM ; VTAB TO ROW 23