mirror of
https://github.com/antoinevignau/source.git
synced 2024-08-30 06:29:46 +00:00
101 lines
1.4 KiB
ArmAsm
101 lines
1.4 KiB
ArmAsm
|
*
|
|||
|
* Le manoir du Dr Genius
|
|||
|
*
|
|||
|
* (c) 1983, Loriciels (Oric)
|
|||
|
* (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 'DrGenius'
|