101 lines
1.3 KiB
ArmAsm
101 lines
1.3 KiB
ArmAsm
*
|
|
* Alzan
|
|
*
|
|
* (c) 1981, The pocket ZX81 book
|
|
* (c) 2023, Brutal Deluxe Software (Apple II)
|
|
*
|
|
|
|
mx %11
|
|
org $2000
|
|
lst off
|
|
|
|
*-----------------------------------
|
|
* SOFTSWITCHES AND FRIENDS
|
|
*-----------------------------------
|
|
|
|
leJEU = $4000
|
|
|
|
ptrPREFIX = $280
|
|
proBUFFER = $b800
|
|
PRODOS = $bf00
|
|
|
|
*-----------------------------------
|
|
* LOAD THE GAME
|
|
*-----------------------------------
|
|
|
|
jsr PRODOS ; get the prefix
|
|
dfb $c7
|
|
da proGETPFX
|
|
|
|
jsr PRODOS ; set it
|
|
dfb $c6
|
|
da proGETPFX
|
|
|
|
jsr PRODOS
|
|
dfb $c8
|
|
da proOPEN
|
|
bcs quitME
|
|
|
|
lda proOPEN+5 ; zou, on prend l'ID
|
|
sta proGETEOF+1
|
|
sta proREAD+1
|
|
sta proCLOSE+1
|
|
|
|
jsr PRODOS ; longueur du fichier
|
|
dfb $d1
|
|
da proGETEOF
|
|
bcs quitME
|
|
|
|
lda proGETEOF+2
|
|
sta proREAD+4
|
|
lda proGETEOF+3
|
|
sta proREAD+5
|
|
|
|
jsr PRODOS ; lecture du fichier
|
|
dfb $ca
|
|
da proREAD
|
|
bcs quitME
|
|
|
|
jsr PRODOS ; fermeture du fichier
|
|
dfb $cc
|
|
da proCLOSE
|
|
bcs quitME
|
|
|
|
jmp leJEU
|
|
|
|
quitME jsr PRODOS ; exit
|
|
dfb $65
|
|
da proQUIT
|
|
brk $bd ; on ne se refait pas ;-)
|
|
|
|
*--- Data
|
|
|
|
proQUIT dfb $4
|
|
ds 1
|
|
ds 2
|
|
ds 1
|
|
ds 2
|
|
|
|
proGETPFX dfb $1
|
|
da ptrPREFIX
|
|
|
|
proOPEN dfb $3
|
|
da pLEJEU ; pathname (par dŽfaut, le moteur)
|
|
da proBUFFER ; io_buffer
|
|
ds 1 ; ref_num
|
|
|
|
proREAD dfb $4
|
|
ds 1 ; ref_num
|
|
da leJEU ; data_buffer
|
|
ds 2 ; request_count
|
|
ds 2 ; transfer_count
|
|
|
|
proCLOSE dfb $1
|
|
ds 1 ; ref_num
|
|
|
|
proGETEOF dfb $2
|
|
ds 1 ; ref_num
|
|
ds 3 ; eof
|
|
|
|
pLEJEU str 'Alzan'
|