Subversion Repositories System09

*********************************************
*
* 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