mirror of
https://github.com/antoinevignau/source.git
synced 2024-12-29 11:30:55 +00:00
861 lines
16 KiB
ArmAsm
861 lines
16 KiB
ArmAsm
*
|
|
* HypercardGS
|
|
* segment: $24 HPrintCard
|
|
*
|
|
* (k) 2015, Brutal Deluxe Software
|
|
*
|
|
|
|
mx %00
|
|
rel
|
|
dsk HPrintCard.l
|
|
lst off
|
|
|
|
*---------------------------------------
|
|
|
|
use HPrintCard.X
|
|
|
|
use 4/Ctl.Macs
|
|
use 4/Desk.Macs
|
|
use 4/Dialog.Macs
|
|
use 4/Event.Macs
|
|
use 4/Int.Macs
|
|
use 4/Line.Macs
|
|
use 4/List.Macs
|
|
use 4/Locator.Macs
|
|
use 4/Mem.Macs
|
|
use 4/Menu.Macs
|
|
use 4/MidiSyn.Macs
|
|
use 4/Misc.Macs
|
|
use 4/Qd.Macs
|
|
use 4/Sound.Macs
|
|
use 4/Std.Macs
|
|
use 4/Text.Macs
|
|
use 4/Util.Macs
|
|
use 4/Window.Macs
|
|
|
|
*---------------------------------------
|
|
|
|
L240000 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFF0
|
|
TCS
|
|
TCD
|
|
PHY
|
|
JSL L073CDF
|
|
PLA
|
|
STA $0B
|
|
LDA $1A
|
|
BEQ L24001B
|
|
LDA #$0008
|
|
STA $09
|
|
BRA L240020
|
|
L24001B LDA #$0010
|
|
STA $09
|
|
L240020 PHY
|
|
PEI $09
|
|
LDY #$0038
|
|
LDA [$16],Y
|
|
PHA
|
|
DEY
|
|
DEY
|
|
LDA [$16],Y
|
|
PHA
|
|
JSL L160A5A
|
|
PLA
|
|
LSR
|
|
BCC L240092
|
|
PHY
|
|
PEA ^L0408D5
|
|
PEA L0408D5
|
|
JSL L160B56
|
|
PLA
|
|
LSR
|
|
BCC L240092
|
|
PEI $1A
|
|
JSL L160BAA
|
|
* PEA ^L160BAA
|
|
* PEA L160BAA
|
|
* JSL L07187A
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
LDA #$0001
|
|
CLC
|
|
ADC $16
|
|
LDX $18
|
|
BCC L240069
|
|
INX
|
|
L240069 PHX
|
|
PHA
|
|
PEA $0008
|
|
JSL L0313BE
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEA $FFFE
|
|
PEA $0000
|
|
JSL L151005
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L150B34
|
|
L240092 PEI $09
|
|
LDY #$0038
|
|
LDA [$16],Y
|
|
PHA
|
|
DEY
|
|
DEY
|
|
LDA [$16],Y
|
|
PHA
|
|
JSL L160B80
|
|
PEI $0B
|
|
JSL L0724F7
|
|
LDA $14
|
|
STA $1A
|
|
LDA $13
|
|
STA $19
|
|
LDA $11
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0018
|
|
TCS
|
|
RTL
|
|
|
|
L2400BB PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFA
|
|
TCS
|
|
TCD
|
|
STZ $01
|
|
LDAL L051EF0
|
|
DEC
|
|
BEQ L2400D1
|
|
LDA #$00FF
|
|
STA $01
|
|
L2400D1 PEI $01
|
|
LDY #$0017
|
|
LDA [$0C],Y
|
|
PHA
|
|
DEY
|
|
DEY
|
|
LDA [$0C],Y
|
|
PHA
|
|
PEA $000B
|
|
JSL L072E7C
|
|
LDA $0A
|
|
STA $0E
|
|
LDA $09
|
|
STA $0D
|
|
LDA $07
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
RTL
|
|
|
|
L2400F7 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFA
|
|
TCS
|
|
TCD
|
|
STZ $01
|
|
LDAL L051EF2
|
|
DEC
|
|
DEC
|
|
BNE L24010E
|
|
LDA #$00FF
|
|
STA $01
|
|
L24010E PEI $01
|
|
LDY #$0017
|
|
LDA [$0C],Y
|
|
PHA
|
|
DEY
|
|
DEY
|
|
LDA [$0C],Y
|
|
PHA
|
|
PEA $000D
|
|
JSL L072E7C
|
|
LDA $0A
|
|
STA $0E
|
|
LDA $09
|
|
STA $0D
|
|
LDA $07
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$000C
|
|
TCS
|
|
RTL
|
|
|
|
L240134 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFFC
|
|
TCS
|
|
TCD
|
|
LDY #$002B
|
|
LDA [$0A],Y
|
|
BEQ L240160
|
|
PEA $0001
|
|
LDY #$0017
|
|
LDA [$0A],Y
|
|
PHA
|
|
DEY
|
|
DEY
|
|
LDA [$0A],Y
|
|
PHA
|
|
PEA $0007
|
|
JSL L073B05
|
|
LDA #$0000
|
|
LDY #$002B
|
|
STA [$0A],Y
|
|
L240160 LDA $08
|
|
STA $0C
|
|
LDA $07
|
|
STA $0B
|
|
LDA $05
|
|
TCD
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
PLY
|
|
RTL
|
|
|
|
L240171 PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFC6
|
|
TCS
|
|
TCD
|
|
PEA ^L051EF0
|
|
PEA L051EF0
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
JSL L160A3E
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
LDA #$0001
|
|
CLC
|
|
ADC $40
|
|
LDX $42
|
|
BCC L2401A0
|
|
INX
|
|
L2401A0 PHX
|
|
PHA
|
|
JSL L160BC6
|
|
LDA $3E
|
|
STA $42
|
|
LDA $3D
|
|
STA $41
|
|
LDA $3B
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$0040
|
|
TCS
|
|
RTL
|
|
|
|
L2401B8 ENT
|
|
PHD
|
|
TSC
|
|
CLC
|
|
ADC #$FFD0
|
|
TCS
|
|
TCD
|
|
PHY
|
|
PHY
|
|
JSL L150493
|
|
PLA
|
|
STA $1B
|
|
PLX
|
|
STX $1D
|
|
PEI $3C
|
|
PEI $3A
|
|
PHY
|
|
PHY
|
|
PEA $0835
|
|
JSL L0711EB
|
|
PEA ^L0408DE
|
|
PEA L0408DE
|
|
PEA ^L0408DF
|
|
PEA L0408DF
|
|
JSL L073C22
|
|
PHY
|
|
PHY
|
|
PEA $3FAC
|
|
JSL L072834
|
|
PLA
|
|
STA $15
|
|
PLX
|
|
STX $17
|
|
PHY
|
|
PHY
|
|
JSL L150FF3
|
|
PLA
|
|
STA $09
|
|
PLX
|
|
STX $0B
|
|
LDX #$0000
|
|
LDA #$0001
|
|
AND $0B
|
|
BNE L24020F
|
|
INX
|
|
L24020F TXA
|
|
STA $29
|
|
LDAL L051EF4
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000B
|
|
JSL L073B05
|
|
LDAL L051EF6
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000A
|
|
JSL L073B05
|
|
LDAL L051F20
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000D
|
|
JSL L073B05
|
|
LDA L055327
|
|
LDX L055329
|
|
STA $2D
|
|
STX $2F
|
|
LDY #$0002
|
|
LDA [$2D],Y
|
|
TAX
|
|
LDA [$2D]
|
|
CLC
|
|
ADC #$0018
|
|
BCC L24025B
|
|
INX
|
|
L24025B STA $2D
|
|
STX $2F
|
|
LDA #$0020
|
|
AND [$2D]
|
|
BEQ L240269
|
|
LDA #$0001
|
|
L240269 AND $29
|
|
BEQ L240274
|
|
LDA #$0012
|
|
STA $21
|
|
BRA L240279
|
|
L240274 LDA #$0013
|
|
STA $21
|
|
L240279 PEI $17
|
|
PEI $15
|
|
PEI $21
|
|
JSL L073CFE
|
|
PHY
|
|
PEI $17
|
|
PEI $15
|
|
JSL L160BE2
|
|
PLA
|
|
STA $2B
|
|
PEA $0000
|
|
PHD
|
|
JSL L2400F7
|
|
PEA $0000
|
|
PHD
|
|
JSL L2400BB
|
|
LDAL L051F16
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000C
|
|
JSL L073B05
|
|
LDAL L051EF0
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000E
|
|
JSL L073B05
|
|
LDAL L051EF2
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $0005
|
|
JSL L073B05
|
|
PHY
|
|
PHY
|
|
JSL L160BD4
|
|
PLA
|
|
STA $0D
|
|
PLX
|
|
STX $0F
|
|
LDA $0D
|
|
ORA $0F
|
|
BNE L2402E4
|
|
BRL L2406AC
|
|
L2402E4 PHY
|
|
LDA L055327
|
|
LDX L055329
|
|
PHX
|
|
PHA
|
|
JSL L15038F
|
|
PLA
|
|
BNE L2402FB
|
|
LDA #$000F
|
|
STA $1F
|
|
BRA L240300
|
|
L2402FB LDA #$0010
|
|
STA $1F
|
|
L240300 PEI $17
|
|
PEI $15
|
|
PEI $1F
|
|
JSL L073CFE
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PHY
|
|
PHY
|
|
PEI $17
|
|
PEI $15
|
|
PEI $1F
|
|
JSL L073032
|
|
PEA $0008
|
|
JSL L0313BE
|
|
TDC
|
|
CLC
|
|
ADC #$0001
|
|
PEA $0000
|
|
PHA
|
|
PEA $0008
|
|
PEA $0004
|
|
JSL L151005
|
|
PEI $17
|
|
PEI $15
|
|
JSL L15102F
|
|
PEI $17
|
|
PEI $15
|
|
JSL L1511C8
|
|
PEI $17
|
|
PEI $15
|
|
JSL L151131
|
|
PHY
|
|
JSL L0727BF
|
|
PLA
|
|
STA $19
|
|
STZ L05533F
|
|
STZ L05533D
|
|
L24035F PHY
|
|
PEA $0001
|
|
JSL L0736C8
|
|
PLA
|
|
STA $23
|
|
PHY
|
|
TDC
|
|
CLC
|
|
ADC #$0011
|
|
PEA $0000
|
|
PHA
|
|
LDAL L0540AB
|
|
PHA
|
|
LDAL L0540A9
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
JSL L150482
|
|
PLA
|
|
STA $21
|
|
LDA #$FFFD
|
|
CMP $23
|
|
BEQ L240393
|
|
BRL L2404A8
|
|
L240393 LDA #$007F
|
|
ANDL L0540A1
|
|
STA $21
|
|
LDA $21
|
|
SEC
|
|
SBC #$0008
|
|
BPL L2403A7
|
|
BRL L240451
|
|
L2403A7 CMP #$0078
|
|
BMI L2403AF
|
|
BRL L240451
|
|
L2403AF SEC
|
|
SBC #$0000
|
|
BEQ L240405
|
|
DEC
|
|
BEQ L2403F6
|
|
SEC
|
|
SBC #$0004
|
|
BEQ L240405
|
|
SEC
|
|
SBC #$0008
|
|
BEQ L240405
|
|
DEC
|
|
DEC
|
|
DEC
|
|
BEQ L240405
|
|
DEC
|
|
DEC
|
|
DEC
|
|
BEQ L240405
|
|
SEC
|
|
SBC #$0028
|
|
BEQ L240414
|
|
SEC
|
|
SBC #$0013
|
|
BEQ L240414
|
|
DEC
|
|
DEC
|
|
BEQ L240414
|
|
SEC
|
|
SBC #$000B
|
|
BEQ L240414
|
|
SEC
|
|
SBC #$0013
|
|
BEQ L240414
|
|
DEC
|
|
DEC
|
|
BEQ L240414
|
|
SEC
|
|
SBC #$0007
|
|
BEQ L240405
|
|
BRA L240451
|
|
L2403F6 PHY
|
|
PHY
|
|
JSL L150FE7
|
|
PLA
|
|
STA $11
|
|
PLX
|
|
STX $13
|
|
BRL L2404A8
|
|
L240405 PHY
|
|
PEI $17
|
|
PEI $15
|
|
JSL L072354
|
|
PLA
|
|
STA $23
|
|
BRL L2404A8
|
|
L240414 LDA #$0100
|
|
ANDL L0540AD
|
|
BEQ L24044F
|
|
PEI $21
|
|
PHY
|
|
PHY
|
|
JSL L150AF2
|
|
PLA
|
|
PLX
|
|
STA $2D
|
|
STX $2F
|
|
LDY #$0002
|
|
LDA [$2D],Y
|
|
TAX
|
|
LDA [$2D]
|
|
CLC
|
|
ADC #$001C
|
|
BCC L24043A
|
|
INX
|
|
L24043A STA $2D
|
|
STX $2F
|
|
LDY #$0002
|
|
LDA [$2D],Y
|
|
TAX
|
|
LDA [$2D]
|
|
PHX
|
|
PHA
|
|
PEA $0002
|
|
JSL L160B3A
|
|
L24044F BRA L2404A8
|
|
L240451 LDA $21
|
|
SEC
|
|
SBC #$0030
|
|
BVS L24045C
|
|
EOR #$8000
|
|
L24045C BMI L240463
|
|
LDA #$0000
|
|
BRA L240466
|
|
L240463 LDA #$0001
|
|
L240466 PHA
|
|
LDA $21
|
|
SEC
|
|
SBC #$003A
|
|
BVS L240472
|
|
EOR #$8000
|
|
L240472 BPL L240479
|
|
LDA #$0000
|
|
BRA L24047C
|
|
L240479 LDA #$0001
|
|
L24047C AND $01,S
|
|
PLX
|
|
PHA
|
|
LDX #$0000
|
|
LDA #$1000
|
|
ANDL L0540AD
|
|
BNE L24048D
|
|
INX
|
|
L24048D TXA
|
|
AND $01,S
|
|
PLX
|
|
LSR
|
|
BCC L2404A8
|
|
PHY
|
|
PEI $17
|
|
PEI $15
|
|
JSL L072354
|
|
PLA
|
|
STA $23
|
|
PEA $0000
|
|
PHD
|
|
JSL L240134
|
|
L2404A8 LDA #$FFFE
|
|
CMP $23
|
|
BNE L2404B4
|
|
LDA #$0063
|
|
STA $23
|
|
L2404B4 LDA $23
|
|
DEC
|
|
BPL L2404BC
|
|
BRL L240681
|
|
L2404BC CMP #$0063
|
|
BMI L2404C4
|
|
BRL L240681
|
|
L2404C4 SEC
|
|
SBC #$0000
|
|
BNE L2404CD
|
|
BRL L240553
|
|
L2404CD DEC
|
|
BNE L2404D3
|
|
BRL L240562
|
|
L2404D3 DEC
|
|
BNE L2404D9
|
|
BRL L24056B
|
|
L2404D9 DEC
|
|
BNE L2404DF
|
|
BRL L240579
|
|
L2404DF DEC
|
|
BNE L2404E5
|
|
BRL L240652
|
|
L2404E5 DEC
|
|
BNE L2404EB
|
|
BRL L240587
|
|
L2404EB DEC
|
|
BNE L2404F1
|
|
BRL L2405A1
|
|
L2404F1 DEC
|
|
BNE L2404F7
|
|
BRL L2405A1
|
|
L2404F7 DEC
|
|
BNE L2404FD
|
|
BRL L2405A1
|
|
L2404FD DEC
|
|
BNE L240503
|
|
BRL L2405F2
|
|
L240503 DEC
|
|
BNE L240509
|
|
BRL L2405D3
|
|
L240509 DEC
|
|
BNE L24050F
|
|
BRL L24063F
|
|
L24050F DEC
|
|
BNE L240515
|
|
BRL L2405AC
|
|
L240515 DEC
|
|
BNE L24051B
|
|
BRL L240610
|
|
L24051B SEC
|
|
SBC #$0055
|
|
BEQ L240524
|
|
BRL L240681
|
|
L240524 PEI $17
|
|
PEI $15
|
|
JSL L1506B3
|
|
LDA L05531F
|
|
LDX L055321
|
|
PHX
|
|
PHA
|
|
JSL L150D20
|
|
PEI $17
|
|
PEI $15
|
|
JSL L1517CD
|
|
PEA $0000
|
|
PHD
|
|
JSL L240171
|
|
PEI $17
|
|
PEI $15
|
|
JSL L1506AD
|
|
BRL L240681
|
|
L240553 LDA #$0001
|
|
STA L05533F
|
|
LDA #$0001
|
|
STA L05533D
|
|
BRL L240681
|
|
L240562 LDA #$0001
|
|
STA L05533F
|
|
BRL L240681
|
|
L24056B PEA $0001
|
|
PEA $0000
|
|
PHD
|
|
JSL L240000
|
|
BRL L240681
|
|
L240579 PEA $0000
|
|
PEA $0000
|
|
PHD
|
|
JSL L240000
|
|
BRL L240681
|
|
L240587 LDA $2B
|
|
BNE L24059E
|
|
PEA $0001
|
|
PEI $17
|
|
PEI $15
|
|
PEA $0006
|
|
JSL L073B05
|
|
LDA #$0001
|
|
STA $2B
|
|
L24059E BRL L240681
|
|
L2405A1 PEA $0000
|
|
PHD
|
|
JSL L240134
|
|
BRL L240681
|
|
L2405AC LDA #$0001
|
|
SEC
|
|
SBCL L051F20
|
|
STAL L051F20
|
|
LDAL L051F20
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000D
|
|
JSL L073B05
|
|
PEA $0000
|
|
PHD
|
|
JSL L240171
|
|
BRL L240681
|
|
L2405D3 LDA #$0001
|
|
SEC
|
|
SBCL L051EF4
|
|
STAL L051EF4
|
|
LDAL L051EF4
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000B
|
|
JSL L073B05
|
|
BRL L240681
|
|
L2405F2 LDA #$0001
|
|
SEC
|
|
SBCL L051EF6
|
|
STAL L051EF6
|
|
LDAL L051EF6
|
|
PHA
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000A
|
|
JSL L073B05
|
|
BRA L240681
|
|
L240610 PHY
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000E
|
|
JSL L072B6B
|
|
PLA
|
|
STA $21
|
|
LDAL L051EF0
|
|
CMP $21
|
|
BEQ L24063D
|
|
LDA $21
|
|
STAL L051EF0
|
|
PEA $0000
|
|
PHD
|
|
JSL L2400BB
|
|
PEA $0000
|
|
PHD
|
|
JSL L240171
|
|
L24063D BRA L240681
|
|
L24063F PHY
|
|
PEI $17
|
|
PEI $15
|
|
PEA $000C
|
|
JSL L072B6B
|
|
PLA
|
|
STAL L051F16
|
|
BRA L240681
|
|
L240652 PHY
|
|
PEI $17
|
|
PEI $15
|
|
PEA $0005
|
|
JSL L072B6B
|
|
PLA
|
|
STA $21
|
|
LDAL L051EF2
|
|
CMP $21
|
|
BEQ L24067F
|
|
LDA $21
|
|
STAL L051EF2
|
|
PEA $0000
|
|
PHD
|
|
JSL L2400F7
|
|
PEA $0000
|
|
PHD
|
|
JSL L240171
|
|
L24067F BRA L240681
|
|
L240681 LDA L05533F
|
|
BNE L240689
|
|
BRL L24035F
|
|
L240689 LDA L05533D
|
|
BEQ L2406AC
|
|
PEI $17
|
|
PEI $15
|
|
PEI $2B
|
|
JSL L160BF0
|
|
LDA L055335
|
|
PHA
|
|
PHY
|
|
PEI $0F
|
|
PEI $0D
|
|
JSL L160BB8
|
|
PLA
|
|
ORA $01,S
|
|
PLX
|
|
STA L055335
|
|
L2406AC PEI $17
|
|
PEI $15
|
|
JSL L072634
|
|
PEI $19
|
|
JSL L0724F7
|
|
PEI $1D
|
|
PEI $1B
|
|
JSL L151131
|
|
JSL L09AFB1
|
|
PEI $0F
|
|
PEI $0D
|
|
JSL L07185A
|
|
LDA $34
|
|
STA $3C
|
|
LDA $33
|
|
STA $3B
|
|
LDA $31
|
|
TCD
|
|
TSC
|
|
CLC
|
|
ADC #$003A
|
|
TCS
|
|
RTL
|
|
|