Apple II User Manual

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