Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2026-01-26 12:16:21 +00:00
Code Issues Projects Releases Wiki Activity
Files
main
antoine-source/mathstoryproblems/d1/program1/PROGRAM.S
Antoine Vignau 40c2b1f0af Disk 2 in progress 
PROGRAMC is now traduit.
2025-05-07 18:20:05 +02:00

4008 lines
88 KiB
ArmAsm
Raw Permalink Blame History

*
* Math Story Problems
*
* (c) 1989, Orange Cherry Software
* (s) 2025, Antoine Vignau
*
mx %00
lst off
*-------------------------------
GSOS = $E100A8
VF = 1
use 4/Event.Macs
use 4/Int.Macs
use 4/Locator.Macs
use 4/Mem.Macs
use 4/Misc.Macs
use 4/Qd.Macs
use 4/Sound.Macs
use 4/Util.Macs
*-------------------------------
CLC
XCE
REP #$30
PHK
PLB
_TLStartUp
PEA $0000
_MMStartUp
PLA
STA L0286
JSR L0A46
LDA L0286
AND #$F0FF
ORA #$0100
STA L0288
_MTStartUp
PEA $0000
PEA $0000
PEA $0000
PEA $1000
LDA L0288
PHA
PEA $C005
PEA $0000
PEA $0000
_NewHandle
JSR L0A46
PLA
STA $00
PLA
STA $02
LDA [$00]
STA L028A
LDA L028A
TAY
CLC
ADC #$0100
STA L028A
TYA
PHA
PEA $0001
PEA $0000
PEA $0140
PEA $0000
PEA $00C8
LDA L0286
PHA
_EMStartUp
JSR L0A46
JMP L008E
L008C DW $0000
L008E LDAL $E0C034
AND #$FFF0
ORA #$0000
STAL $E0C034
LDA #$0000
STA L008C
ASL
ASL
ASL
ASL
ORA L008C
STA L008C
LDAL $E0C022
AND #$FF00
ORA L008C
STAL $E0C022
LDAL $E0C029
AND #$FF00
ORA #$0001
STAL $E0C029
LDY L028A
TYA
CLC
ADC #$0300
STA L028A
TYA
PHA
PEA $0000
PEA $0000
LDA L0286
PHA
_QDStartUp
JSR L0A46
JSR L0CF5
_PenNormal
PEA $0000
_SetFontFlags
PEA $0004
_SetTextMode
PEA $000F
_SetForeColor
PHA
PHA
PEA $0000
LDA #$8000
PHA
LDA L0288
PHA
PEA $0108
PEA $0000
PEA $0000
_NewHandle
JSR L0A46
PLA
STA L039F
PLA
STA L039F+2
LDA #$8000
STA L03B5
JMP L0144
L0142 DW $0000
L0144 LDAL $E0C034
AND #$FFF0
ORA #$0000
STAL $E0C034
LDA #$0000
STA L0142
ASL
ASL
ASL
ASL
ORA L0142
STA L0142
LDAL $E0C022
AND #$FF00
ORA L0142
STAL $E0C022
JSR L1FDC
JMP L0185
L0176 STR 'logo'
L017B DW $0000 ; ref num
ADRL L0176 ; path name
ADRL $00000000 ; reserved
L0185 JSL GSOS
DW $0010 ; Open
ADRL L017B
JSR L0A46
LDA L017B
STA L0296
STA L02A4
JSR L1BA0
JSR L1D30
LDA #$2000
STA L03BF
JSR L1A00
STZ L03BD
JSR L0C95
JMP L01C3
L01B3 STR 'tpage'
L01B9 DW $0000 ; ref num
ADRL L01B3 ; path name
ADRL $00000000 ; reserved
L01C3 JSL GSOS
DW $0010 ; Open
ADRL L01B9
JSR L0A46
LDA L01B9
STA L0296
STA L02A4
JSR L1BA0
JSR L1D30
JSR L1A00
STZ L03BD
JSR L0C95
JMP L01FF
L01EB STR 'copyright'
L01F5 DW $0000 ; ref num
ADRL L01EB ; path name
ADRL $00000000 ; reserved
L01FF JSL GSOS
DW $0010 ; Open
ADRL L01F5
JSR L0A46
LDA L01F5
STA L0296
STA L02A4
JSR L1BA0
JMP L021D
L021B DW $0000
L021D LDAL $E0C034
AND #$FFF0
ORA #$0008
STAL $E0C034
LDA #$0008
STA L021B
ASL
ASL
ASL
ASL
ORA L021B
STA L021B
LDAL $E0C022
AND #$FF00
ORA L021B
STAL $E0C022
JSR L1D30
JSR L1A00
STZ L03BD
JSR L0C95
JSR L1570
JSL GSOS
DW $0029 ; Quit
ADRL L0262
L0262 ADRL L0268 ; path name
DW $0000 ; flags
L0268 STR 'program'
L0270 DB $00
DB $00
L0272 DB $00
DB $00
L0274 DB $00
DB $00
L0276 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0284 DB $00
DB $00
L0286 DB $00
DB $00
L0288 DB $00
DB $00
L028A DB $00
DB $00
DB $03
DB $00
DB $00
DB $0A
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0296 DW $0000 ; ref num
L0298 ADRL $00000000 ; buffer ptr
L029C ADRL $00000000 ; request count
L02A0 ADRL $00000000 ; transfer count
L02A4 DW $0000 ; ref num
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $80
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB L0318
DB $03
DB $01
DB $00
DB $C3
DB $00
DB $06
DB $00
DB $00
DB $00
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
ADRL L0318
DB $00
DB $00
DB $00
DB $00
L02D2 DW $0000 ; ref num
L02D4 ADRL $00000000 ; buffer ptr
L02D8 ADRL $00000000 ; request count
L02DC ADRL $00000000 ; transfer count
L02E0 DW $0000 ; ref num
DB $00
DB $00
DB $00
DB $00
DW $00C3
DW $0006
DB $00
DB $00
DB $00
DB $00
DB $01
DB $00
DB $00
DB $00
DB $00
DB $00
L02F4 DW $0000 ; ref num
ADRL $00000000 ; buffer ptr
L02FA ADRL $00000000 ; request count
ADRL $00000000 ; transfer count
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0318 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L039F ADRL $00000000
L03A3 ADRL $00000000
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L03AF DB $00
DB $00
DB $00
DB $00
L03B3 DB $00
DB $00
L03B5 DB $00
DB $00
L03B7 ADRL $00000000
L03BB DW $0000
L03BD DB $00
DB $00
L03BF DB $00
DB $00
L03C1 DB $00
DB $00
L03C3 DB $00
DB $00
L03C5 DW $0000
L03C7 DW $0000
L03C9 DA $0000
L03CB DW $0000
L03CD DW $0009
L03CF DB $00
DB $00
L03D1 DB $00
DB $00
L03D3 DB $00
DB $00
DB $C8
DB $00
DB $00
DB $00
DB $07
DB $00
ADRL L03E0
DB $FF
L03E0 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L03F2 DB $00
DB $00
L03F4 DB $00
DB $00
L03F6 DW $0000 ; event code
L03F8 ADRL $00000000 ; event message
ADRL $00000000 ; tick count
L0400 DW $0000 ; mouse location
L0402 DW $0000
DW $0000 ; modifiers
ADRL $00000000 ; task data
ADRL $0000FFFF ; task mask
L040E DW $0000
DW $0000
L0412 DW $0000
L0414 DW $0000
DW $0000
DW $0000
DW $0000
DB $00
L041D DW $0000
DW $0000
DW $0000
DW $0000
L0425 DW $0000
DW $0000
DW $0000
DW $0000
L042D DW $0000
L042F DW $0000
L0431 DW $0000
L0433 DW $0000
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0447 DB $00
DB $00
L0449 DB $00
DB $00
L044B DB $00
DB $00
L044D DB $00
DB $00
L044F DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L049F DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04A8 DB $00
DB $00
L04AA DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L04BE ADRL L04EA ; ptr to source locinfo
ADRL L04FA ; ptr to dest locinfo
ADRL L0522 ; ptr to source rect
ADRL L051E ; ptr to dest point
DW $0000 ; mode
ADRL $00000000 ; clip rgn handle
L04D4 ADRL L04EA ; ptr to source locinfo
ADRL L050E ; ptr to dest locinfo
ADRL L052E ; ptr to source rect
ADRL L052A ; ptr to dest point
DW $0000 ; mode
ADRL $00000000 ; clip rgn handle
L04EA DW $0000 ; SCB byte
ADRL $00E12000 ; Pointer to pixel image
DW $00A0 ; Width
DW $0000 ; Bounds rect
DW $0000
DW $00C8
DW $0140
L04FA DW $0000 ; SCB byte
L04FC ADRL $00000000 ; Pointer to pixel image
L0500 DW $0010 ; Width
L0502 DW $0000 ; Bounds rect
L0504 DW $0000
L0506 DW $0014
L0508 DW $0014
L050A DB $00
DB $00
L050C DB $00
DB $00
L050E DW $0000 ; SCB byte
L0510 ADRL $00000000 ; Pointer to pixel image
DW $00A0 ; Width
DW $0000 ; Bounds rect
DW $0000
DW $00C8
DW $0140
L051E DW $0000
DW $0000
L0522 DW $0000
DW $0000
DW $0014
DW $0014
L052A DW $0000
DW $0000
L052E DW $0000
DW $0000
DW $00C8
DW $0140
L0536 ADRL L04FA ; ptr to source locinfo
ADRL L04EA ; ptr to dest locinfo
ADRL L0562 ; ptr to source rect
ADRL L056A ; ptr to dest point
DW $0000 ; mode
ADRL $00000000 ; clip rgn handle
L054C ADRL L050E ; ptr to source locinfo
ADRL L04EA ; ptr to dest locinfo
ADRL L056E ; ptr to source rect
ADRL L0576 ; ptr to dest point
DW $0000 ; mode
ADRL $00000000 ; clip rgn handle
L0562 DW $0000
L0564 DW $0000
L0566 DW $0014
L0568 DW $0014
L056A DW $0000
DW $0000
L056E DW $0000
DW $0000
DW $00C8
DW $0140
L0576 DW $0000
DW $0000
L057A ADRL L04EA ; ptr to source locinfo
ADRL L0590 ; ptr to dest locinfo
ADRL L05A0 ; ptr to source rect
ADRL L05A8 ; ptr to dest point
DW $0000 ; mode
ADRL $00000000 ; clip rgn handle
L0590 DW $0000 ; SCB byte
ADRL $00000000 ; Pointer to pixel image
DW $00A0 ; Width
DW $0000 ; Bounds rect
DW $0000
DW $000F
DW $0140
L05A0 DW $0000
DW $0000
DW $000F
DW $0140
L05A8 DW $0000
DW $0000
L05AC ADRL L0590 ; ptr to source locinfo
ADRL L04EA ; ptr to dest locinfo
ADRL L05C2 ; ptr to source rect
ADRL L05CA ; ptr to dest point
DW $0000 ; mode
ADRL $00000000 ; clip rgn handle
L05C2 DW $0000
DW $0000
DW $000F
DW $0140
L05CA DW $0000
DW $0000
L05CE DB $00
DB $00
L05D0 DB $00
DB $00
L05D2 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
ASC '>> Information \N300'00
ASC '--Capital\N301'00
ASC '--Route\N302'00
ASC '--Language(s)\N303'00
ASC '--Currency\N304'00
ASC '$>> Options \N310'00
ASC '--Depart\N311'00
ASC '---\N312D'00
ASC '--Quit\N313'00
DB $24
DB $00
DB $00
DB $00
DB $00
L099F HEX 0000000010034006720AC50F6405A608
HEX E90C4203FF07ED05200B300FE00EFF0F
L09BF HEX 00001101220233032F027200880F8D0F
HEX F200900F000FEF07C40F700A0B01FF0F
L09DF HEX 0000030D09002D0D720055052F02AF06
HEX 5008600FAA0A980FD000F00FF902FF0F
DB $00
DB $00
ADRL L0A05
L0A05 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L0A46 BCS L0A49
RTS
L0A49 PHA
LDA #^L0A5A
PHA
LDA #L0A5A
PHA
_SysFailMgr
RTS
DO VF
L0A5A STR 'Erreur applicative ... Oups !'
ELSE
L0A5A STR 'Application failure ... Oops!'
FIN
L0A78 LDA #$0000
STA L044D
LDA L0270
STA $00
LDA L0272
STA $02
LDY #$0000
LDA [$00],Y
STA L0274
LDY #$0002
LDA [$00],Y
STA L0276
LDA L0274
BNE L0AA5
LDA L0276
BNE L0AA5
JMP L0AA6
L0AA5 RTS
L0AA6 LDA L0272
PHA
LDA L0270
PHA
_RestoreHandle
JSR L0A46
LDA #$8000
STA L044D
JMP L0A78
LDA #$0000
STA L029C+2
LDA #$8000
STA L029C
LDA #$00E1
STA L0298+2
LDA #$2000
STA L0298
JSL GSOS
DW $0012 ; Read
ADRL L0296
JSR L0A46
JSL GSOS
DW $0014 ; Close
ADRL L02A4
JSR L0A46
RTS
LDA #$0000
STA L029C+2
LDA #$8000
STA L029C
LDA L039F
STA L0270
LDA L039F+2
STA L0272
JSR L0A78
LDA L0274
STA L0298
LDA L0276
STA L0298+2
LDA L039F+2
PHA
LDA L039F
PHA
_HLock
JSR L0A46
LDA L0298
STA L03A3
LDA L0298+2
STA L03A3+2
JSL GSOS
DW $0012 ; Read
ADRL L0296
JSR L0A46
JSL GSOS
DW $0014 ; Close
ADRL L02A4
JSR L0A46
RTS
LDA #$000F
PHA
_SetForeColor
LDA L03F2
STA L0270
LDA L03F4
STA L0272
JSR L0A78
LDA L0274
STA L03CF
LDA L0276
STA L03D1
LDA L03CF
STA L02D4
LDA L03D1
STA L02D4+2
LDA #$0000
STA L02D8+2
LDA #$A000
STA L02D8
JSL GSOS
DW $0012 ; Read
ADRL L02D2
JSR L0A46
JSL GSOS
DW $0014 ; Close
ADRL L02E0
JSR L0A46
LDA L02DC
STA L03D3
LDA #$0000
STA L03BD
LDX #$0008
L0BBB LSR L03D3
BCC L0BC6
LDA #$0001
STA L03BD
L0BC6 DEX
BNE L0BBB
LDA L03D3
CLC
ADC L03BD
STA L03D3
RTS
LDA #$00E1
STA L03B7+2
LDA #$2000
STA L03B7
LDA #$8000
STA L03BB
L0BE6 PEA $0000
LDA L03A3+2
PHA
LDA L03A3
PHA
LDA L02A0
PHA
LDA #^L03B7
PHA
LDA #L03B7
PHA
LDA #^L03BB
PHA
LDA #L03BB
PHA
_UnPackBytes
PLA
LDA L03BB
BNE L0BE6
LDA L039F+2
PHA
LDA L039F
PHA
_HUnlock
JSR L0A46
RTS
L0C25 PEA $0000
PEA $0000
_Button
PLA
CMP #$0000
BNE L0C25
L0C38 PEA $0000
PEA $0000
_Button
PLA
CMP #$0000
BEQ L0C38
RTS
L0C4C _GrafOff
_HideCursor
RTS
L0C5B _GrafOn
RTS
L0C63 PEA $0000
PEA $FFFF
LDA #^L03F6
PHA
LDA #L03F6
PHA
_GetNextEvent
PLA
BEQ L0C94
LDA L03F6
CMP #$0003
BNE L0C8C
L0C83 LDA #$0080
STA L03BD
JMP L0C94
L0C8C CMP #$0001
BNE L0C94
JMP L0C83
L0C94 RTS
L0C95 LDA L03BF
STA L0CAF
STZ L03BD
L0C9E JSR L0C63
LDA L03BD
CMP #$0000
BNE L0CAE
DEC L0CAF
BNE L0C9E
L0CAE RTS
L0CAF DW $0000
STZ L03BD
L0CB4 JSR L0C63
LDA L03BD
CMP #$0000
BEQ L0CB4
RTS
L0CC0 PEA $0000
PEA $FFFF
LDA #^L03F6
PHA
LDA #L03F6
PHA
_GetNextEvent
PLA
BEQ L0CC0
LDA L03F6
CMP #$0003
BNE L0CC0
LDA L03F8
AND #$007F
CMP #$0061
BCC L0CEF
SEC
SBC #$0020
L0CEF CMP L0412
BNE L0CC0
RTS
L0CF5 PEA $0000
_ClearScreen
LDA #$0000
PHA
_SetAllSCBs
PEA $0000
LDA #^L099F
PHA
LDA #L099F
PHA
_SetColorTable
RTS
L0D1D PEA $0000
_ClearScreen
LDA #$0001
PHA
_SetAllSCBs
PEA $0001
LDA #^L09BF
PHA
LDA #L09BF
PHA
_SetColorTable
RTS
PEA $0000
_ClearScreen
LDA #$0002
PHA
_SetAllSCBs
PEA $0002
LDA #^L09DF
PHA
LDA #L09DF
PHA
_SetColorTable
RTS
JMP L0D72
L0D70 DW $0000
L0D72 LDA L0449
STA L0D70
L0D78 LDA L0D70
CMP #$00C8
BCS L0D92
PHA
LDA #$0001
PHA
_SetSCB
INC L0D70
JMP L0D78
L0D92 PEA $0001
LDA #^L09BF
PHA
LDA #L09BF
PHA
_SetColorTable
RTS
L0DA5 LDA #^L0414
PHA
LDA #L0414
PHA
LDA L0431
PHA
LDA L042F
PHA
LDA L0433
PHA
LDA L042D
PHA
_SetRect
RTS
LDA #^L0414
PHA
LDA #L0414
PHA
_FrameRect
RTS
L0DD5 LDA #^L0414
PHA
LDA #L0414
PHA
_PaintRect
RTS
L0DE5 _PenNormal
RTS
L0DED LDA L0447
PHA
_SetSolidPenPat
RTS
L0DF9 PEA $0000
PEA $FFFF
LDA #^L03F6
PHA
LDA #L03F6
PHA
_GetNextEvent
PLA
BEQ L0DF9
LDA L03F6
CMP #$0003
BEQ L0E1C
JMP L0E6A
L0E1C LDA L03F8
AND #$007F
CMP #$0061
BCC L0E2B
SEC
SBC #$0020
L0E2B STA L0412
_ObscureCursor
LDA #$0000
STA L044B
LDA #$0001
STA L0EF5
LDA #$0000
STA L0EF3
L0E47 LDX L0EF3
LDA L04AA,X
CMP L0412
BNE L0E53
RTS
L0E53 LDA L0EF5
CMP L04A8
BEQ L0E67
INC L0EF5
INC L0EF3
INC L0EF3
JMP L0E47
L0E67 JMP L0DF9
L0E6A CMP #$0001
BEQ L0E72
JMP L0DF9
L0E72 LDA L0400
STA L040E
LDA L0402
STA L040E+2
LDA #$0080
STA L044B
LDA #$0000
STA L0EF1
STA L0EF3
LDA #$0001
STA L0EF5
L0E93 LDY #$0000
LDX L0EF1
L0E99 LDA L044F,X
STA L049F,Y
INX
INY
CPY #$0008
BCC L0E99
PEA $0000
LDA #^L040E
PHA
LDA #L040E
PHA
LDA #^L049F
PHA
LDA #L049F
PHA
_PtInRect
PLA
BEQ L0EC6
JMP L0EE7
L0EC6 LDA L0EF5
CMP L04A8
BNE L0ED1
JMP L0DF9
L0ED1 INC L0EF5
INC L0EF3
INC L0EF3
LDA L0EF1
CLC
ADC #$0008
STA L0EF1
JMP L0E93
L0EE7 LDX L0EF3
LDA L04AA,X
STA L0412
RTS
L0EF1 DW $0000
L0EF3 DW $0000
L0EF5 DW $0000
L0EF7 LDA L03C5
PHA
LDA L03C7
PHA
_MoveTo
LDA L03CB
PHA
LDA L03C9
PHA
_DrawString
LDA L03C7
CLC
ADC L03CD
STA L03C7
RTS
LDA L03CB
PHA
LDA L03C9
PHA
_DrawString
RTS
PHA
LDA L03CB
PHA
LDA L03C9
PHA
_StringWidth
PLA
STA L0F52
LDA #$0140
SEC
SBC L0F52
LSR
STA L03C5
JMP L0EF7
L0F52 DW $0000
CLC
LDA #$00B5
STA L042F
LDA #$001A
STA L0431
LDA #$00C2
ADC #$0001
STA L042D
LDA #$00B4
ADC #$0001
STA L0433
LDA #$000E
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
LDX #$0000
L0F88 LDA L0414,X
STA L041D,X
INX
INX
CPX #$0008
BNE L0F88
CLC
LDA #$00B5
STA L042F
LDA #$00D0
STA L0431
LDA #$00C2
ADC #$0001
STA L042D
LDA #$0124
ADC #$0001
STA L0433
LDA #$000D
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
LDX #$0000
L0FC9 LDA L0414,X
STA L0425,X
INX
INX
CPX #$0008
BNE L0FC9
PEA $0000
_GetForeColor
PLA
STA L1103
LDA #$000F
PHA
_SetForeColor
JMP L1007
DO VF
L0FF2 STR 'Espace pour continuer'
L1007 PEA $001A
ELSE
L0FF2 STR 'Spacebar to continue'
L1007 PEA $001E
FIN
PEA $00BF
_MoveTo
LDA #^L0FF2
PHA
LDA #L0FF2
PHA
_DrawString
JMP L1032
DO VF
L1026 STR 'ESC pour quitter'
L1032 PEA $00C2
ELSE
L1026 STR 'ESC to quit'
L1032 PEA $00D6
FIN
PEA $00BF
_MoveTo
LDA #^L1026
PHA
LDA #L1026
PHA
_DrawString
L104E PEA $0000
PEA $FFFF
LDA #^L03F6
PHA
LDA #L03F6
PHA
_GetNextEvent
PLA
BEQ L104E
LDA L03F6
CMP #$0003
BEQ L1071
JMP L10A0
L1071 _ObscureCursor
LDA #$0000
STA L044B
LDA L03F8
AND #$007F
CMP #$0020
BEQ L1091
CMP #$001B
BEQ L1091
JMP L104E
L1091 STA L0412
LDA L1103
PHA
_SetForeColor
RTS
L10A0 CMP #$0001
BEQ L10A8
JMP L104E
L10A8 LDA L0400
STA L040E
LDA L0402
STA L040E+2
LDA #$0080
STA L044B
PEA $0000
LDA #^L040E
PHA
LDA #L040E
PHA
LDA #^L041D
PHA
LDA #L041D
PHA
_PtInRect
PLA
BEQ L10DD
LDA #$0020
JMP L1091
L10DD PEA $0000
LDA #^L040E
PHA
LDA #L040E
PHA
LDA #^L0425
PHA
LDA #L0425
PHA
_PtInRect
PLA
BEQ L1100
LDA #$001B
JMP L1091
L1100 JMP L104E
L1103 DW $0000
JSR L0C4C
JSR L0D1D
JMP L1110
L110E DW $0000
L1110 LDAL $E0C034
AND #$FFF0
ORA #$0000
STAL $E0C034
LDA #$0000
STA L110E
ASL
ASL
ASL
ASL
ORA L110E
STA L110E
LDAL $E0C022
AND #$FF00
ORA L110E
STAL $E0C022
CLC
LDA #$003D
STA L042F
LDA #$003F
STA L0431
LDA #$007E
ADC #$0001
STA L042D
LDA #$00F8
ADC #$0001
STA L0433
LDA #$000A
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
CLC
LDA #$0041
STA L042F
LDA #$0044
STA L0431
LDA #$007A
ADC #$0001
STA L042D
LDA #$00F3
ADC #$0001
STA L0433
LDA #$000C
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
CLC
LDA #$0060
STA L042F
LDA #$004E
STA L0431
LDA #$0072
ADC #$0001
STA L042D
LDA #$00E9
ADC #$0001
STA L0433
LDA #$000B
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
CLC
LDA #$0063
STA L042F
LDA #$0053
STA L0431
LDA #$006F
ADC #$0001
STA L042D
LDA #$0060
ADC #$0001
STA L0433
LDA #$000E
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
LDX #$0000
L1203 LDA L0414,X
STA L0425,X
INX
INX
CPX #$0008
BNE L1203
CLC
LDA #$0063
STA L042F
LDA #$00C6
STA L0431
LDA #$006F
ADC #$0001
STA L042D
LDA #$00D3
ADC #$0001
STA L0433
LDA #$000D
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
LDX #$0000
L1244 LDA L0414,X
STA L041D,X
INX
INX
CPX #$0008
BNE L1244
PEA $0000
_GetForeColor
PLA
STA L1426
PEA $0000
_SetForeColor
JMP L127D
DO VF
L126C STR 'Veux-tu vraiment'
ELSE
L126C STR 'Are you sure you'
FIN
L127D PEA $0063
PEA $004E
_MoveTo
LDA #^L126C
PHA
LDA #L126C
PHA
_DrawString
JMP L12AA
DO VF
L129C STR 'quitter le jeu ?'
L12AA PEA $0058
ELSE
L129C STR 'want to quit?'
L12AA PEA $0064
FIN
PEA $0059
_MoveTo
LDA #^L129C
PHA
LDA #L129C
PHA
_DrawString
JMP L12CD
DO VF
L12C9 STR 'ui'
ELSE
L12C9 STR 'es'
FIN
L12CD PEA $0064
PEA $006D
_MoveTo
LDA #^L12C9
PHA
LDA #L12C9
PHA
_DrawString
JMP L12EF
DO VF
L12EC STR 'on'
ELSE
L12EC STR 'o'
FIN
L12EF PEA $00D7
PEA $006D
_MoveTo
LDA #^L12EC
PHA
LDA #L12EC
PHA
_DrawString
PEA $000F
_SetForeColor
JMP L131A
DO VF
L1318 STR 'O'
ELSE
L1318 STR 'Y'
FIN
L131A PEA $0056
PEA $006D
_MoveTo
LDA #^L1318
PHA
LDA #L1318
PHA
_DrawString
JMP L133B
DO VF
L1339 STR 'N'
ELSE
L1339 STR 'N'
FIN
L133B PEA $00C9
PEA $006D
_MoveTo
LDA #^L1339
PHA
LDA #L1339
PHA
_DrawString
JSR L0C5B
_InitCursor
L1361 PEA $0000
PEA $FFFF
LDA #^L03F6
PHA
LDA #L03F6
PHA
_GetNextEvent
PLA
BEQ L1361
LDA L03F6
CMP #$0003
BEQ L1384
JMP L13C3
L1384 _ObscureCursor
LDA #$0000
STA L044B
LDA L03F8
AND #$007F
CMP #$0061
BCC L13A0
SEC
SBC #$0020
DO VF
L13A0 CMP #'O'
ELSE
L13A0 CMP #'Y' ; y
FIN
BEQ L13AD
CMP #'N' ; n
BEQ L13AD
JMP L1361
L13AD STA L0412
LDA L1426
PHA
_SetForeColor
_HideCursor
RTS
L13C3 CMP #$0001
BEQ L13CB
JMP L1361
L13CB LDA L0400
STA L040E
LDA L0402
STA L040E+2
LDA #$0080
STA L044B
PEA $0000
LDA #^L040E
PHA
LDA #L040E
PHA
LDA #^L041D
PHA
LDA #L041D
PHA
_PtInRect
PLA
BEQ L1400
LDA #'N'
JMP L13AD
L1400 PEA $0000
LDA #^L040E
PHA
LDA #L040E
PHA
LDA #^L0425
PHA
LDA #L0425
PHA
_PtInRect
PLA
BEQ L1423
DO VF
LDA #'O'
ELSE
LDA #'Y'
FIN
JMP L13AD
L1423 JMP L1361
L1426 DW $0000
JSR L0C4C
JSR L0D1D
CLC
LDA #$0037
STA L042F
LDA #$003B
STA L0431
LDA #$0089
ADC #$0001
STA L042D
LDA #$0104
ADC #$0001
STA L0433
LDA #$000B
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
CLC
LDA #$003F
STA L042F
LDA #$0044
STA L0431
LDA #$0081
ADC #$0001
STA L042D
LDA #$00FB
ADC #$0001
STA L0433
LDA #$000E
STA L0447
JSR L0DE5
JSR L0DED
JSR L0DA5
JSR L0DD5
LDA #$000F
PHA
_SetForeColor
JMP L14B4
DO VF
L149E STR 'Merci d'27'avoir utilis'8e
ELSE
L149E STR 'Thank you for running'
FIN
L14B4 PEA $0055
PEA $004F
_MoveTo
LDA #^L149E
PHA
LDA #L149E
PHA
_DrawString
JMP L14E0
DO VF
L14D3 STR 'le programme.'
L14E0 PEA $0076
ELSE
L14D3 STR 'the program.'
L14E0 PEA $007A
FIN
PEA $005A
_MoveTo
LDA #^L14D3
PHA
LDA #L14D3
PHA
_DrawString
PEA $000B
_SetForeColor
JMP L151F
DO VF
L1509 STR 'Eteins l'27'ordinateur'
L151F PEA $004B
ELSE
L1509 STR 'Turn off the computer'
L151F PEA $0053
FIN
PEA $006B
_MoveTo
LDA #^L1509
PHA
LDA #L1509
PHA
_DrawString
JMP L1549
DO VF
L153E STR 'ou red'8e'marre.'
L1549 PEA $0074
ELSE
L153E STR 'or reboot.'
L1549 PEA $0080
FIN
PEA $0076
_MoveTo
LDA #^L153E
PHA
LDA #L153E
PHA
_DrawString
JSR L0C5B
_HideCursor
STP
L1570 _EMShutDown
_QDShutDown
LDAL $E0C029
AND #$FF00
ORA #$00C1
STAL $E0C029
_SoundShutDown
_MTShutDown
LDA L0288
PHA
_DisposeAll
JSR L0A46
LDA L0286
PHA
_MMShutDown
_TLShutDown
RTS
L15BB LDA L039F
STA L0270
LDA L039F+2
STA L0272
JSR L0A78
LDA L0274
STA L03A3
LDA L0276
STA L03A3+2
PEA $0000
LDA #^L03AF
PHA
LDA #L03AF
PHA
LDA #^L03B3
PHA
LDA #L03B3
PHA
LDA L03A3+2
PHA
LDA L03A3
PHA
LDA L03B5
PHA
_PackBytes
PLA
STA L02FA
JSL GSOS
DW $0013 ; Write
ADRL L02F4
JSR L0A46
LDA L03B3
BNE L15BB
RTS
_HideCursor
LDA L039F
STA L0270
LDA L039F+2
STA L0272
JSR L0A78
LDA L0274
STA L0510
LDA L0276
STA L0510+2
LDA L039F+2
PHA
LDA L039F
PHA
_HLock
JSR L0A46
LDA #^L04D4
PHA
LDA #L04D4
PHA
_PaintPixels
JSR L0A46
RTS
_HideCursor
LDA #^L054C
PHA
LDA #L054C
PHA
_PaintPixels
JSR L0A46
LDA L039F+2
PHA
LDA L039F
PHA
_HUnlock
JSR L0A46
RTS
_HideCursor
LDA #^L057A
PHA
LDA #L057A
PHA
_PaintPixels
JSR L0A46
RTS
_HideCursor
LDA #^L05AC
PHA
LDA #L05AC
PHA
_PaintPixels
JSR L0A46
RTS
LDA L039F
STA L0270
LDA L039F+2
STA L0272
JSR L0A78
LDA L0274
STA L03A3
LDA L0276
STA L03A3+2
LDA L039F+2
PHA
LDA L039F
PHA
_HLock
JSR L0A46
PEA $00E1
PEA $2000
LDA L03A3+2
PHA
LDA L03A3
PHA
PEA $0000
PEA $8000
_BlockMove
RTS
LDA L03A3+2
PHA
LDA L03A3
PHA
PEA $00E1
PEA $2000
PEA $0000
PEA $8000
_BlockMove
LDA L039F+2
PHA
LDA L039F
PHA
_HUnlock
JSR L0A46
RTS
_HideCursor
LDA L050A
STA L0270
LDA L050C
STA L0272
JSR L0A78
LDA L0274
STA L04FC
LDA L0276
STA L04FC+2
LDA #^L04BE
PHA
LDA #L04BE
PHA
_PaintPixels
JSR L0A46
_InitCursor
RTS
L176D _HideCursor
LDA L050A
STA L0270
LDA L050C
STA L0272
JSR L0A78
LDA L0274
STA L04FC
LDA L0276
STA L04FC+2
LDA #^L0536
PHA
LDA #L0536
PHA
_PaintPixels
JSR L0A46
RTS
LDA #^L05CE
STA L0298+2
LDA #L05CE
STA L0298
LDA #$0000
STA L029C+2
LDA #$0006
STA L029C
JSL GSOS
DW $0012 ; Read
ADRL L0296
LDA L039F
STA L0270
LDA L039F+2
STA L0272
JSR L0A78
LDA L0274
STA L03A3
LDA L0276
STA L03A3+2
LDA L039F+2
PHA
LDA L039F
PHA
_HLock
JSR L0A46
LDA L03A3
STA L0298
LDA L03A3+2
STA L0298+2
LDA #$8000
STA L029C
LDA #$0000
STA L029C+2
JSL GSOS
DW $0012 ; Read
ADRL L0296
JSL GSOS
DW $0014 ; Close
ADRL L02A4
LDA #$0028
STA L03C7
LDA L050A
STA L0270
LDA L050C
STA L0272
JSR L0A78
LDA L0274
STA L04FC
LDA L0276
STA L04FC+2
LDA L04FC
STA L03B7
LDA L04FC+2
STA L03B7+2
LDA L05CE
STA L03BB
L1850 PHA
LDA L03A3+2
PHA
LDA L03A3
PHA
LDA L02A0
PHA
LDA #^L03B7
PHA
LDA #L03B7
PHA
LDA #^L03BB
PHA
LDA #L03BB
PHA
_UnPackBytes
PLA
LDA L03BB
BNE L1850
LDA L039F+2
PHA
LDA L039F
PHA
_HUnlock
JSR L0A46
RTS
LDA #$0000
STA L0502
STA L0504
STA L0562
STA L0564
LDA L05D0
STA L0506
STA L0566
LDA L05D2
STA L0508
STA L0568
LSR
CLC
ADC #$0001
STA L0500
_HideCursor
JSR L176D
RTS
LDA L03C9
STA $00
LDA L03CB
STA $02
LDY #$0000
LDA [$00],Y
AND #$00FF
STA L0284
LDA #$0001
STA L1942
PHA
LDA L03CB
PHA
LDA L03C9
PHA
_StringWidth
PLA
STA L1944
LDA #$0140
SEC
SBC L1944
LSR
PHA
LDA L03C7
PHA
_MoveTo
L1904 LDA L03C9
STA $00
LDA L03CB
STA $02
LDY L1942
LDA [$00],Y
AND #$007F
CMP #$0061
BCC L191F
SEC
SBC #$0020
L191F STA L0412
JSR L0CC0
LDA L0412
PHA
_DrawChar
INC L1942
DEC L0284
BNE L1904
LDA #$000D
STA L0412
JSR L0CC0
RTS
L1942 DW $0000
L1944 DW $0000
LDA #^L049F
PHA
LDA #L049F
PHA
LDA L03C1
PHA
LDA L03C3
PHA
LDA L03C1
CLC
ADC #$0079
PHA
LDA L03C3
CLC
ADC #$001A
PHA
_SetRect
LDA #$000F
STA L0447
LDA #$0001
PHA
_SetForeColor
JSR L0DE5
JSR L0DED
LDA #^L049F
PHA
LDA #L049F
PHA
_PaintRect
LDA L03C1
CLC
ADC #$0004
STA L03C5
LDA L03C3
CLC
ADC #$000B
STA L03C7
JMP L19BA
DO VF
L19AA STR 'Clique sur la souris'
ELSE
L19AA STR 'Click the mouse'
FIN
L19BA LDA #^L19AA
STA L03CB
LDA #L19AA
STA L03C9
JSR L0EF7
LDA L03C1
CLC
ADC #$0014
STA L03C5
LDA L03C3
CLC
ADC #$0013
STA L03C7
JMP L19ED
DO VF
L19E0 STR 'pour continuer.'
ELSE
L19E0 STR 'to continue.'
FIN
L19ED LDA #^L19E0
STA L03CB
LDA #L19E0
STA L03C9
JSR L0EF7
JSR L0C25
RTS
L1A00 PHA
PEA $FFFF
PEA $0000
_FlushEvents
PLA
RTS
PEA $0003
_IntSource
PHA
PHA
PEA $000C
_GetVector
PLA
STA L1E54
PLA
STA L1E54+2
PHA
PEA $0064
_GetSCB
JSR L0A46
PLA
AND #$000F
PHA
LDA #^L1E80
PHA
LDA #L1E80
PHA
_GetColorTable
JSR L0A46
PHA
PEA $0064
_GetSCB
JSR L0A46
PLA
AND #$000F
PHA
LDA #^L1EA0
PHA
LDA #L1EA0
PHA
_GetColorTable
JSR L0A46
PEA $000C
LDA #^L1AD1
PHA
LDA #L1AD1
PHA
_SetVector
PEA $0002
_IntSource
RTS
PEA $0003
_IntSource
PEA $0000
LDA #^L1E80
PHA
LDA #L1E80
PHA
_SetColorTable
JSR L0A46
PEA $000C
LDA L1E54+2
PHA
LDA L1E54
PHA
_SetVector
PEA $0002
_IntSource
RTS
L1AD1 PHB
PHA
PHK
PLB
REP #$30
STZ L1B9E
L1ADA JSR L1B1C
INC L1B9E
INC L1B9E
LDA L1B9E
CMP #$0008
BCC L1ADA
PHA
PEA $0064
_GetSCB
JSR L0A46
PLA
AND #$000F
PHA
LDA #^L1EA0
PHA
LDA #L1EA0
PHA
_SetColorTable
JSR L0A46
SEP #$30
LDA #$00
STAL $E0C047
PLA
PLB
CLC
RTL
MX %00
L1B1C LDX L1B9E
DEC L1B96,X
BEQ L1B25
RTS
L1B25 LDA L1E60,X
STA L1B96,X
LDA L1E68,X
STA L1B92
LDA L1E78,X
STA L1B94
L1B37 LDA L1B94
CMP L1E70,X
BCC L1B47
BEQ L1B47
LDA L1E68,X
STA L1B94
L1B47 LDY L1B92
LDA L1E80,Y
LDY L1B94
STA L1EA0,Y
INC L1B94
INC L1B94
INC L1B92
INC L1B92
LDA L1B92
CMP L1E70,X
BCC L1B37
BEQ L1B37
LDA L1E78,X
CLC
ADC L1E58,X
STA L1E78,X
CMP #$8000
BCS L1B7D
CMP L1E68,X
BCS L1B84
L1B7D LDA L1E70,X
STA L1E78,X
RTS
L1B84 CMP L1E70,X
BCC L1B91
BEQ L1B91
LDA L1E68,X
STA L1E78,X
L1B91 RTS
L1B92 DB $00
DB $00
L1B94 DB $00
DB $00
L1B96 DB $01
DB $00
DB $01
DB $00
DB $01
DB $00
DB $01
DB $00
L1B9E DB $00
DB $00
L1BA0 PHA
PEA $0064
_GetSCB
JSR L0A46
PLA
AND #$000F
STA L1D0E
LDA L1D0E
PHA
LDA #^L1D10
PHA
LDA #L1D10
PHA
_GetColorTable
JSR L0A46
PEA $0001
LDA #^L1D10
PHA
LDA #L1D10
PHA
_SetColorTable
JSR L0A46
PEA $0001
_SetAllSCBs
PHA
PHA
PEA $0000
PEA $0320
LDA L0288
PHA
PEA $C008
PEA $0000
PEA $0000
_NewHandle
JSR L0A46
PLA
STA $00
STA L1EC0
PLA
STA $02
STA L1EC0+2
LDY #$0000
LDA [$00],Y
STA L1EC4
LDY #$0002
LDA [$00],Y
STA L1EC4+2
LDA #^L1ECE
STA L0298+2
LDA #L1ECE
STA L0298
LDA #$000F
STA L029C
JSL GSOS
DW $0012 ; Read
ADRL L0296
LDA #$00E1
STA L0298+2
LDA #$9E00
STA L0298
PHA
PHA
LDA L1EDB
PHA
LDA #$0020
PHA
_Multiply
PLA
STA L029C
PLA
STA L029C+2
JSL GSOS
DW $0012 ; Read
ADRL L0296
LDA #^L1EDD
STA L0298+2
LDA #L1EDD
STA L0298
LDA #$0002
STA L029C
LDA #$0000
STA L029C+2
JSL GSOS
DW $0012 ; Read
ADRL L0296
LDA L1EC4
STA L0298
LDA L1EC4+2
STA L0298+2
LDA #$0320
STA L029C
LDA #$0000
STA L029C+2
JSL GSOS
DW $0012 ; Read
ADRL L0296
LDA L039F
STA L0270
LDA L039F+2
STA L0272
JSR L0A78
LDA L0274
STA L03A3
LDA L0276
STA L03A3+2
LDA L039F+2
PHA
LDA L039F
PHA
_HLock
JSR L0A46
LDA L03A3
STA L0298
LDA L03A3+2
STA L0298+2
LDA #$8000
STA L029C
LDA #$0000
STA L029C+2
JSL GSOS
DW $0012 ; Read
ADRL L0296
JSL GSOS
DW $0014 ; Close
ADRL L02A4
RTS
L1D0E DW $0000
L1D10 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
L1D30 LDA #$00E1
STA L0298+2
LDA #$2000
STA L0298
LDA L03A3
STA L1EC8
LDA L03A3+2
STA L1EC8+2
LDA #$00C8
STA L0284
LDA #$0000
STA L03BD
L1D54 LDA #$0000
STA L1ECC
LDA #$00A0
STA L03BB
L1D60 PHA
LDA L1EC8+2
PHA
LDA L1EC8
PHA
LDA L1EC4
STA $00
LDA L1EC4+2
STA $02
LDA L03BD
ASL
ASL
TAY
LDA [$00],Y
PHA
LDA #^L0298
PHA
LDA #L0298
PHA
LDA #^L03BB
PHA
LDA #L03BB
PHA
_UnPackBytes
PLA
CLC
ADC L1ECC
STA L1ECC
LDA L03BB
BNE L1D60
LDA L1EC8
CLC
ADC L1ECC
STA L1EC8
LDA L1EC8+2
ADC #$0000
STA L1EC8+2
LDA L03BD
PHA
PEA $0000
_SetSCB
JSR L0A46
INC L03BD
DEC L0284
BEQ L1DCF
JMP L1D54
L1DCF LDA L1EC0+2
PHA
LDA L1EC0
PHA
_DisposeHandle
JSR L0A46
LDA L1EC8
CLC
ADC #$0009
STA L1EC8
LDA L1EC8+2
ADC #$0000
STA L1EC8+2
LDX #$0000
L1DF7 LDA L1EC8
STA $00
LDA L1EC8+2
STA $02
LDY #$0006
LDA [$00],Y
BEQ L1E0E
LDA #$FFFE
JMP L1E11
L1E0E LDA #$0002
L1E11 STA L1E58,X
LDY #$0008
LDA [$00],Y
AND #$00FF
ASL
STA L1E68,X
STA L1E78,X
INY
LDA [$00],Y
AND #$00FF
ASL
STA L1E70,X
LDA L1EC8
CLC
ADC #$0008
STA L1EC8
INX
INX
CPX #$0008
BCS L1E41
JMP L1DF7
L1E41 LDA L039F+2
PHA
LDA L039F
PHA
_HUnlock
JSR L0A46
RTS
L1E54 ADRL $00000000
L1E58 DW $0000
DW $0000
DW $0000
DW $0000
L1E60 DW $0005
DW $0005
DW $0005
DW $0005
L1E68 DW $0000
DW $0000
DW $0000
DW $0000
L1E70 DW $0000
DW $0000
DW $0000
DW $0000
L1E78 DW $0000
DW $0000
DW $0000
DW $0000
L1E80 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
L1EA0 HEX 00000000000000000000000000000000
HEX 00000000000000000000000000000000
L1EC0 ADRL $00000000
L1EC4 ADRL $00000000
L1EC8 ADRL $00000000
L1ECC DW $0000
L1ECE DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L1EDB DW $0000
L1EDD DW $0000
*L1EDF STR '/oc.boot.disk/data2'
*L1EF3 STR '/oc.boot.disk/data1'
L1EDF STR '1/data2'
L1EF3 STR '1/data1'
L1F07 DW $0007 ; prefix num
ADRL L1EDF ; prefix ptr
L1F0D DW $0000 ; prefix num
ADRL L1EF3 ; prefix ptr
L1F13 DB $00
L1F14 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L1F54 DB $00
L1F55 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L1F95 DW $0007 ; prefix num
ADRL L1F13 ; prefix ptr
L1F9B DW $0000 ; prefix num
ADRL L1F54 ; prefix ptr
L1FA1 DW $0001 ; prefix num
ADRL L1F54 ; prefix ptr
L1FA7 DW $0001 ; prefix num
ADRL L1F13 ; prefix ptr
L1FAD STR 'DATA1'
L1FB3 STR 'DATA2'
L1FB9 DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
DB $00
L1FC9 ADRL L1FB9 ; buffer ptr
L1FCD STR '/OC.BOOT.DISK/'
L1FDC JSL GSOS
DW $0028 ; GetBootVol
ADRL L1FC9
JSR L0A46
JSR L2048
BCS L1FF1
JMP L2029
L1FF1 JSL GSOS
DW $000A ; GetPrefix
ADRL L1FA1
JSR L0A46
JSL GSOS
DW $000A ; GetPrefix
ADRL L1FA7
JSR L0A46
JSR L2083
JSL GSOS
DW $0009 ; SetPrefix
ADRL L1F95
JSR L0A46
JSL GSOS
DW $0009 ; SetPrefix
ADRL L1F9B
JSR L0A46
RTS
L2029 JSL GSOS
DW $0009 ; SetPrefix
ADRL L1F07
JSR L0A46
JSL GSOS
DW $0009 ; SetPrefix
ADRL L1F0D
JSR L0A46
RTS
MX %00
L2044 DB $00
DB $00
L2046 DB $00
DB $00
L2048 LDA L1FB9
AND #$00FF
STA L2044
LDA L1FCD
AND #$00FF
CMP L2044
BNE L207B
LDY #$0000
L205F INY
LDA L1FB9,Y
AND #$007F
STA L2046
LDA L1FCD,Y
AND #$007F
CMP L2046
BNE L207B
CPY L2044
BCC L205F
CLC
RTS
L207B SEC
RTS
L207D DB $00
DB $00
L207F DB $00
DB $00
L2081 DB $00
DB $00
L2083 LDA L1FAD
AND #$00FF
STA L207D
STA L2081
LDA L1F54
AND #$00FF
TAY
LDX #$0001
L2099 LDA L1FAD,X
AND #$00FF
STA L207F
LDA L1F55,Y
AND #$FF00
ORA L207F
STA L1F55,Y
INY
INX
DEC L207D
BNE L2099
LDA L1F54
CLC
ADC L2081
STA L1F54
LDA L1FB3
AND #$00FF
STA L207D
STA L2081
LDA L1F13
AND #$00FF
TAY
LDX #$0001
L20D5 LDA L1FB3,X
AND #$00FF
STA L207F
LDA L1F14,Y
AND #$FF00
ORA L207F
STA L1F14,Y
INY
INX
DEC L207D
BNE L20D5
LDA L1F13
CLC
ADC L2081
STA L1F13
RTS
Reference in New Issue View Git Blame Copy Permalink