A2osX/SCMASM.30/SCI.S.ONLINE.txt

76 lines
1.7 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

NEW
AUTO 3,1
*--------------------------------------
ONLINE LDA BUFFER.BASES
STA MISC.PARMS+3
LDA #0
STA MISC.PARMS+2
STA MISC.PARMS+1
JSR MLI.C5 (Might clobber DRIVER.PTR)
*---Now display the list---------
LDA BUFFER.BASES
STA DRIVER.PTR+1
LDA #0
STA DRIVER.PTR
.1 PHA
TAY
LDA (DRIVER.PTR),Y
BEQ .5 ...END OF LIST
PHA
LDA #"S"
JSR COUT
PLA
PHA
LSR ISOLATE SLOT NUMBER
LSR
LSR
LSR
AND #7
ORA #"0"
JSR COUT PRINT SLOT NUMBER
LDA #","
JSR COUT
LDA #"D"
JSR COUT
PLA
PHA
ASL SET CARRY IF DRIVE 2
LDA #"1" ASSUME DRIVE 1
ADC #0 CHANGE TO 2 IF TRUE
JSR COUT
LDA #" " PRINT SPACE
JSR COUT
PLA get dsssllll again
AND #$0F isolate length
BEQ .3 no name, show error code
TAX
LDA #"/"
.2 JSR COUT
INY PRINT THE VOLUME OR FILE NAME
LDA (DRIVER.PTR),Y
ORA #$80
DEX
BPL .2
LDA #"/"
BNE .4 ...ALWAYS
.3 LDA #"("
JSR COUT
INY
LDA (DRIVER.PTR),Y GET ERROR CODE
JSR PRBYTE
LDA #")"
.4 JSR COUT
JSR CROUT
*--------------------------------
.5 CLC POINT TO NEXT VOLUME NAME
PLA
ADC #16
BCC .1 STILL IN SAME PAGE
CLC NO ERROR!
RTS
*--------------------------------------
MAN
SAVE usr/src/scmasm.30/sci.s.online
LOAD usr/src/scmasm.30/scmasm.s
ASM