Apple ii Battery Charger User Manual


 
4097 FF14 4C 0A E5 JMP DU11
4098 FF17
4099 FF17 20 F0 E9 PATC15 JSR CRLF ;DECODE COMMAND
4100 FF1A 8A TXA ;SAVE INDEX
4101 FF1B 0A ASL A
4102 FF1C AA TAX
4103 FF1D BD B8 FA LDA JTBL,X ;PART OF ENTRY
4104 FF20 8D 1A A4 STA S1
4105 FF23 60 RTS
4106 FF24
4107 FF24 20 DD E5 PATC16 JSR CGPC1 ;ADDR TO PC
4108 FF27 4C AA FB JMP STARTM ;BACK TO MNEMONIC START
4109 FF2A
4110 FF2A F0 0E PATC17 BEQ PAT17B ;RUB, SO READ ANOTHER
4111 FF2C C9 00 CMP #0
4112 FF2E F0 03 BEQ PAT17A
4113 FF30 4C 85 F7 JMP IN02A ;NEITHER ,CONTINUE
4114 FF33 20 93 E9 PAT17A JSR INALL ;SKIP ON ZEROS
4115 FF36 C9 7F CMP #$7F ;UNTILL RUB
4116 FF38 D0 F9 BNE PAT17A
4117 FF3A 4C 7A F7 PAT17B JMP IN02 ;GO BACK
4118 FF3D
4119 FF3D 20 F8 FE PATC18 JSR PATC12 ;RESET PRIFLG
4120 FF40 48 PHA
4121 FF41 20 42 E8 JSR TTYTST ;IF TTY JUST RTN
4122 FF44 D0 02 BNE PAT18A
4123 FF46 68 PLA
4124 FF47 60 RTS
4125 FF48 20 FE E8 PAT18A JSR LL ;SET TO LOW SPEED
4126 FF4B 20 45 F0 JSR IPST ;PRINT WHAT IS IN BUFFER
4127 FF4E 20 44 EB JSR CLR ;CLR PRINTER BUFFER BY OUTPUTTING
4128 FF51 20 3E E8 JSR BLANK ;AN SPACE
4129 FF54 20 44 EB JSR CLR
4130 FF57 68 PLA ;RTN ACC
4131 FF58 60 RTS
4132 FF59
4133 FF59 D8 PAT19 CLD
4134 FF5A 20 24 EA JSR CRCK
4135 FF5D 4C 85 E1 JMP STA1
4136 FF60
4137 FF60 F0 0D PAT20 BEQ VECK4 ;END (DATA BYTES=0)
4138 FF62 18 CLC
4139 FF63 69 04 ADC #4
4140 FF65 AA TAX
4141 FF66 20 93 E9 VECK5 JSR INALL ;SKIP OVER DATA
4142 FF69 CA DEX
4143 FF6A D0 FA BNE VECK5
4144 FF6C 4C 9E E6 JMP VECK1 ;PROCESS NEXT RCD
4145 FF6F 4C 20 E5 VECK4 JMP DU13
4146 FF72
4147 FF72 A0 00 PAT21 LDY #0
4148 FF74 B9 88 FF PAT21A LDA POMSG,Y ;RESET MSG
4149 FF77 F0 06 BEQ PAT21B
4150 FF79 20 7A E9 JSR OUTPUT
4151 FF7C C8 INY
4152 FF7D D0 F5 BNE PAT21A
4153 FF7F 20 F0 E9 PAT21B JSR CRLF
4154 FF82 20 F0 E9 JSR CRLF
4155 FF85 4C 82 E1 JMP START
4156 FF88
4157 FF88 2020524F434BPOMSG .DB " ROCKWELL AIM 65"
4157 FF8E 57454C4C2041494D203635