Apple II User Manual

3070   F692 A5 E6              LDA END+1       ;CMP WITH END

3071   F694 CD 1D A4           CMP ADDR+1
3072   F697 F0 11              BEQ EDI7

3073   F699 B0 13              BCS EDI8
3074   F69B 20 BC F8    EDI6   JSR TOPNO       ;RESTORE NOWLN

3075   F69E A9 00              LDA #0
3076   F6A0 91 DF              STA (NOWLN),Y   ;END OF TEXT MARKER

3077   F6A2 20 13 EA           JSR CRLOW
3078   F6A5 A9 52              LDA #'R'        ;FORCE READ COMMAND

3079   F6A7 4C 8D FA           JMP ENTRY
3080   F6AA A5 E5       EDI7   LDA END         ;IF ZERO MEM IS OKAY

3081   F6AC F0 ED              BEQ EDI6
3082   F6AE A9 00       EDI8   LDA #0

3083   F6B0 8D 1C A4           STA ADDR
3084   F6B3 4C 33 EB           JMP MEMERR      ;NO MEMORY FOR THOSE LIMITS

3085   F6B6
3086   F6B6 A0 00       EDI    LDY #0          ;CHCK IF MEMORY WRITES

3087   F6B8 20 B7 FE           JSR PATCH6      ;GET BYTE ADDR BY ADDR,ADDR+1
3088   F6BB 48                 PHA             ;SAVE IT

3089   F6BC A9 AA              LDA #$AA        ;SET THIS PATTERN
3090   F6BE 20 78 EB           JSR SADDR       ;CHCK IT

3091   F6C1 D0 09              BNE EDI2B
3092   F6C3 68                 PLA

3093   F6C4 20 78 EB           JSR SADDR       ;RESTORE CHR
3094   F6C7 EE 1D A4           INC ADDR+1      ;NEXT PAG

3095   F6CA 18                 CLC             ;IT WROTE
3096   F6CB 60                 RTS

3097   F6CC 38          EDI2B  SEC             ;DIDNT WRITE
3098   F6CD 68                 PLA

3099   F6CE 60                 RTS
3100   F6CF

3101   F6CF             ;***** T COMMAND-REENTRY EDITOR *****
3102   F6CF             ;RE-ENTRY POINT,TEXT ALREADY THERE

3103   F6CF 20 24 EA    REENTR JSR CRCK        ;<CR> IF PRI ON
3104   F6D2 20 BC F8    TP     JSR TOPNO       ;GO TO TOP

3105   F6D5 4C B9 F7           JMP IN03A       ;DISPLAY LINE
3106   F6D8

3107   F6D8             ;***** U COMMAND-UP LINE *****
3108   F6D8             ;GO UP ONE LINE BUT...

3109   F6D8             ;DOWN IN ADDRESSING MEMORY
3110   F6D8 20 DB F8    DNNO   JSR ATTOP       ;THIS RTN DOESNT PRINT

3111   F6DB 90 06              BCC DOW1        ;NOT TOP
3112   F6DD 20 27 F7           JSR PLNE        ;ARE AT TOP

3113   F6E0 4C 78 FA           JMP ERR0
3114   F6E3 A0 00       DOW1   LDY #0

3115   F6E5 20 1D F9           JSR SUB         ;DECREMENT NOWLN PAST <CR>
3116   F6E8 20 1D F9    DOW2   JSR SUB

3117   F6EB 20 DB F8           JSR ATTOP
3118   F6EE B0 30              BCS UP4

3119   F6F0 B1 DF              LDA (NOWLN),Y
3120   F6F2 C9 0D              CMP #CR

3121   F6F4 D0 F2              BNE DOW2
3122   F6F6 4C 28 F9           JMP AD1

3123   F6F9
3124   F6F9             ;***** D COMMAND-DOWN LINE *****

3125   F6F9             ;GO DOWN ONE LINE BUT...
3126   F6F9             ;UP IN ADDRESSING MEMORY

3127   F6F9 20 09 F7    UP     JSR UPNO
3128   F6FC 20 27 F7           JSR PLNE        ;DISPLAY LINE & CHCK BOTTOM

3129   F6FF 20 E9 F8           JSR ATBOT
3130   F702 90 1C              BCC UP4

3131   F704 A0 72              LDY #EMSG2-M1   ;PRINT "END"