antoine-source/folibus/lamaison.s

101 lines
1.4 KiB
ArmAsm
Raw Normal View History

2023-11-28 18:50:15 +00:00
*
* La maison du Professeur Folibus
*
* (c) 1982, Alain Br<EFBFBD>g<EFBFBD>on
* (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 'PrFolibus'