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