mirror of https://github.com/A2osX/A2osX.git
76 lines
1.7 KiB
Plaintext
76 lines
1.7 KiB
Plaintext
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.31/sci.s.online
|
||
LOAD usr/src/scmasm.31/scmasm.s
|
||
ASM
|