URL https://opencores.org/ocsvn/System09/System09/trunk

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [Flex9/] [f9-cli.asm] - Blame information for rev 147

Go to most recent revision | Details | Compare with Previous | View Log


*********************************************
*
* FLEX COMMAND LINE INTERPRETER & SUBROUTINES
*
*********************************************
 ORG $CD00
*
** FLEX JUMPS
*
COLDS JMP >COLD1
WARMS JMP >WARM1
RENTER JMP >RENT1
INCH JMP >INCH
INCH2 JMP >INCH2
OUTCH JMP >OUTCH
OUTCH2 JMP >OUTCH2
GETCHR JMP >GETCH1
PUTCHR JMP >PUTCH1
INBUFF JMP >INBUF1
PSTRNG JMP >PSTRG1
CLASS JMP >CLASS1
PCRLF JMP >PCRLF1
NXTCH JMP >NXTCH1
RSTRIO JMP >RSTIO1
GETFIL JMP >GETFL1
LOAD JMP >LOAD1
SETEXT JMP >SETEX1
ADDBX JMP >ADDBX1
OUTDEC JMP >OUTDC1
OUTHEX JMP >OUTHX1
RPTERR JMP >RPTER1
GETHEX JMP >GETHX1
OUTADR JMP >OUTAD1
INDEC JMP >INDEC1
DOCMND JMP >DOCMD1
ZCD4E JMP >ZCD4E
 JMP >ZCE05
 JMP >ZCE05
*
** COLD START ENTRY
*
COLD1 LDS #ZC07F
ZCD5B CLR >LASTRM
 JSR >ZD400
 CLR >CMDFLG
 JSR >ZD3FD
*
** WARM START ENTRY
*
WARM1 LDS #ZC07F
 JSR >WARMDR
 LDX #WARMS
 STX >ESCVEC
 LDX #PRSPL1
 STX [SWIVVC]
 LDX >IHNDVC
 STX [IRQVVC]
 LDX #ZCCF8
 STX >ZCC31
 CLR >ZCC34
 CLR >ZCC4C
 BSR RSTIO1
 LDA >LASTRM
 CMPA >EOLCHR
 BNE ZCD9D
 INC >LINPTR+1
 BRA RENT1
 
ZCD9D TST >CMDFLG
 LBNE ZD33B
 JSR >FMSCLS
 BNE ZCD5B
 LDX #PMTSTR
 JSR >PSTRG1
 BSR INBUF1
*
** MAIN CONTROL LOOP
*
RENT1 JSR >ZD0D4
 CMPA #$0D
 BEQ ZCD9D
ZCDB8 LDX #FCB
 INC >ZCC0D
 JSR >GETFL1
 BCS ZCDD9
 LDX #CMDTBL
 BSR ZCE06
 BEQ ZCDD3
 LDX >UCTVEC
 BEQ ZCDD6
 BSR ZCE06
 BNE ZCDD6
ZCDD3 JMP [$01,X]
 
ZCDD6 JSR >ZD22E
ZCDD9 LDX #WOTMSG
 LDA #$15
ZCDDE STA >ERRTYP
ZCDE1 JSR >PSTRG1
ZCDE4 CLR >LASTRM
 JMP >WARM1
*
** RESTORE IO VECTORS
*
RSTIO1 LDX >OUTCH2+1
 STX >OUTCH+1
 LDX >INCH2+1
 STX >INCH+1
 CLR >INPSWT
 CLR >OUTSWT
 CLR >SIOFLG
 CLR >FIPADR
 CLR >FOPADR
ZCE05 RTS
 
ZCE06 LDY #ZC844
ZCE0A LDA ,Y+
 CMPA #$5F
 BLS ZCE12
 SUBA #$20
ZCE12 CMPA ,X+
 BNE ZCE1E
 TST ,X
 BNE ZCE0A
 TST ,Y
 BEQ ZCE2A
ZCE1E TST ,X+
 BNE ZCE1E
 LEAX $02,X
 TST ,X
 BNE ZCE06
 ANDCC #$FB
ZCE2A RTS
*
** GET USER COMMAND LINE
*
INBUF1 LDX #LINBUF
 STX >LINPTR
ZCE31 JSR >GETCH1
 CMPA >DELCHR
 BEQ ZCE56
 CMPA >BSPCHR
 BEQ ZCE5D
 CMPA #$0D
 BEQ ZCE4F
 CMPA #$0A
 BEQ ZCE78
 CMPA #$1F
 BLS ZCE31
ZCE4A CMPX #ZC0FF
 BEQ ZCE31
ZCE4F STA ,X+
 CMPA #$0D
 BNE ZCE31
 RTS
 
ZCE56 LDX #QRYSTR
 BSR PSTRG1
 BRA INBUF1
 
ZCE5D CMPX #LINBUF
 BEQ ZCE56
 LEAX -$01,X
 LDA >BSECHR
 CMPA #$08
 BNE ZCE73
 LDA #$20
 JSR >ZCF66
 LDA >BSECHR
ZCE73 JSR >ZCF66
 BRA ZCE31
 
ZCE78 LDA #$0D
 JSR >PUTCH1
 LDA #$20
 BRA ZCE4A
 
PSTRG1 BSR PCRLF1
ZCE83 LDA ,X
 CMPA #$04
 BEQ ZCEF8
 JSR >PUTCH1
 LEAX $01,X
 BRA ZCE83
 
ZCE90 JSR >ZCD4E
 BEQ ZCEFA
 JSR [ZD3E5]
 CMPA >ESCCHR
 BNE ZCEFA
ZCE9E CLR >CURLIN
ZCEA1 JSR [ZD3E5]
 CMPA >ESCCHR
 BEQ ZCEFA
 CMPA #$03 CTRL C
 BNE ZCEA1
 CLR >LASTRM
 JMP [ESCVEC]
*
** PRINT CR, LINEFEED
*
PCRLF1 TST >SIOFLG
 BNE ZCEE1
 BSR ZCE90
 LDA >DEPCNT
 BEQ ZCEE1
 CMPA >CURLIN
 BHI ZCEDE
 CLR >CURLIN
 TST >PAUSE
 BEQ ZCED0
 BSR ZCE9E
ZCED0 PSHS B
 LDB >EJTCNT
 BEQ ZCEDC
ZCED7 BSR ZCEE1
 DECB
 BNE ZCED7
ZCEDC PULS B
ZCEDE INC >CURLIN
ZCEE1 LDA #$0D
 BSR PUTCH1
 LDA #$0A
 BSR PUTCH1
 PSHS B
 LDB >NULCNT
 BEQ ZCEF6
ZCEF0 CLRA
 BSR PUTCH1
 DECB
 BNE ZCEF0
ZCEF6 PULS B
ZCEF8 ANDCC #$FE
ZCEFA RTS
*
** GET A CHARACTER HONOURING TTYSET
*
GETCH1 TST >INPSWT
 BNE ZCF1A
 TST >FIPADR
 BEQ ZCF15
 BSR ZCF21
 TST >FIEFLG
 BEQ ZCF1D
 TST >FOPADR
 BEQ ZCF1D
 BSR ZCF66
 BRA ZCF1D
ZCF15 JSR >INCH
 BRA ZCF1D
 
ZCF1A JSR >INCH2
ZCF1D CLR >CURLIN
 RTS
 
ZCF21 STX >ZCC47
 LDX >FIPADR
 BRA ZCF2F
 
ZCF29 STX >ZCC47
 LDX >FOPADR
ZCF2F JSR >FMS
 BNE ZCF38
 LDX >ZCC47
 RTS
 
ZCF38 CLR >FOPADR
 JSR >RPTER1
 JMP >WARMS
*
** OUTPUT CHARACTER HONOURING TTYSET
*
PUTCH1 TST >SIOFLG
 BNE ZCF66
 CMPA #$1F
 BHI ZCF4F
 CLR >CURCOL
 BRA ZCF66
 
ZCF4F INC >CURCOL
 PSHS A
 LDA >WIDCNT
 BEQ ZCF64
 CMPA >CURCOL
 BCC ZCF64
 JSR >PCRLF1
 INC >CURCOL
ZCF64 PULS A
ZCF66 PSHS A
 TST >OUTSWT
 BNE ZCF80
 TST >FOPADR
 BEQ ZCF76
 BSR ZCF29
 BRA ZCF83
 
ZCF76 TST >FIPADR
 BNE ZCF83
 JSR >OUTCH
 BRA ZCF83
ZCF80 JSR >OUTCH2
ZCF83 PULS A
 RTS
 
OUTDC1 CLR >ZCC4A
 STB >TRNFLG
 LDA #$04
 STA >ZCC4D
 LDD ,X
 LDX #DECTBL
ZCF96 BSR ZCFA3
 LEAX $02,X
 DEC >ZCC4D
 BNE ZCF96
 TFR B,A
 BRA OUTHXR
 
ZCFA3 CLR >ZCC4B
ZCFA6 CMPD ,X
 BCS ZCFB2
 SUBD ,X
 INC >ZCC4B
 BRA ZCFA6
 
ZCFB2 PSHS A
 LDA >ZCC4B
 BNE ZCFC9
 TST >ZCC4A
 BNE ZCFC9
 TST >TRNFLG
 BEQ ZCFCE
 LDA #$20
 BSR ZCFEA
 BRA ZCFCE
 
ZCFC9 INC >ZCC4A
 BSR OUTHXR
ZCFCE PULS PC,A
*
** DISPLAY HEX ADDRESS
*
OUTAD1 BSR OUTHX1
 LEAX $01,X
*
** OUPUT HEX BYTE
*
OUTHX1 LDA ,X
 BSR OUTHXL
 LDA ,X
 BRA OUTHXR
 
OUTHXL LSRA
 LSRA
 LSRA
 LSRA
OUTHXR ANDA #$0F
 ADDA #$30
 CMPA #$39
 BLS ZCFEA
 ADDA #$07
ZCFEA JMP >PUTCH1
*
** CLASSIFY CHARACTER ALHA/NUMERIC
*
CLASS1 CMPA #'0
 BCS ZD005
 CMPA #'9
 BLS ZD00B
 CMPA #'A
 BCS ZD005
 CMPA #'Z
 BLS ZD00B
 CMPA #'a $61
 BCS ZD005
 CMPA #'z $7A
 BLS ZD00B
ZD005 ORCC #$01
 STA >LASTRM
 RTS
ZD00B ANDCC #$FE
 RTS
*
** GET NEXT CHARACTER FROM FILE
*
NXTCH1 PSHS X
 LDX >LINPTR
 LDA >CURCHR
 STA >PRVCHR
ZD019 LDA ,X+
 STA >CURCHR
 CMPA #$0D
 BEQ ZD032
 CMPA >EOLCHR
 BEQ ZD032
 STX >LINPTR
 CMPA #$20
 BNE ZD032
 CMPA ,X
 BEQ ZD019
ZD032 BSR CLASS1
 PULS PC,X
*
** PARSE FILE SPEC. IN LINE BUFFER
*
GETFL1 LDA #$15
 STA $01,X
 LDA #$FF
 STA $03,X
 CLR $04,X
 CLR $0C,X
 JSR >ZD0D4
 LDA #$08
 STA >ZCC4B
 BSR ZD080
 BCS ZD07C
 BNE ZD05F
 BSR ZD080
 BCS ZD07C
 BNE ZD05F
 CMPX >ZCC3F
 BEQ ZD0C7
 BSR ZD080
 BLS ZD0C7
ZD05F LDX >ZCC3F
 TST $04,X
 BEQ ZD0C7
 TST $03,X
 BPL ZD079
 TST >ZCC0D
 BEQ ZD074
 LDA >SYSDRV
 BRA ZD077
 
ZD074 LDA >WRKDRV
ZD077 STA $03,X
ZD079 CLR >ZCC0D
ZD07C LDX >ZCC3F
 RTS
 
ZD080 BSR NXTCH1
 BCS ZD0C7
 CMPA #$39
 BHI ZD09D
 LDX >ZCC3F
 TST $03,X
 BPL ZD0C7
 ANDA #$03
 STA $03,X
 JSR >NXTCH1
 BCC ZD0C7
ZD098 CMPA #$2E
 ANDCC #$FE
 RTS
 
ZD09D LDB >ZCC4B
 BMI ZD0C7
 PSHS B
 SUBB #$05
 STB >ZCC4B
 PULS B
ZD0AB CMPA >MAPUP
 BCS ZD0B2
 SUBA #$20
ZD0B2 STA $04,X
 LEAX $01,X
 DECB
 JSR >NXTCH1
 BCC ZD0C4
 CMPA #$2D
 BEQ ZD0C4
 CMPA #$5F
 BNE ZD0CA
ZD0C4 TSTB
 BNE ZD0AB
ZD0C7 ORCC #$01
 RTS
 
ZD0CA TSTB
 BEQ ZD098
 CLR $04,X
 LEAX $01,X
 DECB
 BRA ZD0CA
 
ZD0D4 STX >ZCC3F
 LDX >LINPTR
ZD0DA LDA ,X
 CMPA #$20
 BNE ZD0E4
 LEAX $01,X
 BRA ZD0DA
ZD0E4 STX >LINPTR
 LDX >ZCC3F
 RTS
*
** DEFAULT FILE EXTENSION
*
SETEX1 PSHS Y,X
 LDB $0C,X
 BNE ZD109
 LDY #EXTTBL
 CMPA #$0B
 BHI ZD109
 LDB #$03
 MUL
 LEAY B,Y
 LDB #$03
ZD100 LDA ,Y+
 STA $0C,X
 LEAX $01,X
 DECB
 BNE ZD100
ZD109 PULS PC,Y,X
*
** STANDARD FILE NAME EXTTENSIONS
*
EXTTBL FCC "BIN"
 FCC "TXT"
 FCC "CMD"
 FCC "BAS"
 FCC "SYS"
 FCC "BAK"
 FCC "SCR"
 FCC "DAT"
 FCC "BAC"
 FCC "DIR"
 FCC "PRT"
 FCC "OUT"
*
** READ A HEX ADDRESS FROM THE LINE BUFFER
*
GETHX1 JSR >ZD21E
ZD132 JSR >NXTCH1
 BCS ZD159
 BSR ZD15F
 BCS ZD153
 PSHS B
 LDB #$04
ZD13F ASL >LODOFF+1
 ROL >LODOFF
 DECB
 BNE ZD13F
 PULS B
 ADDA >LODOFF+1
 STA >LODOFF+1
 INCB
 BRA ZD132
 
ZD153 JSR >NXTCH1
 BCC ZD153
 RTS
 
ZD159 LDX >LODOFF
 ANDCC #$FE
 RTS
 
ZD15F SUBA #$47
 BPL ZD172
 ADDA #$06
 BPL ZD16B
 ADDA #$07
 BPL ZD172
ZD16B ADDA #$0A
 BMI ZD172
 ANDCC #$FE
 RTS
 
ZD172 ORCC #$01
 RTS
 
INDEC1 JSR >ZD21E
ZD178 JSR >NXTCH1
 BCS ZD159
 CMPA #$39
 BHI ZD153
 ANDA #$0F
 PSHS B
 PSHS A
 LDD >LODOFF
 ASLB
 ROLA
 ASLB
 ROLA
 ASLB
 ROLA
 ADDD >LODOFF
 ADDD >LODOFF
 ADDB ,S+
 ADCA #$00
 STD >LODOFF
 PULS B
 INCB
 BRA ZD178
*
** LOAD BINARY FILE
*
LOAD1 CLR >TRNFLG
ZD1A5 BSR ZD1E4
 CMPA #$02
 BEQ ZD1C0
 CMPA #$16
 BNE ZD1A5
 BSR ZD1E4
 STA >TRNVEC
 BSR ZD1E4
 STA >TRNVEC+1
 LDA #$01
 STA >TRNFLG
 BRA ZD1A5
 
ZD1C0 BSR ZD1E4
 TFR A,B
 BSR ZD1E4
 EXG A,B
 ADDD >LODOFF
 STD >ZCC3D
 BSR ZD1E4
 TFR A,B
 TSTA
 BEQ ZD1A5
ZD1D5 BSR ZD1E4
 LDX >ZCC3D
 STA ,X+
 STX >ZCC3D
 DECB
 BNE ZD1D5
 BRA ZD1A5
 
ZD1E4 LDX #FCB
 JSR >FMS
 BEQ ZD1FD
 LDA $01,X
 CMPA #$08
 BNE ZD200
 LEAS $02,S
ZD1F4 LDA #$04
 STA ,X
 JSR >FMS
 BNE ZD20A
ZD1FD ANDCC #$FE
 RTS
 
ZD200 STA >ERRTYP
 CMPA #$04
 BNE ZD20A
 ORCC #$01
 RTS
 
ZD20A BSR RPTER1
 JMP >ZCDE4
*
** 'GET' - LOAD BINARY FILE
*
GETCMD LDA #$00
 BSR ZD248
 BCS ZD224
 BSR ZD21E
 INC >ZCC4C
 BSR LOAD1
 BRA GETCMD
 
ZD21E CLRA
 CLRB
 STD >LODOFF
 RTS
 
ZD224 LDB >ZCC4C
 LBEQ ZCDD9
 JMP >WARMS
 
ZD22E LDA #$02
 BSR ZD254
 BSR ZD21E
 JSR >LOAD1
 LDB >TRNFLG
 BEQ ZD240
 JMP [TRNVEC]
 
ZD240 LDX #NTRMSG
 LDA #$81
 JMP >ZCDDE
 
ZD248 PSHS A
 LDX #FCB
 JSR >GETFL1
 PULS A
 BCS ZD26E
ZD254 LDX #FCB
 JSR >SETEX1
 LDX #FCB
 LDA #$01
 STA ,X
 JSR >ZD1E4
 LBCS ZD323
 LDA #$FF
 STA $3B,X
 RTS
 
ZD26E LDA >LASTRM
 CMPA #$0D
 BEQ ZD27C
 CMPA >EOLCHR
 LBNE ZCDD9
ZD27C ORCC #$01
 RTS
 
RPTER1 PSHS Y,X
 LDA $01,X
 STA >ERRTYP
 BEQ ZD2EB
 JSR >RSTIO1
 LDY >ERRVEC
 BNE ZD299
 CMPA #$10
 BEQ ZD2ED
 LDY #ZD361
ZD299 LDX #FCB
 TST $02,X
 BEQ ZD2A9
 LDA #$04
 STA ,X
 JSR >FMS
 BNE ZD2D7
ZD2A9 LDX #ZC838
 LDB #$0B
 BSR ZD31E
 LDX #FCB
 LDA >SYSDRV
 STA $03,X
 LDA #$01
 STA ,X
 JSR >FMS
 BNE ZD2D7
 LDA >ERRTYP
 DECA
 ASRA
 ASRA
 INCA
 CLR $20,X
 STA $21,X
 LDA #$15
 STA ,X
 JSR >FMS
 BEQ ZD2F5
ZD2D7 LDX #DERMSG
 JSR >PSTRG1
 LDX >ZCC3F
 LDA >ERRTYP
 STA $01,X
 CLR ,X
 CLRB
 JSR >OUTDC1
ZD2EB PULS PC,Y,X
 
ZD2ED LDX #DNRMSG
 JSR >PSTRG1
 BRA ZD2EB
 
ZD2F5 JSR >PCRLF1
 LDX #FCB
 LDA >ERRTYP
 DECA
 ANDA #$03
 LDB #$3F
 MUL
 ADDB #$04
 STB $22,X
ZD309 JSR >FMS
 BNE ZD2D7
 JSR >PUTCH1
 CMPA #$0D
 BNE ZD309
 LDA #$04
 STA ,X
 JSR >FMS
 BRA ZD2EB
ZD31E PSHS Y,X
 JMP >ZD100
 
ZD323 LDX #NFDMSG NOT FOUND
 JMP >ZCDE1
*
** CALL FLEX AS A SUBROUTINE
*
DOCMD1 PULS B,A
 STD >ZCC43
ZD32E STS >ZCC45
 CLR >ERRTYP
 INC >CMDFLG
 JMP >ZCDB8
ZD33B CLR >CMDFLG
 LDS >ZCC45
 LDB >ERRTYP
 JMP [ZCC43]
*
** ADD ACCB TO IX
*
ADDBX1 ABX
 RTS
 
ZD34B TST >ZCCFC
 BNE ZD354
 JMP [MONVEC]
 
ZD354 LDX #FCB
 LDA #$1B
 STA $01,X
 JSR >RPTER1
 JMP >WARM1
 
ZD361 FCC /ERRORS/
 FCB $00,$00
 FCC /SYS/
 END

Browse

Tools

Subversion Repositories System09

[/] [System09/] [rev_86/] [src/] [Flex9/] [f9-cli.asm] - Blame information for rev 147

Line No.	Rev	Author	Line
1	59	davidgb	`*********************************************`
2			`*`
3			`* FLEX COMMAND LINE INTERPRETER & SUBROUTINES`
4			`*`
5			`*********************************************`
6			`ORG $CD00`
7			`*`
8			`** FLEX JUMPS`
9			`*`
10			`COLDS JMP >COLD1`
11			`WARMS JMP >WARM1`
12			`RENTER JMP >RENT1`
13			`INCH JMP >INCH`
14			`INCH2 JMP >INCH2`
15			`OUTCH JMP >OUTCH`
16			`OUTCH2 JMP >OUTCH2`
17			`GETCHR JMP >GETCH1`
18			`PUTCHR JMP >PUTCH1`
19			`INBUFF JMP >INBUF1`
20			`PSTRNG JMP >PSTRG1`
21			`CLASS JMP >CLASS1`
22			`PCRLF JMP >PCRLF1`
23			`NXTCH JMP >NXTCH1`
24			`RSTRIO JMP >RSTIO1`
25			`GETFIL JMP >GETFL1`
26			`LOAD JMP >LOAD1`
27			`SETEXT JMP >SETEX1`
28			`ADDBX JMP >ADDBX1`
29			`OUTDEC JMP >OUTDC1`
30			`OUTHEX JMP >OUTHX1`
31			`RPTERR JMP >RPTER1`
32			`GETHEX JMP >GETHX1`
33			`OUTADR JMP >OUTAD1`
34			`INDEC JMP >INDEC1`
35			`DOCMND JMP >DOCMD1`
36			`ZCD4E JMP >ZCD4E`
37			`JMP >ZCE05`
38			`JMP >ZCE05`
39			`*`
40			`** COLD START ENTRY`
41			`*`
42			`COLD1 LDS #ZC07F`
43			`ZCD5B CLR >LASTRM`
44			`JSR >ZD400`
45			`CLR >CMDFLG`
46			`JSR >ZD3FD`
47			`*`
48			`** WARM START ENTRY`
49			`*`
50			`WARM1 LDS #ZC07F`
51			`JSR >WARMDR`
52			`LDX #WARMS`
53			`STX >ESCVEC`
54			`LDX #PRSPL1`
55			`STX [SWIVVC]`
56			`LDX >IHNDVC`
57			`STX [IRQVVC]`
58			`LDX #ZCCF8`
59			`STX >ZCC31`
60			`CLR >ZCC34`
61			`CLR >ZCC4C`
62			`BSR RSTIO1`
63			`LDA >LASTRM`
64			`CMPA >EOLCHR`
65			`BNE ZCD9D`
66			`INC >LINPTR+1`
67			`BRA RENT1`
68
69			`ZCD9D TST >CMDFLG`
70			`LBNE ZD33B`
71			`JSR >FMSCLS`
72			`BNE ZCD5B`
73			`LDX #PMTSTR`
74			`JSR >PSTRG1`
75			`BSR INBUF1`
76			`*`
77			`** MAIN CONTROL LOOP`
78			`*`
79			`RENT1 JSR >ZD0D4`
80			`CMPA #$0D`
81			`BEQ ZCD9D`
82			`ZCDB8 LDX #FCB`
83			`INC >ZCC0D`
84			`JSR >GETFL1`
85			`BCS ZCDD9`
86			`LDX #CMDTBL`
87			`BSR ZCE06`
88			`BEQ ZCDD3`
89			`LDX >UCTVEC`
90			`BEQ ZCDD6`
91			`BSR ZCE06`
92			`BNE ZCDD6`
93			`ZCDD3 JMP [$01,X]`
94
95			`ZCDD6 JSR >ZD22E`
96			`ZCDD9 LDX #WOTMSG`
97			`LDA #$15`
98			`ZCDDE STA >ERRTYP`
99			`ZCDE1 JSR >PSTRG1`
100			`ZCDE4 CLR >LASTRM`
101			`JMP >WARM1`
102			`*`
103			`** RESTORE IO VECTORS`
104			`*`
105			`RSTIO1 LDX >OUTCH2+1`
106			`STX >OUTCH+1`
107			`LDX >INCH2+1`
108			`STX >INCH+1`
109			`CLR >INPSWT`
110			`CLR >OUTSWT`
111			`CLR >SIOFLG`
112			`CLR >FIPADR`
113			`CLR >FOPADR`
114			`ZCE05 RTS`
115
116			`ZCE06 LDY #ZC844`
117			`ZCE0A LDA ,Y+`
118			`CMPA #$5F`
119			`BLS ZCE12`
120			`SUBA #$20`
121			`ZCE12 CMPA ,X+`
122			`BNE ZCE1E`
123			`TST ,X`
124			`BNE ZCE0A`
125			`TST ,Y`
126			`BEQ ZCE2A`
127			`ZCE1E TST ,X+`
128			`BNE ZCE1E`
129			`LEAX $02,X`
130			`TST ,X`
131			`BNE ZCE06`
132			`ANDCC #$FB`
133			`ZCE2A RTS`
134			`*`
135			`** GET USER COMMAND LINE`
136			`*`
137			`INBUF1 LDX #LINBUF`
138			`STX >LINPTR`
139			`ZCE31 JSR >GETCH1`
140			`CMPA >DELCHR`
141			`BEQ ZCE56`
142			`CMPA >BSPCHR`
143			`BEQ ZCE5D`
144			`CMPA #$0D`
145			`BEQ ZCE4F`
146			`CMPA #$0A`
147			`BEQ ZCE78`
148			`CMPA #$1F`
149			`BLS ZCE31`
150			`ZCE4A CMPX #ZC0FF`
151			`BEQ ZCE31`
152			`ZCE4F STA ,X+`
153			`CMPA #$0D`
154			`BNE ZCE31`
155			`RTS`
156
157			`ZCE56 LDX #QRYSTR`
158			`BSR PSTRG1`
159			`BRA INBUF1`
160
161			`ZCE5D CMPX #LINBUF`
162			`BEQ ZCE56`
163			`LEAX -$01,X`
164			`LDA >BSECHR`
165			`CMPA #$08`
166			`BNE ZCE73`
167			`LDA #$20`
168			`JSR >ZCF66`
169			`LDA >BSECHR`
170			`ZCE73 JSR >ZCF66`
171			`BRA ZCE31`
172
173			`ZCE78 LDA #$0D`
174			`JSR >PUTCH1`
175			`LDA #$20`
176			`BRA ZCE4A`
177
178			`PSTRG1 BSR PCRLF1`
179			`ZCE83 LDA ,X`
180			`CMPA #$04`
181			`BEQ ZCEF8`
182			`JSR >PUTCH1`
183			`LEAX $01,X`
184			`BRA ZCE83`
185
186			`ZCE90 JSR >ZCD4E`
187			`BEQ ZCEFA`
188			`JSR [ZD3E5]`
189			`CMPA >ESCCHR`
190			`BNE ZCEFA`
191			`ZCE9E CLR >CURLIN`
192			`ZCEA1 JSR [ZD3E5]`
193			`CMPA >ESCCHR`
194			`BEQ ZCEFA`
195			`CMPA #$03 CTRL C`
196			`BNE ZCEA1`
197			`CLR >LASTRM`
198			`JMP [ESCVEC]`
199			`*`
200			`** PRINT CR, LINEFEED`
201			`*`
202			`PCRLF1 TST >SIOFLG`
203			`BNE ZCEE1`
204			`BSR ZCE90`
205			`LDA >DEPCNT`
206			`BEQ ZCEE1`
207			`CMPA >CURLIN`
208			`BHI ZCEDE`
209			`CLR >CURLIN`
210			`TST >PAUSE`
211			`BEQ ZCED0`
212			`BSR ZCE9E`
213			`ZCED0 PSHS B`
214			`LDB >EJTCNT`
215			`BEQ ZCEDC`
216			`ZCED7 BSR ZCEE1`
217			`DECB`
218			`BNE ZCED7`
219			`ZCEDC PULS B`
220			`ZCEDE INC >CURLIN`
221			`ZCEE1 LDA #$0D`
222			`BSR PUTCH1`
223			`LDA #$0A`
224			`BSR PUTCH1`
225			`PSHS B`
226			`LDB >NULCNT`
227			`BEQ ZCEF6`
228			`ZCEF0 CLRA`
229			`BSR PUTCH1`
230			`DECB`
231			`BNE ZCEF0`
232			`ZCEF6 PULS B`
233			`ZCEF8 ANDCC #$FE`
234			`ZCEFA RTS`
235			`*`
236			`** GET A CHARACTER HONOURING TTYSET`
237			`*`
238			`GETCH1 TST >INPSWT`
239			`BNE ZCF1A`
240			`TST >FIPADR`
241			`BEQ ZCF15`
242			`BSR ZCF21`
243			`TST >FIEFLG`
244			`BEQ ZCF1D`
245			`TST >FOPADR`
246			`BEQ ZCF1D`
247			`BSR ZCF66`
248			`BRA ZCF1D`
249			`ZCF15 JSR >INCH`
250			`BRA ZCF1D`
251
252			`ZCF1A JSR >INCH2`
253			`ZCF1D CLR >CURLIN`
254			`RTS`
255
256			`ZCF21 STX >ZCC47`
257			`LDX >FIPADR`
258			`BRA ZCF2F`
259
260			`ZCF29 STX >ZCC47`
261			`LDX >FOPADR`
262			`ZCF2F JSR >FMS`
263			`BNE ZCF38`
264			`LDX >ZCC47`
265			`RTS`
266
267			`ZCF38 CLR >FOPADR`
268			`JSR >RPTER1`
269			`JMP >WARMS`
270			`*`
271			`** OUTPUT CHARACTER HONOURING TTYSET`
272			`*`
273			`PUTCH1 TST >SIOFLG`
274			`BNE ZCF66`
275			`CMPA #$1F`
276			`BHI ZCF4F`
277			`CLR >CURCOL`
278			`BRA ZCF66`
279
280			`ZCF4F INC >CURCOL`
281			`PSHS A`
282			`LDA >WIDCNT`
283			`BEQ ZCF64`
284			`CMPA >CURCOL`
285			`BCC ZCF64`
286			`JSR >PCRLF1`
287			`INC >CURCOL`
288			`ZCF64 PULS A`
289			`ZCF66 PSHS A`
290			`TST >OUTSWT`
291			`BNE ZCF80`
292			`TST >FOPADR`
293			`BEQ ZCF76`
294			`BSR ZCF29`
295			`BRA ZCF83`
296
297			`ZCF76 TST >FIPADR`
298			`BNE ZCF83`
299			`JSR >OUTCH`
300			`BRA ZCF83`
301			`ZCF80 JSR >OUTCH2`
302			`ZCF83 PULS A`
303			`RTS`
304
305			`OUTDC1 CLR >ZCC4A`
306			`STB >TRNFLG`
307			`LDA #$04`
308			`STA >ZCC4D`
309			`LDD ,X`
310			`LDX #DECTBL`
311			`ZCF96 BSR ZCFA3`
312			`LEAX $02,X`
313			`DEC >ZCC4D`
314			`BNE ZCF96`
315			`TFR B,A`
316			`BRA OUTHXR`
317
318			`ZCFA3 CLR >ZCC4B`
319			`ZCFA6 CMPD ,X`
320			`BCS ZCFB2`
321			`SUBD ,X`
322			`INC >ZCC4B`
323			`BRA ZCFA6`
324
325			`ZCFB2 PSHS A`
326			`LDA >ZCC4B`
327			`BNE ZCFC9`
328			`TST >ZCC4A`
329			`BNE ZCFC9`
330			`TST >TRNFLG`
331			`BEQ ZCFCE`
332			`LDA #$20`
333			`BSR ZCFEA`
334			`BRA ZCFCE`
335
336			`ZCFC9 INC >ZCC4A`
337			`BSR OUTHXR`
338			`ZCFCE PULS PC,A`
339			`*`
340			`** DISPLAY HEX ADDRESS`
341			`*`
342			`OUTAD1 BSR OUTHX1`
343			`LEAX $01,X`
344			`*`
345			`** OUPUT HEX BYTE`
346			`*`
347			`OUTHX1 LDA ,X`
348			`BSR OUTHXL`
349			`LDA ,X`
350			`BRA OUTHXR`
351
352			`OUTHXL LSRA`
353			`LSRA`
354			`LSRA`
355			`LSRA`
356			`OUTHXR ANDA #$0F`
357			`ADDA #$30`
358			`CMPA #$39`
359			`BLS ZCFEA`
360			`ADDA #$07`
361			`ZCFEA JMP >PUTCH1`
362			`*`
363			`** CLASSIFY CHARACTER ALHA/NUMERIC`
364			`*`
365			`CLASS1 CMPA #'0`
366			`BCS ZD005`
367			`CMPA #'9`
368			`BLS ZD00B`
369			`CMPA #'A`
370			`BCS ZD005`
371			`CMPA #'Z`
372			`BLS ZD00B`
373			`CMPA #'a $61`
374			`BCS ZD005`
375			`CMPA #'z $7A`
376			`BLS ZD00B`
377			`ZD005 ORCC #$01`
378			`STA >LASTRM`
379			`RTS`
380			`ZD00B ANDCC #$FE`
381			`RTS`
382			`*`
383			`** GET NEXT CHARACTER FROM FILE`
384			`*`
385			`NXTCH1 PSHS X`
386			`LDX >LINPTR`
387			`LDA >CURCHR`
388			`STA >PRVCHR`
389			`ZD019 LDA ,X+`
390			`STA >CURCHR`
391			`CMPA #$0D`
392			`BEQ ZD032`
393			`CMPA >EOLCHR`
394			`BEQ ZD032`
395			`STX >LINPTR`
396			`CMPA #$20`
397			`BNE ZD032`
398			`CMPA ,X`
399			`BEQ ZD019`
400			`ZD032 BSR CLASS1`
401			`PULS PC,X`
402			`*`
403			`** PARSE FILE SPEC. IN LINE BUFFER`
404			`*`
405			`GETFL1 LDA #$15`
406			`STA $01,X`
407			`LDA #$FF`
408			`STA $03,X`
409			`CLR $04,X`
410			`CLR $0C,X`
411			`JSR >ZD0D4`
412			`LDA #$08`
413			`STA >ZCC4B`
414			`BSR ZD080`
415			`BCS ZD07C`
416			`BNE ZD05F`
417			`BSR ZD080`
418			`BCS ZD07C`
419			`BNE ZD05F`
420			`CMPX >ZCC3F`
421			`BEQ ZD0C7`
422			`BSR ZD080`
423			`BLS ZD0C7`
424			`ZD05F LDX >ZCC3F`
425			`TST $04,X`
426			`BEQ ZD0C7`
427			`TST $03,X`
428			`BPL ZD079`
429			`TST >ZCC0D`
430			`BEQ ZD074`
431			`LDA >SYSDRV`
432			`BRA ZD077`
433
434			`ZD074 LDA >WRKDRV`
435			`ZD077 STA $03,X`
436			`ZD079 CLR >ZCC0D`
437			`ZD07C LDX >ZCC3F`
438			`RTS`
439
440			`ZD080 BSR NXTCH1`
441			`BCS ZD0C7`
442			`CMPA #$39`
443			`BHI ZD09D`
444			`LDX >ZCC3F`
445			`TST $03,X`
446			`BPL ZD0C7`
447			`ANDA #$03`
448			`STA $03,X`
449			`JSR >NXTCH1`
450			`BCC ZD0C7`
451			`ZD098 CMPA #$2E`
452			`ANDCC #$FE`
453			`RTS`
454
455			`ZD09D LDB >ZCC4B`
456			`BMI ZD0C7`
457			`PSHS B`
458			`SUBB #$05`
459			`STB >ZCC4B`
460			`PULS B`
461			`ZD0AB CMPA >MAPUP`
462			`BCS ZD0B2`
463			`SUBA #$20`
464			`ZD0B2 STA $04,X`
465			`LEAX $01,X`
466			`DECB`
467			`JSR >NXTCH1`
468			`BCC ZD0C4`
469			`CMPA #$2D`
470			`BEQ ZD0C4`
471			`CMPA #$5F`
472			`BNE ZD0CA`
473			`ZD0C4 TSTB`
474			`BNE ZD0AB`
475			`ZD0C7 ORCC #$01`
476			`RTS`
477
478			`ZD0CA TSTB`
479			`BEQ ZD098`
480			`CLR $04,X`
481			`LEAX $01,X`
482			`DECB`
483			`BRA ZD0CA`
484
485			`ZD0D4 STX >ZCC3F`
486			`LDX >LINPTR`
487			`ZD0DA LDA ,X`
488			`CMPA #$20`
489			`BNE ZD0E4`
490			`LEAX $01,X`
491			`BRA ZD0DA`
492			`ZD0E4 STX >LINPTR`
493			`LDX >ZCC3F`
494			`RTS`
495			`*`
496			`** DEFAULT FILE EXTENSION`
497			`*`
498			`SETEX1 PSHS Y,X`
499			`LDB $0C,X`
500			`BNE ZD109`
501			`LDY #EXTTBL`
502			`CMPA #$0B`
503			`BHI ZD109`
504			`LDB #$03`
505			`MUL`
506			`LEAY B,Y`
507			`LDB #$03`
508			`ZD100 LDA ,Y+`
509			`STA $0C,X`
510			`LEAX $01,X`
511			`DECB`
512			`BNE ZD100`
513			`ZD109 PULS PC,Y,X`
514			`*`
515			`** STANDARD FILE NAME EXTTENSIONS`
516			`*`
517			`EXTTBL FCC "BIN"`
518			`FCC "TXT"`
519			`FCC "CMD"`
520			`FCC "BAS"`
521			`FCC "SYS"`
522			`FCC "BAK"`
523			`FCC "SCR"`
524			`FCC "DAT"`
525			`FCC "BAC"`
526			`FCC "DIR"`
527			`FCC "PRT"`
528			`FCC "OUT"`
529			`*`
530			`** READ A HEX ADDRESS FROM THE LINE BUFFER`
531			`*`
532			`GETHX1 JSR >ZD21E`
533			`ZD132 JSR >NXTCH1`
534			`BCS ZD159`
535			`BSR ZD15F`
536			`BCS ZD153`
537			`PSHS B`
538			`LDB #$04`
539			`ZD13F ASL >LODOFF+1`
540			`ROL >LODOFF`
541			`DECB`
542			`BNE ZD13F`
543			`PULS B`
544			`ADDA >LODOFF+1`
545			`STA >LODOFF+1`
546			`INCB`
547			`BRA ZD132`
548
549			`ZD153 JSR >NXTCH1`
550			`BCC ZD153`
551			`RTS`
552
553			`ZD159 LDX >LODOFF`
554			`ANDCC #$FE`
555			`RTS`
556
557			`ZD15F SUBA #$47`
558			`BPL ZD172`
559			`ADDA #$06`
560			`BPL ZD16B`
561			`ADDA #$07`
562			`BPL ZD172`
563			`ZD16B ADDA #$0A`
564			`BMI ZD172`
565			`ANDCC #$FE`
566			`RTS`
567
568			`ZD172 ORCC #$01`
569			`RTS`
570
571			`INDEC1 JSR >ZD21E`
572			`ZD178 JSR >NXTCH1`
573			`BCS ZD159`
574			`CMPA #$39`
575			`BHI ZD153`
576			`ANDA #$0F`
577			`PSHS B`
578			`PSHS A`
579			`LDD >LODOFF`
580			`ASLB`
581			`ROLA`
582			`ASLB`
583			`ROLA`
584			`ASLB`
585			`ROLA`
586			`ADDD >LODOFF`
587			`ADDD >LODOFF`
588			`ADDB ,S+`
589			`ADCA #$00`
590			`STD >LODOFF`
591			`PULS B`
592			`INCB`
593			`BRA ZD178`
594			`*`
595			`** LOAD BINARY FILE`
596			`*`
597			`LOAD1 CLR >TRNFLG`
598			`ZD1A5 BSR ZD1E4`
599			`CMPA #$02`
600			`BEQ ZD1C0`
601			`CMPA #$16`
602			`BNE ZD1A5`
603			`BSR ZD1E4`
604			`STA >TRNVEC`
605			`BSR ZD1E4`
606			`STA >TRNVEC+1`
607			`LDA #$01`
608			`STA >TRNFLG`
609			`BRA ZD1A5`
610
611			`ZD1C0 BSR ZD1E4`
612			`TFR A,B`
613			`BSR ZD1E4`
614			`EXG A,B`
615			`ADDD >LODOFF`
616			`STD >ZCC3D`
617			`BSR ZD1E4`
618			`TFR A,B`
619			`TSTA`
620			`BEQ ZD1A5`
621			`ZD1D5 BSR ZD1E4`
622			`LDX >ZCC3D`
623			`STA ,X+`
624			`STX >ZCC3D`
625			`DECB`
626			`BNE ZD1D5`
627			`BRA ZD1A5`
628
629			`ZD1E4 LDX #FCB`
630			`JSR >FMS`
631			`BEQ ZD1FD`
632			`LDA $01,X`
633			`CMPA #$08`
634			`BNE ZD200`
635			`LEAS $02,S`
636			`ZD1F4 LDA #$04`
637			`STA ,X`
638			`JSR >FMS`
639			`BNE ZD20A`
640			`ZD1FD ANDCC #$FE`
641			`RTS`
642
643			`ZD200 STA >ERRTYP`
644			`CMPA #$04`
645			`BNE ZD20A`
646			`ORCC #$01`
647			`RTS`
648
649			`ZD20A BSR RPTER1`
650			`JMP >ZCDE4`
651			`*`
652			`** 'GET' - LOAD BINARY FILE`
653			`*`
654			`GETCMD LDA #$00`
655			`BSR ZD248`
656			`BCS ZD224`
657			`BSR ZD21E`
658			`INC >ZCC4C`
659			`BSR LOAD1`
660			`BRA GETCMD`
661
662			`ZD21E CLRA`
663			`CLRB`
664			`STD >LODOFF`
665			`RTS`
666
667			`ZD224 LDB >ZCC4C`
668			`LBEQ ZCDD9`
669			`JMP >WARMS`
670
671			`ZD22E LDA #$02`
672			`BSR ZD254`
673			`BSR ZD21E`
674			`JSR >LOAD1`
675			`LDB >TRNFLG`
676			`BEQ ZD240`
677			`JMP [TRNVEC]`
678
679			`ZD240 LDX #NTRMSG`
680			`LDA #$81`
681			`JMP >ZCDDE`
682
683			`ZD248 PSHS A`
684			`LDX #FCB`
685			`JSR >GETFL1`
686			`PULS A`
687			`BCS ZD26E`
688			`ZD254 LDX #FCB`
689			`JSR >SETEX1`
690			`LDX #FCB`
691			`LDA #$01`
692			`STA ,X`
693			`JSR >ZD1E4`
694			`LBCS ZD323`
695			`LDA #$FF`
696			`STA $3B,X`
697			`RTS`
698
699			`ZD26E LDA >LASTRM`
700			`CMPA #$0D`
701			`BEQ ZD27C`
702			`CMPA >EOLCHR`
703			`LBNE ZCDD9`
704			`ZD27C ORCC #$01`
705			`RTS`
706
707			`RPTER1 PSHS Y,X`
708			`LDA $01,X`
709			`STA >ERRTYP`
710			`BEQ ZD2EB`
711			`JSR >RSTIO1`
712			`LDY >ERRVEC`
713			`BNE ZD299`
714			`CMPA #$10`
715			`BEQ ZD2ED`
716			`LDY #ZD361`
717			`ZD299 LDX #FCB`
718			`TST $02,X`
719			`BEQ ZD2A9`
720			`LDA #$04`
721			`STA ,X`
722			`JSR >FMS`
723			`BNE ZD2D7`
724			`ZD2A9 LDX #ZC838`
725			`LDB #$0B`
726			`BSR ZD31E`
727			`LDX #FCB`
728			`LDA >SYSDRV`
729			`STA $03,X`
730			`LDA #$01`
731			`STA ,X`
732			`JSR >FMS`
733			`BNE ZD2D7`
734			`LDA >ERRTYP`
735			`DECA`
736			`ASRA`
737			`ASRA`
738			`INCA`
739			`CLR $20,X`
740			`STA $21,X`
741			`LDA #$15`
742			`STA ,X`
743			`JSR >FMS`
744			`BEQ ZD2F5`
745			`ZD2D7 LDX #DERMSG`
746			`JSR >PSTRG1`
747			`LDX >ZCC3F`
748			`LDA >ERRTYP`
749			`STA $01,X`
750			`CLR ,X`
751			`CLRB`
752			`JSR >OUTDC1`
753			`ZD2EB PULS PC,Y,X`
754
755			`ZD2ED LDX #DNRMSG`
756			`JSR >PSTRG1`
757			`BRA ZD2EB`
758
759			`ZD2F5 JSR >PCRLF1`
760			`LDX #FCB`
761			`LDA >ERRTYP`
762			`DECA`
763			`ANDA #$03`
764			`LDB #$3F`
765			`MUL`
766			`ADDB #$04`
767			`STB $22,X`
768			`ZD309 JSR >FMS`
769			`BNE ZD2D7`
770			`JSR >PUTCH1`
771			`CMPA #$0D`
772			`BNE ZD309`
773			`LDA #$04`
774			`STA ,X`
775			`JSR >FMS`
776			`BRA ZD2EB`
777			`ZD31E PSHS Y,X`
778			`JMP >ZD100`
779
780			`ZD323 LDX #NFDMSG NOT FOUND`
781			`JMP >ZCDE1`
782			`*`
783			`** CALL FLEX AS A SUBROUTINE`
784			`*`
785			`DOCMD1 PULS B,A`
786			`STD >ZCC43`
787			`ZD32E STS >ZCC45`
788			`CLR >ERRTYP`
789			`INC >CMDFLG`
790			`JMP >ZCDB8`
791			`ZD33B CLR >CMDFLG`
792			`LDS >ZCC45`
793			`LDB >ERRTYP`
794			`JMP [ZCC43]`
795			`*`
796			`** ADD ACCB TO IX`
797			`*`
798			`ADDBX1 ABX`
799			`RTS`
800
801			`ZD34B TST >ZCCFC`
802			`BNE ZD354`
803			`JMP [MONVEC]`
804
805			`ZD354 LDX #FCB`
806			`LDA #$1B`
807			`STA $01,X`
808			`JSR >RPTER1`
809			`JMP >WARM1`
810
811			`ZD361 FCC /ERRORS/`
812			`FCB $00,$00`
813			`FCC /SYS/`
814			`END`