Apple II 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