3011 F621 4468B232B200 .DB $44,$68,$B2,$32,$B2,0,$22,0
3011 F627 2200
3012 F629 1A1A26267272 .DB $1A,$1A,$26,$26,$72,$72,$88,$C8
3012 F62F 88C8
3013 F631 C4CA26484444 .DB $C4,$CA,$26,$48,$44,$44,$A2,$C8
3013 F637 A2C8
3014 F639
3015 F639 ;*******************************
3016 F639 ;*** AIM TEXT EDITOR ***
3017 F639 ;*** 05/01/78 ***
3018 F639 ;*******************************
3019 F639
3020 F639 ; R=READ FROM ANY INPUT DEVICE
3021 F639 ; I=INSERT A LINE FROM INPUT DEV
3022 F639 ; K=DELETE A LINE
3023 F639 ; U-GO UP ONE LINE
3024 F639 ; D=GO DOWN ONE LINE
3025 F639 ; L=LIST LINES TO OUTPUT DEV
3026 F639 ; T=GO TO TOP OF TEXT
3027 F639 ; B=GO TO BOTTOM OF TEXT
3028 F639 ; F=FIND STRING
3029 F639 ; C=CHANGE STRING TO NEW STRING
3030 F639 ; Q=QUIT EDITOR
3031 F639 ; <SPACE>=DISPLAY CURRENT LINE
3032 F639
3033 F639 ;***** E COMMAND-EDITOR ENTRY (FROM MONITOR) *****
3034 F639 20 13 EA EDIT JSR CRLOW
3035 F63C A0 6C LDY #EMSG1-M1
3036 F63E 20 AF E7 JSR KEP ;START UP MSG
3037 F641 20 13 EA JSR CRLOW
3038 F644 20 A3 E7 EDI0 JSR FROM
3039 F647 B0 FB BCS EDI0
3040 F649 AD 1E A4 LDA CKSUM ;IS CLR IF ADDR WAS INPUTTED
3041 F64C F0 03 BEQ *+5
3042 F64E 20 DB E2 JSR WRITAZ ;OUTPUT DEFAULT ADDR (0200)
3043 F651 A2 01 LDX #1
3044 F653 BD 1C A4 EDI1 LDA ADDR,X
3045 F656 95 E3 STA TEXT,X
3046 F658 95 E1 STA BOTLN,X
3047 F65A 9D 1A A4 STA S1,X ;FOR MEMORY TEST
3048 F65D CA DEX
3049 F65E 10 F3 BPL EDI1
3050 F660 20 3B E8 JSR BLANK2
3051 F663 20 A7 E7 EDI2 JSR TO ;END
3052 F666 B0 FB BCS EDI2
3053 F668 20 BC F8 JSR TOPNO ;TRANSF TEXT TO ADDR FOR RAM CHECK
3054 F66B AD 1E A4 LDA CKSUM ;IS CLR IF ADDR WAS INPUTTED
3055 F66E F0 10 BEQ EDI4 ;BRNCH IF NOT DEFAULT VALUE
3056 F670 20 34 F9 JSR SAVNOW
3057 F673 20 B6 F6 EDI3 JSR EDI ;CARRY IS SET IF NO RAM THERE
3058 F676 90 FB BCC EDI3
3059 F678 A9 00 LDA #0 ;SET UPPER LIMIT TO BEGINNING...
3060 F67A 8D 1C A4 STA ADDR ;OF PAGE
3061 F67D 20 DB E2 JSR WRITAZ ;OUTPUT DEFAULT VALUE ,UPPER LIMIT
3062 F680 AD 1C A4 EDI4 LDA ADDR
3063 F683 85 E5 STA END
3064 F685 AD 1D A4 LDA ADDR+1
3065 F688 85 E6 STA END+1
3066 F68A 20 34 F9 JSR SAVNOW
3067 F68D ;NOW SEE IF MEMORY IS THERE
3068 F68D 20 B6 F6 EDI5 JSR EDI
3069 F690 90 FB BCC EDI5