*
* 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

