
 1000  *SAVE MLI.ERROR
 1010  *--------------------------------
 1020  CMDADR .EQ $BF9C
 1030  *--------------------------------
 1040  PRNTAX .EQ $F941
 1050  CROUT  .EQ $FD8E
 1060  PRBYTE .EQ $FDDA
 1070  COUT   .EQ $FDED
 1080  *--------------------------------
 1090  MLI.ERROR
 1100         PHA          SAVE ERROR CODE
 1110         LDY #QERR
 1120         JSR PRMSG
 1130         PLA
 1140         JSR PRBYTE
 1150         LDY #QAT
 1160         JSR PRMSG
 1170         LDA CMDADR+1
 1180         LDX CMDADR
 1190         JSR PRNTAX
 1200         JMP CROUT
 1210  *--------------------------------
 1220  MSG1   JSR COUT
 1230         INY
 1240  PRMSG  LDA MSGS,Y
 1250         BNE MSG1
 1260         RTS
 1270  *--------------------------------
 1280  MSGS
 1290  QERR   .EQ *-MSGS
 1300         .HS 8D
 1310         .AS -/MLI ERROR $/
 1320         .HS 00
 1330  QAT    .EQ *-MSGS
 1340         .AS -/ AT $/
 1350         .HS 00
 1360  *--------------------------------
 1370         .LIST OFF

