3566 FA55 8D 1D A4 STA ADDR+1
3567 FA58 4C 33 EB JMP MEMERR
3568 FA5B 60 GOGO1 RTS ;OK
3569 FA5C
3570 FA5C 20 44 EB ENDERR JSR CLR ;CLEAR PNTR
3571 FA5F A0 72 LDY #EMSG2-M1 ;PRINT "END"
3572 FA61 20 AF E7 JSR KEP
3573 FA64 20 D8 F6 JSR DNNO ;BACK UP TO LAST LINE
3574 FA67 20 42 E8 JSR TTYTST ;IF TTY <CR>
3575 FA6A D0 03 BNE ENDE2
3576 FA6C 20 13 EA JSR CRLOW
3577 FA6F 4C 78 FA ENDE2 JMP ERR0
3578 FA72 20 FE E8 ERROR JSR LL
3579 FA75 20 D4 E7 JSR QM
3580 FA78 20 44 EB ERR0 JSR CLR
3581 FA7B A2 FF LDX #$FF
3582 FA7D COM =ERR0
3583 FA7D 9A TXS
3584 FA7E 20 FE E8 JSR LL ;I/O TO TERMINAL (KB,D/P OR TTY)
3585 FA81 D8 CLD
3586 FA82 20 88 FA JSR COMM
3587 FA85 4C 78 FA JMP ERR0
3588 FA88
3589 FA88 ;GET EDITOR COMMANDS & DECODE
3590 FA88 A2 00 COMM LDX #0
3591 FA8A 20 BC FE JSR PATCH8 ;READ A CHAR WITH "=< >"
3592 FA8D A2 0B ENTRY LDX #COMCN1
3593 FA8F DD AC FA CD02 CMP COMTBL,X ;COMPARE WITH ALLOWABLE COMMANDS
3594 FA92 F0 0C BEQ CFND1 ;MATCH ,SO PROCESS COMMAND
3595 FA94 CA DEX
3596 FA95 10 F8 BPL CD02
3597 FA97 20 D4 E7 JSR QM ;NOT IN LIST ,SO NOT LEGAL COMMAND
3598 FA9A 20 24 EA JSR CRCK
3599 FA9D 4C 78 FA JMP ERR0
3600 FAA0 20 17 FF CFND1 JSR PATC15 ;<CR> & START DECODING COMMAND
3601 FAA3 BD B9 FA LDA JTBL+1,X
3602 FAA6 8D 1B A4 STA S1+1
3603 FAA9 6C 1A A4 JMP (S1)
3604 FAAC
3605 FAAC COMCN1 =11
3606 FAAC ;COMMAND TABLE
3607 FAAC 4B2052495544COMTBL .DB "K RIUDLTBFQC"
3607 FAB2 4C5442465143
3608 FAB8 4CF727F7CBF7JTBL .DW DLNE,PLNE,INPU,IN,DOWN,UP
3608 FABE 64F724F7F9F6
3609 FAC4 E1F7D2F621F7 .DW LST,TP,BT,FCHAR,STOP,CHNG
3609 FACA 0CF870F876F8
3610 FAD0
3611 FAD0 ;READ FROM MEMORY FOR ASSEMBLER
3612 FAD0 98 MREAD TYA
3613 FAD1 48 PHA
3614 FAD2 A0 00 LDY #0
3615 FAD4 B1 DF LDA (NOWLN),Y
3616 FAD6 8D 2A A4 STA CPIY
3617 FAD9 20 28 F9 JSR AD1
3618 FADC 68 PLA
3619 FADD A8 TAY
3620 FADE AD 2A A4 LDA CPIY
3621 FAE1 60 RTS
3622 FAE2
3623 FAE2 ;THIS PROGRAM CONVERS MNEMONIC INSTRUCTIONS INTO MACHINE
3624 FAE2 ;CODE AND STORES IT IN THE DESIGNATED MEMORY AREA