Apple ii Battery Charger User Manual


 
4035 FE9C AE 15 A4 PATCH4 LDX CURPO2 ;DONT DO ANYTHING IF "8D"
4036 FE9F C9 8D CMP #CR+$80 ;SO <CR> FOR TV & NOT FOR DISP
4037 FEA1 D0 0B BNE PAT4A
4038 FEA3 A9 A0 LDA #' '+$80 ;CLR CURSOR
4039 FEA5 20 7B EF JSR OUTDD1
4040 FEA8 20 44 EB JSR CLR ;CLR PNTRS
4041 FEAB 4C 76 EF JMP OUTD7 ;EXIT
4042 FEAE 4C 17 EF PAT4A JMP OUTD1A ;CONTINUE
4043 FEB1
4044 FEB1 8D 11 A4 PATCH5 STA PRIFLG ;TURN PRI OFF
4045 FEB4 4C 73 F0 JMP IPO3
4046 FEB7
4047 FEB7 A9 1C PATCH6 LDA #ADDR ;SIMULATE LDA (ADDR),Y
4048 FEB9 4C 58 EB JMP LDAY
4049 FEBC
4050 FEBC 20 3C E9 PATCH8 JSR READ ;READ & ECHO WITH CARROTS
4051 FEBF 48 PHA
4052 FEC0 20 D8 E7 JSR EQUAL
4053 FEC3 A9 3C LDA #'<'
4054 FEC5 20 7A E9 JSR OUTPUT
4055 FEC8 68 PLA
4056 FEC9 48 PHA
4057 FECA C9 0D CMP #CR
4058 FECC F0 03 BEQ PATC8C
4059 FECE 20 7A E9 JSR OUTPUT
4060 FED1 A9 3E PATC8C LDA #'>'
4061 FED3 20 7A E9 JSR OUTPUT
4062 FED6 68 PLA
4063 FED7 60 RTS
4064 FED8
4065 FED8 C9 F7 PATCH9 CMP #$F7 ;CHCK LOWER TRANSITION OF TIMER
4066 FEDA B0 06 BCS PAT9A
4067 FEDC CD 08 A4 CMP TSPEED
4068 FEDF 4C 9D EE JMP CKF3A
4069 FEE2 CD 08 A4 PAT9A CMP TSPEED
4070 FEE5 68 PLA
4071 FEE6 C9 FF CMP #$FF
4072 FEE8 60 PAT9B RTS
4073 FEE9
4074 FEE9 20 F0 E9 PATC10 JSR CRLF ;CLR DISP (ONLY 1 <CR>)
4075 FEEC 4C 85 E1 JMP STA1
4076 FEEF
4077 FEEF F0 F7 PATC11 BEQ PAT9B ;GO OUTPUT PROMPT
4078 FEF1 C9 4C CMP #'L' ;NO PROMPT FOR "T" OR "L"
4079 FEF3 F0 F3 BEQ PAT9B
4080 FEF5 4C C5 E7 JMP PROMP1
4081 FEF8
4082 FEF8 48 PATC12 PHA ;CLEAR PRIFLG SO WE CAN OUTPUT
4083 FEF9 AD 11 A4 LDA PRIFLG ;TO PRINTER IF FLG WAS ON (MSB)
4084 FEFC 29 F0 AND #$F0
4085 FEFE 8D 11 A4 STA PRIFLG
4086 FF01 68 PLA
4087 FF02 60 RTS
4088 FF03
4089 FF03 AD 12 A4 PATC13 LDA INFLG ;TURN TAPES ON ONLY IF TAPES
4090 FF06 C9 54 CMP #'T'
4091 FF08 D0 DE BNE PAT9B
4092 FF0A 4C 29 E5 JMP DU14 ;TURN ON TAPES & SET DEF DEV
4093 FF0D
4094 FF0D AD 13 A4 PATC14 LDA OUTFLG ;TURN ON TAPES ONLY IF TAPES
4095 FF10 C9 54 CMP #'T'
4096 FF12 D0 D4 BNE PAT9B