Filter
Top Products
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"