mirror of https://github.com/gungwald/copy.git
33 lines
1.1 KiB
ArmAsm
33 lines
1.1 KiB
ArmAsm
.export _onlineSysCall
|
|
.export _onlineVols
|
|
|
|
ON_LINE = $c5 ;ID FOR ON_LINE MLI SYSTEM CALL
|
|
PRODOS_MLI = $bf00 ;ADDRESS OF MLI ENTRY POINT
|
|
|
|
.proc _onlineSysCall
|
|
|
|
jsr PRODOS_MLI ;CALL MACHINE LANGUAGE INTERFACE
|
|
.byte ON_LINE ;SPECIFY THE ON_LINE SYSTEM CALL
|
|
.addr onlineArgs ;SPECIFY ADDRESS OF ARGUMENTS
|
|
|
|
; sta retCode ;Store the return code
|
|
; lda #<retCode ;PUT LOW BYTE INTO ACCUMULATOR
|
|
; ldx #>retCode ;PUT HIGH BYTE INTO X
|
|
rts
|
|
.endproc
|
|
|
|
; BSS is Block Started by Symbol for zero-initialized read/write data
|
|
; Constructed by loader and zeroed out based on required size
|
|
.bss
|
|
|
|
retCode: .byte 0
|
|
_onlineVols:.res 256 ;SPACE FOR 16 DISK VOL RECORDS
|
|
|
|
; DATA contains initialized read/write data - encoded into binary
|
|
.data
|
|
|
|
onlineArgs: .byte 2 ;PARAMETER COUNT
|
|
.byte 0 ;UNIT NUMBER, 0=ALL
|
|
.addr _onlineVols ;ADDRESS OF OUTPUT BUFFER
|
|
|