Corrected weird error text getting mixed into output; reformatted to use tabs; tweaked code to keep within 256 bytes.
This commit is contained in:
Rob Greene
parent
f905feca72
commit
6ab8d6b7d6
|
|
@ -4,131 +4,132 @@
|
|||
; Copyright (c) 2015 Rob Greene. All rights reserved.
|
||||
;
|
||||
|
||||
.PC02 ; Enable 65C02 instructions
|
||||
.PC02 ; Enable 65C02 instructions
|
||||
|
||||
; ASCII string with high-bit set, terminated by a zero
|
||||
.macro asciizh string
|
||||
.repeat .strlen(string),i
|
||||
.byte .strat(string,i) | $80
|
||||
.endrep
|
||||
.byte 0
|
||||
.repeat .strlen(string),i
|
||||
.byte .strat(string,i) | $80
|
||||
.endrep
|
||||
.byte 0
|
||||
.endmacro
|
||||
|
||||
; ASCII string with high-bit set
|
||||
.macro asciih string
|
||||
.repeat .strlen(string),i
|
||||
.byte .strat(string,i) | $80
|
||||
.endrep
|
||||
.repeat .strlen(string),i
|
||||
.byte .strat(string,i) | $80
|
||||
.endrep
|
||||
.endmacro
|
||||
|
||||
; Dextral (right-most) Character Inverted
|
||||
.macro dci string
|
||||
.repeat .strlen(string),i
|
||||
.if .strlen(string) = i
|
||||
.byte .strat(string,i) | $80
|
||||
.else
|
||||
.byte .strat(string,i) & $7f
|
||||
.endif
|
||||
.endrep
|
||||
.repeat .strlen(string),i
|
||||
.if .strlen(string) = i
|
||||
.byte .strat(string,i) | $80
|
||||
.else
|
||||
.byte .strat(string,i) & $7f
|
||||
.endif
|
||||
.endrep
|
||||
.endmacro
|
||||
|
||||
; BASIC.SYSTEM locations:
|
||||
|
||||
inbuf = $0200
|
||||
extrncmd = $be06 ; External command JMP vector
|
||||
xtrnaddr = $be50 ; Execution address of external command
|
||||
xlen = $be52 ; Length of command string-1
|
||||
xcnum = $be53 ; BASIC cmd number (external command = 0)
|
||||
pbits = $be54 ; Parameter bits allowed (2 bytes)
|
||||
fbits = $be56 ; Parameter bits found
|
||||
vslot = $be61
|
||||
vdriv = $be62
|
||||
gosystem = $be70
|
||||
xreturn = $be9e ; Guaranteed RTS instruction
|
||||
sonline = $bec6 ; BASIC.SYSTEM ONLINE parameter table
|
||||
sunitnum = $bec7
|
||||
sbufadr = $bec8
|
||||
getbufr = $bef5
|
||||
inbuf = $0200
|
||||
extrncmd = $be06 ; External command JMP vector
|
||||
xtrnaddr = $be50 ; Execution address of external command
|
||||
xlen = $be52 ; Length of command string-1
|
||||
xcnum = $be53 ; BASIC cmd number (external command = 0)
|
||||
pbits = $be54 ; Parameter bits allowed (2 bytes)
|
||||
fbits = $be56 ; Parameter bits found
|
||||
vslot = $be61
|
||||
vdriv = $be62
|
||||
gosystem = $be70
|
||||
xreturn = $be9e ; Guaranteed RTS instruction
|
||||
sonline = $bec6 ; BASIC.SYSTEM ONLINE parameter table
|
||||
sunitnum = $bec7
|
||||
sbufadr = $bec8
|
||||
getbufr = $bef5
|
||||
|
||||
; Parameter bits flags (note setup for two bytes and for lo/hi usage)
|
||||
|
||||
pfix = $0080 ; Prefix needs fetching, pathname optional
|
||||
slot = $0040 ; No parameters to be processed
|
||||
rrun = $0020 ; Command only valid during program
|
||||
fnopt = $0010 ; Filename is optional
|
||||
crflg = $0008 ; CREATE allowed
|
||||
t = $0004 ; File type
|
||||
fn2 = $0002 ; Filename #2 for RENAME
|
||||
fn1 = $0001 ; Filename expected
|
||||
pfix = $0080 ; Prefix needs fetching, pathname optional
|
||||
slot = $0040 ; No parameters to be processed
|
||||
rrun = $0020 ; Command only valid during program
|
||||
fnopt = $0010 ; Filename is optional
|
||||
crflg = $0008 ; CREATE allowed
|
||||
t = $0004 ; File type
|
||||
fn2 = $0002 ; Filename #2 for RENAME
|
||||
fn1 = $0001 ; Filename expected
|
||||
|
||||
ad = $8000 ; Address
|
||||
b = $4000 ; Byte
|
||||
e = $2000 ; End address
|
||||
l = $1000 ; Length
|
||||
line = $0800 ; '@' line number
|
||||
sd = $0400 ; Slot and drive numbers
|
||||
f = $0200 ; Field
|
||||
r = $0100 ; Record
|
||||
v = $0000 ; Volume number ignored
|
||||
ad = $8000 ; Address
|
||||
b = $4000 ; Byte
|
||||
e = $2000 ; End address
|
||||
l = $1000 ; Length
|
||||
line = $0800 ; '@' line number
|
||||
sd = $0400 ; Slot and drive numbers
|
||||
f = $0200 ; Field
|
||||
r = $0100 ; Record
|
||||
v = $0000 ; Volume number ignored
|
||||
|
||||
; MONITOR locations:
|
||||
|
||||
crout = $fd8e
|
||||
prbyte = $fdda
|
||||
cout = $fded
|
||||
crout = $fd8e
|
||||
prbyte = $fdda
|
||||
prhex = $fde3
|
||||
cout = $fded
|
||||
|
||||
; Application stuff:
|
||||
|
||||
cptr = $0c ; Code pointer
|
||||
dptr = $0e ; Data pointer
|
||||
buffer = inbuf
|
||||
dptr = $0e ; Data pointer
|
||||
buffer = inbuf
|
||||
codelen = (_CodeEndAddress - _CodeBeginAddress)
|
||||
|
||||
|
||||
.org $2000
|
||||
.org $2000
|
||||
|
||||
install:
|
||||
|
||||
; Requires 65C02 or later:
|
||||
sed
|
||||
lda #$99
|
||||
clc
|
||||
adc #$01
|
||||
cld
|
||||
bpl @not6502
|
||||
sed
|
||||
lda #$99
|
||||
clc
|
||||
adc #$01
|
||||
cld
|
||||
bpl @not6502
|
||||
|
||||
@6502:
|
||||
jsr printz
|
||||
asciizh "ERR: MUST HAVE ENHANCED //E, //C, OR IIGS"
|
||||
rts
|
||||
jsr printz
|
||||
asciizh "ERR: MUST HAVE ENHANCED //E, //C, OR IIGS"
|
||||
rts
|
||||
|
||||
; Get address from BASIC.SYSTEM:
|
||||
@not6502:
|
||||
lda #1
|
||||
jsr getbufr
|
||||
bcc @gotmem
|
||||
lda #1
|
||||
jsr getbufr
|
||||
bcc @gotmem
|
||||
|
||||
@nomem:
|
||||
jsr printz
|
||||
asciizh "UNABLE TO ALLOCATE MEMORY"
|
||||
rts
|
||||
jsr printz
|
||||
asciizh "UNABLE TO ALLOCATE MEMORY"
|
||||
rts
|
||||
|
||||
@gotmem:
|
||||
sta cptr+1
|
||||
stz cptr
|
||||
sta cptr+1
|
||||
stz cptr
|
||||
|
||||
; Move code to destination address:
|
||||
ldy #0
|
||||
: lda _CodeStartAddress,y
|
||||
sta (cptr),y
|
||||
iny
|
||||
bne :-
|
||||
ldy #0
|
||||
: lda _CodeStartAddress,y
|
||||
sta (cptr),y
|
||||
iny
|
||||
bne :-
|
||||
|
||||
; Patch code for new location - ASSUMES 1 PAGE ONLY!
|
||||
ldy #0
|
||||
@copy:
|
||||
lda (cptr),y
|
||||
jsr ilen ; calculate instruction length
|
||||
jsr ilen ; calculate instruction length
|
||||
tax
|
||||
cpx #3
|
||||
bne :+
|
||||
|
|
@ -150,81 +151,82 @@ install:
|
|||
; Setup BASIC.SYSTEM hooks:
|
||||
; 1. Save EXTRNCMD
|
||||
lda extrncmd+2
|
||||
ldy #<nextcmd+1
|
||||
sta (cptr),y
|
||||
lda extrncmd+1
|
||||
dey
|
||||
sta (cptr),y
|
||||
ldy #<nextcmd+2
|
||||
sta (cptr),y
|
||||
lda extrncmd+1
|
||||
dey
|
||||
sta (cptr),y
|
||||
; 2. Place our hook into EXTRNCMD
|
||||
lda cptr+1
|
||||
sta extrncmd+2
|
||||
lda #<entry
|
||||
sta extrncmd+1
|
||||
lda cptr+1
|
||||
sta extrncmd+2
|
||||
lda #<entry
|
||||
sta extrncmd+1
|
||||
|
||||
; Notify user:
|
||||
jsr printz
|
||||
asciizh "ONLINE COMMAND INSTALLED"
|
||||
rts
|
||||
jsr printz
|
||||
asciizh "ONLINE COMMAND INSTALLED"
|
||||
rts
|
||||
|
||||
printz:
|
||||
pla
|
||||
sta dptr
|
||||
pla
|
||||
sta dptr+1
|
||||
@L: inc dptr
|
||||
bne :+
|
||||
inc dptr+1
|
||||
: lda (dptr)
|
||||
beq @X
|
||||
jsr cout
|
||||
bra @L
|
||||
@X: lda dptr+1
|
||||
pha
|
||||
lda dptr
|
||||
pha
|
||||
rts
|
||||
pla
|
||||
sta dptr
|
||||
pla
|
||||
sta dptr+1
|
||||
@L: inc dptr
|
||||
bne :+
|
||||
inc dptr+1
|
||||
: lda (dptr)
|
||||
beq @X
|
||||
jsr cout
|
||||
bra @L
|
||||
@X: lda dptr+1
|
||||
pha
|
||||
lda dptr
|
||||
pha
|
||||
rts
|
||||
|
||||
.include "../shared/ilen.asm"
|
||||
|
||||
; =======================================
|
||||
|
||||
_CodeStartAddress:
|
||||
.org $6000
|
||||
.org $6000
|
||||
|
||||
_CodeBeginAddress:
|
||||
entry:
|
||||
cld ; For BASIC.SYSTEM's happiness
|
||||
ldx #6
|
||||
: lda inbuf-1,x
|
||||
cmp #$e0 ; Force input to UPPERCASE for comparison
|
||||
bcc :+
|
||||
and #$df
|
||||
: cmp cmdtable-1,x
|
||||
bne notOurCommand
|
||||
dex
|
||||
bne :--
|
||||
cld ; For BASIC.SYSTEM's happiness
|
||||
ldx #cmdlen
|
||||
: lda inbuf-1,x
|
||||
cmp #$e0 ; Force input to UPPERCASE for comparison
|
||||
bcc :+
|
||||
and #$df
|
||||
: cmp cmdtable-1,x
|
||||
bne notOurCommand
|
||||
dex
|
||||
bne :--
|
||||
|
||||
; Setup for BASIC.SYSTEM to parse
|
||||
opts = fnopt|sd ; Filename is optional (due to glitch) and slot and drive
|
||||
lda #cmdlen-1
|
||||
sta xlen
|
||||
lda #<online
|
||||
sta xtrnaddr
|
||||
opts = fnopt|sd ; Filename is optional (due to glitch) and slot and drive
|
||||
lda #cmdlen-1
|
||||
sta xlen
|
||||
lda #<online
|
||||
sta xtrnaddr
|
||||
jsr xreturn
|
||||
tsx
|
||||
lda $100,x ; Retrieve address from stack
|
||||
sta xtrnaddr+1
|
||||
stz xcnum
|
||||
lda #<opts
|
||||
sta pbits
|
||||
lda #>opts
|
||||
sta pbits+1
|
||||
clc
|
||||
rts
|
||||
lda $100,x ; Retrieve address from stack
|
||||
sta xtrnaddr+1
|
||||
stz xcnum
|
||||
lda #<opts
|
||||
sta pbits
|
||||
lda #>opts
|
||||
sta pbits+1
|
||||
clc
|
||||
rts
|
||||
|
||||
notOurCommand:
|
||||
sec
|
||||
jmp (nextcmd)
|
||||
sec
|
||||
nextcmd:
|
||||
jmp $0000 ; Filled in by installer
|
||||
|
||||
;
|
||||
; Perform ONLINE command
|
||||
|
|
@ -242,116 +244,117 @@ notOurCommand:
|
|||
; S5 D1 ERR=$57 (S7 D1)
|
||||
;
|
||||
online:
|
||||
lda fbits+1
|
||||
and #>sd
|
||||
beq @1 ; Bit was NOT set; Acc = 0
|
||||
lda vdriv ; 1 or 2, use 2nd bit to toggle drive (then drive 1 has bit off, drive 2 has bit on)
|
||||
and #%00000010
|
||||
asl
|
||||
asl
|
||||
ora vslot
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
@1: sta sunitnum
|
||||
stz sbufadr
|
||||
lda #>buffer
|
||||
sta sbufadr+1
|
||||
lda fbits+1
|
||||
and #>sd
|
||||
beq @1 ; Bit was NOT set; Acc = 0
|
||||
lda vdriv ; 1 or 2, use 2nd bit to toggle drive (then drive 1 has bit off, drive 2 has bit on)
|
||||
and #%00000010
|
||||
asl
|
||||
asl
|
||||
ora vslot
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
asl
|
||||
@1: sta sunitnum
|
||||
stz sbufadr
|
||||
lda #>buffer
|
||||
sta sbufadr+1
|
||||
; Note: if we have a specific unit, the buffer will not be zero terminated -- fake it!
|
||||
stz buffer+16
|
||||
lda #$C5 ; ONLINE system command
|
||||
jsr gosystem
|
||||
stz buffer+16
|
||||
lda #$C5 ; ONLINE system command
|
||||
jsr gosystem
|
||||
|
||||
@continue:
|
||||
ldx #0
|
||||
jsr crout
|
||||
ldx #0
|
||||
@loop:
|
||||
ldy buffer,x
|
||||
beq @exit
|
||||
jsr printsd
|
||||
jsr printspc
|
||||
tya
|
||||
and #$0f
|
||||
beq @deverr
|
||||
tay
|
||||
lda #'/'|$80
|
||||
: jsr cout
|
||||
inx
|
||||
lda buffer,x
|
||||
ora #$80
|
||||
dey
|
||||
bpl :-
|
||||
ldy buffer,x
|
||||
beq @exit
|
||||
jsr printsd
|
||||
jsr printspc
|
||||
tya
|
||||
and #$0f
|
||||
beq @deverr
|
||||
tay
|
||||
lda #'/'|$80
|
||||
: jsr cout
|
||||
inx
|
||||
lda buffer,x
|
||||
ora #$80
|
||||
dey
|
||||
bpl :-
|
||||
@adjust:
|
||||
jsr crout
|
||||
txa
|
||||
and #$0f ; Check if we advanced past this buffer
|
||||
beq @loop
|
||||
txa
|
||||
and #$f0
|
||||
clc
|
||||
adc #$10
|
||||
tax
|
||||
bne @loop
|
||||
jsr crout
|
||||
txa
|
||||
and #$0f ; Check if we advanced past this buffer
|
||||
beq @loop
|
||||
txa
|
||||
and #$f0
|
||||
clc
|
||||
adc #$10
|
||||
tax
|
||||
bne @loop
|
||||
@exit:
|
||||
jmp crout
|
||||
jsr crout
|
||||
clc
|
||||
rts
|
||||
; A device error message
|
||||
@deverr:
|
||||
ldy #0
|
||||
: lda msgERR,y
|
||||
beq :+
|
||||
jsr cout
|
||||
iny
|
||||
bne :-
|
||||
: inx
|
||||
lda buffer,x
|
||||
tay ; short-term save
|
||||
jsr prbyte
|
||||
tya
|
||||
cmp #$57 ; duplicate volume error
|
||||
bne @adjust
|
||||
jsr printspc
|
||||
lda #'('|$80
|
||||
jsr cout
|
||||
inx
|
||||
ldy buffer,x
|
||||
jsr printsd
|
||||
lda #')'|$80
|
||||
jsr cout
|
||||
bra @adjust
|
||||
ldy #0
|
||||
: lda msgERR,y
|
||||
beq :+
|
||||
jsr cout
|
||||
iny
|
||||
bne :-
|
||||
: inx
|
||||
lda buffer,x
|
||||
tay ; short-term save
|
||||
jsr prbyte
|
||||
tya
|
||||
cmp #$57 ; duplicate volume error
|
||||
bne @adjust
|
||||
jsr printspc
|
||||
lda #'('|$80
|
||||
jsr cout
|
||||
inx
|
||||
ldy buffer,x
|
||||
jsr printsd
|
||||
lda #')'|$80
|
||||
jsr cout
|
||||
bra @adjust
|
||||
|
||||
printsd:
|
||||
lda #'S'|$80
|
||||
jsr cout
|
||||
tya
|
||||
and #$70
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
ora #'0'|$80
|
||||
jsr cout
|
||||
lda #','|$80
|
||||
jsr cout
|
||||
lda #'D'|$80
|
||||
jsr cout
|
||||
tya
|
||||
and #$80
|
||||
asl ; Drive 2 will set carry...
|
||||
adc #'1'|$80 ; ... making the '1' a '2'
|
||||
jmp cout
|
||||
lda #'S'|$80
|
||||
jsr cout
|
||||
tya
|
||||
and #$70
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
lsr
|
||||
jsr prhex
|
||||
lda #','|$80
|
||||
jsr cout
|
||||
lda #'D'|$80
|
||||
jsr cout
|
||||
tya
|
||||
and #$80
|
||||
asl ; Drive 2 will set carry...
|
||||
adc #'1'|$80 ; ... making the '1' a '2'
|
||||
bra _cout ; Saving 1 byte
|
||||
|
||||
printspc:
|
||||
lda #' '|$80
|
||||
jmp cout
|
||||
lda #' '|$80
|
||||
_cout:
|
||||
jmp cout
|
||||
|
||||
_CodeEndAddress:
|
||||
|
||||
msgERR:
|
||||
asciizh "ERR=$"
|
||||
asciizh "ERR=$"
|
||||
|
||||
cmdtable:
|
||||
asciih "ONLINE"
|
||||
asciih "ONLINE"
|
||||
cmdlen = *-cmdtable
|
||||
|
||||
nextcmd: .word 0
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue