* * Talking Dinosaurs * * (c) 1989, Orange Cherry Software * (s) 2022, Antoine Vignau * mx %00 rel dsk Dinosaurs lst off *---------------------------- GSOS EQU $E100A8 use 4/Ctl.Macs use 4/Desk.Macs use 4/Dialog.Macs use 4/Event.Macs use 4/Font.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/Misc.Macs use 4/Print.Macs use 4/QD.Macs use 4/QDAux.Macs use 4/Sound.Macs use 4/Util.Macs use 4/Window.Macs *---------------------------- CLC XCE REP #$30 PHK PLB JSR L19F8 JSR L3368 JSR L21FA PEA ^L159A PEA L159A PEA $0019 PEA $0082 PEA $0024 PEA $0087 _SetRect LDA #$0066 STA L1E3B LDA L1E3B PHA PEA $000F _SetSoundVolume LDA $00 PHA LDA $02 PHA PEA $0000 PEA $0000 PEA $0000 LDA #$8000 PHA LDA L1D7B PHA PEA $C008 PEA $0000 PEA $0000 _NewHandle JSR L3D9D PLA STA $00 STA L1E59 PLA STA $02 STA L1E59+2 PLA STA $02 PLA STA $00 LDA $00 PHA LDA $02 PHA LDA L1E59 STA $00 LDA L1E59+2 STA $02 LDY #$0000 LDA [$00],Y STA L1E5D LDY #$0002 LDA [$00],Y STA L1E5D+2 PLA STA $02 PLA STA $00 LDA L1E5D+2 STA L322C+2 STA L324C+2 LDA L1E5D STA L322C STA L324C LDA $00 PHA LDA $02 PHA PEA $0000 PEA $0000 PEA $0000 LDA #$1000 PHA LDA L1D7B PHA PEA $C008 PEA $0000 PEA $0000 _NewHandle JSR L3D9D PLA STA $00 STA L1E61 PLA STA $02 STA L1E61+2 PLA STA $02 PLA STA $00 LDA $00 PHA LDA $02 PHA LDA L1E61 STA $00 LDA L1E61+2 STA $02 LDY #$0000 LDA [$00],Y STA L1E65 LDY #$0002 LDA [$00],Y STA L1E65+2 PLA STA $02 PLA STA $00 LDA L1E65+2 STA L325C+2 LDA L1E65 STA L325C JMP L013A L0121 STR '1/PICTURES/TRADEMARK.PAC' L013A LDA #^L0121 STA L1D4D+2 LDA #L0121 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 JSR L436A JMP L017D L0168 STR '1/PICTURES/TITLE.PAC' L017D LDA #^L0168 STA L1D4D+2 LDA #L0168 STA L1D4D DW $A822 BRK $E1 DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 JSR L436A JMP L01BF L01AB STR '1/PICTURES/WAIT.PAC' L01BF LDA #^L01AB STA L1D4D+2 LDA #L01AB STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 JSR L1958 JSR L17B7 JSR L1ACC LDA #L15BE STA L1616 JSR L1837 JMP L020F L01FC STR '1/PICTURES/IGY.PAC' L020F LDA #^L01FC STA L1D4D+2 LDA #L01FC STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 LDA #$0049 STA L1E3D JSR L4529 LDA #$004A STA L1E3D JSR L4529 JSR L185C JSR L436A JMP L0266 L0252 STR '1/PICTURES/MENU.PAC' L0266 LDA #^L0252 STA L1D4D+2 LDA #L0252 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette JMP L02B4 L029F STR '1/PICTURES/BLINK.WIN' L02B4 LDA #^L029F STA L1D4D+2 LDA #L029F STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L458C _InitCursor L02E0 PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L02E0 CMP #$0011 BEQ L0305 LDA L1E19 CMP #$0001 BEQ L0321 BRA L02E0 L0305 LDA L1E29 AND #$00FF ASL TAX JSR (L1580,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu JMP L02E0 L0321 LDY #$0000 L0324 PHY PEA $0000 PEA ^L1E23 PEA L1E23 LDA L2F0C+2,Y PHA LDA L2F0C,Y PHA _PtInRect PLA BNE L0397 PLY INY INY INY INY CPY #$0018 BNE L0324 _HideCursor PEA ^L333C PEA L333C _PaintPixels JSR L3D9D _ShowCursor PEA ^L3272 PEA L3272 PEA $00D3 PEA $0020 _SetPt JSR L4631 LDA #$000B JSR L4475 PEA ^L3352 PEA L3352 _PaintPixels JSR L3D9D JMP L02E0 L0397 PLA LSR CLC ADC #$000E TAX JSR (L1580,X) _HideCursor JMP L03BF L03AB STR '1/PICTURES/MENU.PAC' L03BF LDA #^L03AB STA L1D4D+2 LDA #L03AB STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor JMP L0414 L03FF STR '1/PICTURES/BLINK.WIN' L0414 LDA #^L03FF STA L1D4D+2 LDA #L03FF STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L458C JMP L02E0 L043C JSR L17DE PEA $0000 PEA ^L224C PEA L224C PEA $0000 PEA $0000 _Alert PLA RTS L0457 JSR L17DE LDA #$004D STA L1E3F JSR L3E7D JSR L3F23 PEA $0000 PEA $0000 PEA ^L23E6 PEA L23E6 _GetNewModalDialog JSR L3D9D PLA STA L2457 PLA STA L2457+2 PEA $0000 PEA ^L0582 PEA L0582 _StringWidth PLA STA L0580 SEC LDA #$0140 SBC L0580 LSR STA L0580 LDA L0580 PHA LDA #$0032 PHA _MoveTo PEA ^L0582 PEA L0582 _DrawString LDA #$0000 PHA _SetSolidPenPat LDA #$0001 PHA LDA #$0001 PHA _SetPenSize PEA ^L3136 PEA L3136 _FrameRect PEA $0000 PEA $0000 LDA L1E3B PHA LDA #$0011 PHA _UDivide PLA STA L057C PLA STA L057E STZ L057A L0506 LDA L057A ASL ASL TAX LDA L3166+2,X PHA LDA L3166,X PHA _PaintRect LDA L057A CMP L057C BEQ L0528 INC L057A BRA L0506 L0528 PEA $0000 PEA $0000 PEA $0000 _ModalDialog JSR L3D9D PLA CMP #$0003 BEQ L054D CMP #$0005 BEQ L0555 CMP #$0001 BEQ L055D BRA L0528 L054D JSR L1672 JSR L1658 BRA L0528 L0555 JSR L16C4 JSR L1658 BRA L0528 L055D LDA L2457+2 PHA LDA L2457 PHA _CloseDialog JSR L3D9D LDA #$004D STA L1E3F JSR L3F91 BRA L0597 L057A DW $0000 L057C DW $0000 L057E DW $0000 L0580 DW $0000 L0582 STR 'Volume Control Panel' L0597 RTS L0598 JSR L17DE PEA $0000 PEA ^L245B PEA L245B PEA $0000 PEA $0000 _Alert PLA RTS L05B3 JSR L17DE PEA $0000 PEA ^L2546 PEA L2546 PEA $0000 PEA $0000 _Alert PLA RTS L05CE JSR L17DE PEA $0000 PEA ^L260C PEA L260C PEA $0000 PEA $0000 _Alert PLA RTS L05E9 JSR L17DE PEA $0000 PEA ^L278B PEA L278B PEA $0000 PEA $0000 _Alert PLA RTS L0604 JSR L17DE PEA $0000 PEA ^L290A PEA L290A PEA $0000 PEA $0000 _Alert PLA RTS L061F JSR L17DE PEA $0000 PEA ^L2A1A PEA L2A1A PEA $0000 PEA $0000 _Alert PLA RTS L063A JSR L17DE PEA $0000 PEA ^L2B05 PEA L2B05 PEA $0000 PEA $0000 _Alert PLA RTS L0655 JSR L17DE PEA $0000 PEA ^L2C15 PEA L2C15 PEA $0000 PEA $0000 _Alert PLA RTS L0670 JSR L17DE PEA $0000 PEA ^L2D00 PEA L2D00 PEA $0000 PEA $0000 _Alert PLA RTS L068B _HideCursor PEA ^L32A2 PEA L32A2 _PaintPixels JSR L3D9D _ShowCursor PEA $0000 PEA $0000 PEA $0005 PEA ^L175B PEA L175B _Desktop PLA PLA PEA $0000 _PrChoosePrinter PLA RTS L06CD _HideCursor PEA ^L32CE PEA L32CE _PaintPixels JSR L3D9D _ShowCursor PEA $0000 PEA $0000 PEA $0005 PEA ^L176C PEA L176C _Desktop PLA PLA PEA $0000 LDA L2EE4+2 PHA LDA L2EE4 PHA _PrStlDialog JSR L3D9D PLA RTS L071A _HideCursor PEA ^L32FA PEA L32FA _PaintPixels JSR L3D9D _ShowCursor PEA $0000 PEA $0000 PEA $0005 PEA ^L177D PEA L177D _Desktop PLA PLA PEA $0000 LDA L2EE4+2 PHA LDA L2EE4 PHA _PrJobDialog JSR L3D9D PLA BNE L0769 RTS L0769 PEA $0000 PEA $0000 _GetPort PLA STA L1E43 PLA STA L1E45 PEA $0000 PEA $0000 LDA L2EE4+2 PHA LDA L2EE4 PHA PEA $0000 PEA $0000 _PrOpenDoc JSR L3D9D PLA STA L3226 PLA STA L3226+2 LDA L3226+2 PHA LDA L3226 PHA PEA $0000 PEA $0000 _PrOpenPage JSR L3D9D PEA ^L324A PEA L324A PEA ^L312E PEA L312E PEA $0000 PEA $0000 PEA $0000 _PPToPort JSR L3D9D LDA L3226+2 PHA LDA L3226 PHA _PrClosePage JSR L3D9D LDA L3226+2 PHA LDA L3226 PHA _PrCloseDoc JSR L3D9D LDA L2EE4+2 PHA LDA L2EE4 PHA PEA $0000 PEA $0000 PEA ^L15A2 PEA L15A2 _PrPicFile JSR L3D9D LDA L1E45 PHA LDA L1E43 PHA _SetPort RTS L082D _HideCursor JMP L084C L0837 STR '1/PICTURES/NAMES.PAC' L084C LDA #^L0837 STA L1D4D+2 LDA #L0837 STA L1D4D JSL GSOS DW $0010 ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor _WaitCursor LDA #L15C4 STA L1616 JSR L1815 _InitCursor LDA #$0041 STA L1E3D JSR L4529 LDA #$0042 STA L1E3D JSR L4529 LDA #$0043 STA L1E3D JSR L4529 STZ L0941 L08BE PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L08BE CMP #$0011 BEQ L091C LDA L1E19 CMP #$0001 BEQ L08E3 BRA L08BE L08E3 LDY #$0000 L08E6 PHY PEA $0000 PEA ^L1E23 PEA L1E23 LDA L2F54+2,Y PHA LDA L2F54,Y PHA _PtInRect PLA BNE L090E PLY INY INY INY INY CPY #$0018 BNE L08E6 BRA L08BE L090E PLA LSR TAY LDA L2F9C,Y STA L1E3D JSR L4529 BRA L08BE L091C LDA L1E29 AND #$00FF ASL TAX JSR (L0943,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L0941 CMP #$00FF BNE L08BE jmp L185C L0941 DW $0000 L0943 DA L043C DA L05B3 DA L0457 DA L0951 DA L0951 DA L0951 DA L0952 L0951 RTS L0952 LDA #$00FF STA L0941 RTS L0959 _HideCursor JMP L0979 L0963 STR '1/PICTURES/HIDDEN.PAC' L0979 LDA #^L0963 STA L1D4D+2 LDA #L0963 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor _WaitCursor LDA #L15D4 STA L1616 JSR L1815 _InitCursor LDA #$0041 STA L1E3D JSR L4529 LDA #$0042 STA L1E3D JSR L4529 LDA #$0044 STA L1E3D JSR L4529 STZ L0AB3 STZ L0AB7 LDX #$0000 L09F1 STZ L0AB9,X INX INX CPX #$000A BCC L09F1 L09FB PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L09FB CMP #$0011 BNE L0A19 JMP L0A8B L0A19 LDA L1E19 CMP #$0001 BEQ L0A23 BRA L09FB L0A23 LDY #$0000 L0A26 PHY PEA $0000 PEA ^L1E23 PEA L1E23 LDA L2FA8+2,Y STA $02 LDA L2FA8,Y STA $00 LDY #$0002 LDA [$00],Y PHA LDY #$0000 LDA [$00],Y PHA _PtInRgn PLA BNE L0A66 PLY INY INY INY INY CPY #$0014 BNE L0A26 LDA #$004C STA L1E3D JSR L4529 JMP L09FB L0A66 PLA LSR TAX LDA L0AB9,X BNE L0A77 INC L0AB7 LDA #$FFFF STA L0AB9,X L0A77 LDA L2FD0,X STA L1E3D JSR L4529 LDA L0AB7 CMP #$0005 BEQ L0AAF JMP L09FB L0A8B LDA L1E29 AND #$00FF ASL TAX JSR (L0AC3,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L0AB3 CMP #$00FF BEQ L0AAF JMP L09FB L0AAF JSR L185C RTS L0AB3 DW $0000 DW $0000 L0AB7 DW $0000 L0AB9 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 L0AC3 DA L043C DA L05CE DA L0457 DA L0AD1 DA L0AD1 DA L0AD1 DA L0AD2 L0AD1 RTS L0AD2 LDA #$00FF STA L0AB3 RTS L0AD9 _HideCursor JMP L0AF8 L0AE3 STR '1/PICTURES/BONES.PAC' L0AF8 LDA #^L0AE3 STA L1D4D+2 LDA #L0AE3 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor _WaitCursor LDA #L15E6 STA L1616 JSR L1815 _InitCursor STZ L0C92 STZ L0C96 LDX #$0000 L0B55 STZ L0C98,X INX INX CPX #$0014 BCC L0B55 JSR L4494 LDA #$000A STA L1E41 LDA #$0041 STA L1E3D JSR L4529 LDA #$0045 STA L1E3D JSR L4529 LDA #$0045 STA L1E3F JSR L3F91 LDA #$0039 STA L1E3F JSR L3E7D JSR L3F23 L0B8F JSR L44C7 ASL TAX LDA L0C98,X BNE L0B8F LDA #$FFFF STA L0C98,X STX L0CAC L0BA2 LDA #$0046 STA L1E3D JSR L4529 LDX L0CAC LDA L3052,X STA L1E3D JSR L4529 LDA #$0047 STA L1E3D JSR L4529 L0BC0 PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L0BC0 CMP #$0011 BNE L0BDE JMP L0C61 L0BDE LDA L1E19 CMP #$0001 BEQ L0BE8 BRA L0BC0 L0BE8 LDY #$0000 L0BEB PHY PEA $0000 PEA ^L1E23 PEA L1E23 LDA L2FDA+2,Y PHA LDA L2FDA,Y PHA _PtInRect PLA BNE L0C2F PLY INY INY INY INY CPY #$0028 BCC L0BEB PEA $0000 PEA ^L1E23 PEA L1E23 PEA ^L2F04 PEA L2F04 _PtInRect PLA BEQ L0C2D JMP L0BA2 L0C2D BRA L0BC0 L0C2F PLA LSR LSR INC LDX L0CAC CMP L3066,X BEQ L0C47 LDA #$004C STA L1E3D JSR L4529 JMP L0BC0 L0C47 LDA #$004B STA L1E3D JSR L4529 INC L0C96 JSR L4468 LDA L0C96 CMP #$000A BEQ L0C85 JMP L0B8F L0C61 LDA L1E29 AND #$00FF ASL TAX JSR (L0CAE,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L0C92 CMP #$00FF BEQ L0C85 JMP L0BC0 L0C85 JSR L185C LDA #$0039 STA L1E3F JSR L3F91 RTS L0C92 DW $0000 DW $0000 L0C96 DW $0000 L0C98 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 L0CAC DW $0000 L0CAE DA L043C DA L05E9 DA L0457 DA L0CBC DA L0CBC DA L0CBC DA L0CBD L0CBC RTS L0CBD LDA #$00FF STA L0C92 RTS L0CC4 _HideCursor JMP L0CE2 L0CCE STR '1/PICTURES/PICK.PAC' L0CE2 LDA #^L0CCE STA L1D4D+2 LDA #L0CCE STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor _WaitCursor LDA #L1604 STA L1616 JSR L1815 _InitCursor STZ L0E56 STZ L0E58 LDA #$0001 PHA LDA #$0001 PHA _SetPenSize L0D4B LDA #$0008 PHA _SetSolidPenPat LDX L0E58 LDA L307A+2,X PHA LDA L307A,X PHA _FrameRect JSR L0E43 L0D6B PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L0D6B CMP #$0011 BEQ L0D90 LDA L1E19 CMP #$0001 BEQ L0DB5 BRA L0D6B L0D90 LDA L1E29 AND #$00FF ASL TAX JSR (L0E5A,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L0E56 CMP #$00FF BNE L0D6B L0DB1 JSR L185C RTS L0DB5 PEA $0000 PEA ^L1E23 PEA L1E23 LDX L0E58 LDA L307A+2,X PHA LDA L307A,X PHA _PtInRect PLA BNE L0DD6 JMP L0D6B L0DD6 PEA $0000 PEA ^L1E23 PEA L1E23 LDX L0E58 LDA L309E+2,X PHA LDA L309E,X PHA _PtInRect PLA BNE L0E00 LDA #$004C STA L1E3D JSR L4529 JMP L0D6B L0E00 LDA #$004B STA L1E3D JSR L4529 LDA #$0007 PHA _SetSolidPenPat LDX L0E58 LDA L307A+2,X PHA LDA L307A,X PHA _FrameRect INC L0E58 INC L0E58 INC L0E58 INC L0E58 JSR L4468 LDA L0E58 CMP #$000C BEQ L0E40 JMP L0D4B L0E40 JMP L0DB1 L0E43 LDA #$0041 STA L1E3D JSR L4529 LDA #$0048 STA L1E3D JSR L4529 RTS L0E56 DW $0000 L0E58 DW $0000 L0E5A DA L043C DA L0604 DA L0457 DA L0E68 DA L0E68 DA L0E68 DA L0E69 L0E68 RTS L0E69 LDA #$00FF STA L0E56 RTS L0E70 _HideCursor JMP L0E93 L0E7A STR '1/PICTURES/COLORMENU.PAC' L0E93 LDA #^L0E7A STA L1D4D+2 LDA #L0E7A STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor _WaitCursor JMP L0EF1 L0EDA STR '1/PICTURES/CRAYONS.WIN' L0EF1 LDA #^L0EDA STA L1D4D+2 LDA #L0EDA STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L458C LDA #L160C STA L1616 JSR L1815 _InitCursor L0F26 LDA #$0041 STA L1E3D JSR L4529 LDA #$0042 STA L1E3D JSR L4529 STZ L108B L0F3B PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L0F3B CMP #$0011 BNE L0F59 JMP L1063 L0F59 LDA L1E19 CMP #$0001 BEQ L0F63 BRA L0F3B L0F63 LDY #$0000 L0F66 PHY PEA $0000 PEA ^L1E23 PEA L1E23 LDA L30C2+2,Y PHA LDA L30C2,Y PHA _PtInRect PLA BNE L0F8F PLY INY INY INY INY CPY #$0010 BNE L0F66 JMP L0F3B L0F8F _HideCursor PLA LSR TAX JSR (L109B,X) PEA ^L3272 PEA L3272 PEA $0002 PEA $007C _SetPt JSR L4631 _DrawMenuBar _InitPalette _ShowCursor LDA #$0041 STA L1E3D JSR L4529 LDA #$0054 STA L1E3D JSR L4529 LDA #$0055 STA L1E3D JSR L4529 LDA #$0041 STA L1E3D JSR L4529 LDA #$0056 STA L1E3D JSR L4529 LDA #$0057 STA L1E3D JSR L4529 JSR L10AB _HideCursor JMP L1023 L100A STR '1/PICTURES/COLORMENU.PAC' L1023 LDA #^L100A STA L1D4D+2 LDA #L100A STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor JMP L0F26 L1063 LDA L1E29 AND #$00FF ASL TAX JSR (L108D,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L108B CMP #$00FF BEQ L1087 JMP L0F3B L1087 JSR L185C RTS L108B DW $0000 L108D DA L043C DA L061F DA L0457 DA L10A3 DA L10A3 DA L10A3 DA L10A4 L109B DA L1433 DA L1474 DA L14B5 DA L14FA L10A3 RTS L10A4 LDA #$00FF STA L108B RTS L10AB STZ L11DD STZ L11E1 L10B1 PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L10B1 CMP #$0011 BNE L10CF JMP L11B8 L10CF LDA L1E19 CMP #$0001 BEQ L10D9 BRA L10B1 L10D9 LDY #$0000 L10DC PHY PEA $0000 PEA ^L1E23 PEA L1E23 LDA L30F2+2,Y PHA LDA L30F2,Y PHA _PtInRect PLA BNE L1159 PLY INY INY INY INY CPY #$0014 BNE L10DC LDA L11E1 BNE L110A JMP L10B1 L110A _HideCursor PEA $0000 LDA L1E25 PHA LDA L1E23 PHA _GetPixel PLA STA L11DF _ShowCursor LDX #$0000 LDA L11DF L1134 CMP L1618,X BEQ L1143 INX INX CPX #$000A BCC L1134 JMP L10B1 L1143 LDA #$0000 PHA LDA L11DF PHA LDA L11E1 PHA _SetColorEntry JMP L10B1 L1159 PLA LSR LSR INC STA L11DF PEA $0000 LDA #$0000 PHA LDA L11DF PHA _GetColorEntry PLA STA L11E1 LDA #$0001 PHA LDA #$0001 PHA _SetPenSize LDA L11DF PHA _SetSolidPenPat PEA ^L159A PEA L159A _PaintRect LDA #$0000 PHA _SetSolidPenPat PEA ^L159A PEA L159A _FrameRect JMP L10B1 L11B8 LDA L1E29 AND #$00FF ASL TAX JSR (L11E3,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L11DD CMP #$00FF BEQ L11DC JMP L10B1 L11DC RTS L11DD DW $0000 L11DF DW $0000 L11E1 DW $0000 L11E3 DA L043C DA L063A DA L0457 DA L11F1 DA L11F1 DA L11F1 DA L11F2 L11F1 RTS L11F2 LDA #$00FF STA L11DD RTS L11F9 _HideCursor JMP L121C L1203 STR '1/PICTURES/COLORMENU.PAC' L121C LDA #^L1203 STA L1D4D+2 LDA #L1203 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 _DrawMenuBar _InitPalette _ShowCursor LDA $00 PHA LDA $02 PHA PEA $0000 PEA $0000 PEA $0000 LDA #$008C PHA LDA L1D7B PHA PEA $C008 PEA $0000 PEA $0000 _NewHandle JSR L3D9D PLA STA $00 STA L2EE4 PLA STA $02 STA L2EE4+2 PLA STA $02 PLA STA $00 LDA $00 PHA LDA $02 PHA LDA L2EE4 STA $00 LDA L2EE4+2 STA $02 LDY #$0000 LDA [$00],Y STA L2EE8 LDY #$0002 LDA [$00],Y STA L2EE8+2 PLA STA $02 PLA STA $00 LDA L2EE4+2 PHA LDA L2EE4 PHA _PrDefault JSR L3D9D LDA #$0041 STA L1E3D JSR L4529 LDA #$0042 STA L1E3D JSR L4529 STZ L13BA L12E2 PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L12E2 CMP #$0011 BNE L1300 JMP L1383 L1300 LDA L1E19 CMP #$0001 BEQ L130A BRA L12E2 L130A LDY #$0000 L130D PHY PEA $0000 PEA ^L1E23 PEA L1E23 LDA L30C2+2,Y PHA LDA L30C2,Y PHA _PtInRect PLA BNE L1336 PLY INY INY INY INY CPY #$0010 BNE L130D JMP L12E2 L1336 _HideCursor PLA LSR TAX JSR (L13CA,X) LDA L2EEC+2 PHA LDA L2EEC PHA LDA L1E5D+2 PHA LDA L1E5D PHA LDA L2EF0+2 PHA LDA L2EF0 PHA _BlockMove JSR L1716 _DrawMenuBar _InitPalette _ShowCursor JSR L13DB JSR L1734 JMP L11F9 L1383 LDA L1E29 AND #$00FF ASL TAX JSR (L13BC,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L13BA CMP #$00FF BEQ L13A7 JMP L12E2 L13A7 LDA L2EE4+2 PHA LDA L2EE4 PHA _DisposeHandle JSR L3D9D RTS L13BA DW $0000 L13BC DA L043C DA L0655 DA L0457 DA L13D2 DA L13D2 DA L13D2 DA L13D3 L13CA DA L1433 DA L1474 DA L14B5 DA L14FA L13D2 RTS L13D3 LDA #$00FF STA L13BA RTS RTS L13DB STZ L141B L13DE PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _TaskMaster PLA BEQ L13DE CMP #$0011 BNE L13DE LDA L1E29 AND #$00FF ASL TAX JSR (L141D,X) PEA $0000 LDA L1E29+2 PHA _HiliteMenu LDA L141B CMP #$00FF BNE L13DE RTS L141B DW $0000 L141D DA L043C DA L0670 DA L0457 DA L068B DA L06CD DA L071A DA L142C RTS L142C LDA #$00FF STA L141B RTS L1433 JMP L144B L1436 STR '1/PICTURES/TRYAN.PAC' L144B LDA #^L1436 STA L1D4D+2 LDA #L1436 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 RTS L1474 JMP L148C L1477 STR '1/PICTURES/PACHY.PAC' L148C LDA #^L1477 STA L1D4D+2 LDA #L1477 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 RTS L14B5 JMP L14D1 L14B8 STR '1/PICTURES/SAUROPODS.PAC' L14D1 LDA #^L14B8 STA L1D4D+2 LDA #L14B8 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 RTS L14FA JMP L1511 L14FD STR '1/PICTURES/STEG.PAC' L1511 LDA #^L14FD STA L1D4D+2 LDA #L14FD STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 RTS L1543 STR '1/PICTURES/QUIT.PAC' L153A = * L1557 LDA #^L1543 STA L1D4D+2 LDA #L1543 STA L1D4D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JSR L178E JSR L3E07 *----------- LoGo 11/2022 jsr L4468 ; wait JSR L1CF2 ; stop tools JSR L1ABD ; stop other tools _QDShutDown PushWord L1D7B _DisposeAll PushWord L1D79 _MMShutDown _TLShutDown * STP jsl GSOS dw $0029 adrl proQUIT brk $bd proQUIT ds 4 ds 2 *----------- L1580 DA L043C DA L0598 DA L0457 DA L068B DA L06CD DA L071A DA L153A DA L082D DA L0959 DA L0AD9 DA L0CC4 DA L0E70 DA L11F9 L159A DW $0000 DW $0000 DW $0000 DW $0000 L15A2 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 L15BE DW $0049 DW $004A DW $0000 L15C4 DW $0043 DW $004E DW $004F DW $0050 DW $0051 DW $0052 DW $0053 DW $0000 L15D4 DW $0044 DW $004E DW $004F DW $0050 DW $0051 DW $0052 DW $0053 DW $004C DW $0000 L15E6 DW $0045 DW $0046 DW $0047 DW $004B DW $004C DW $0030 DW $0031 DW $0032 DW $0033 DW $0034 DW $0035 DW $0036 DW $0037 DW $0038 DW $0000 L1604 DW $0048 DW $004B DW $004C DW $0000 L160C DW $0054 DW $0055 DW $0056 DW $0057 DW $0000 L1616 DW $0000 L1618 DW $0006 DW $0007 DW $0008 DW $0009 DW $000A L1622 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 DW $0000 L1642 CLC ADC L1E3B STA L1E3B LDA L1E3B PHA PEA $000F _SetSoundVolume RTS L1658 LDA L1E3D STA L166F LDA #$004D STA L1E3D JSR L4529 LDA L166F STA L1E3D BRA L1671 L166F DW $0000 L1671 RTS L1672 LDA L1E3B * CMP #$0000 BEQ L16C3 PEA $0000 PEA $0000 LDA L1E3B PHA LDA #$0011 PHA _UDivide PLA STA L16BF PLA STA L16C1 LDA #$000F PHA _SetSolidPenPat LDA L16BF ASL ASL TAX LDA L3166+2,X PHA LDA L3166,X PHA _PaintRect LDA #$FFEF JSR L1642 BRA L16C3 L16BF DW $0000 L16C1 DW $0000 L16C3 RTS L16C4 LDA L1E3B CMP #$00FF BEQ L1715 LDA #$0011 JSR L1642 PEA $0000 PEA $0000 LDA L1E3B PHA LDA #$0011 PHA _UDivide PLA STA L1711 PLA STA L1713 LDA #$0000 PHA _SetSolidPenPat LDA L1711 ASL ASL TAX LDA L3166+2,X PHA LDA L3166,X PHA _PaintRect BRA L1715 L1711 DW $0000 L1713 DW $0000 L1715 RTS L1716 LDA L2EC0+2 PHA LDA L2EC0 PHA PEA $0003 _InsertMenu PEA $0000 _FixMenuBar PLA RTS L1734 PEA $0004 _DeleteMenu PEA $0000 _FixMenuBar PLA RTS L174A PEA ^L328C PEA L328C _PaintPixels JSR L3D9D RTL L175B PEA ^L32B8 PEA L32B8 _PaintPixels JSR L3D9D RTL L176C PEA ^L32E4 PEA L32E4 _PaintPixels JSR L3D9D RTL L177D PEA ^L3310 PEA L3310 _PaintPixels JSR L3D9D RTL L178E PEA $0000 _ClearScreen PEA $0000 _SetAllSCBs LDA #$0000 PHA PEA ^L1622 PEA L1622 _SetColorTable JSR L3D9D RTS L17B7 STZ L17D5 L17BA LDA L17D5 ASL TAY LDA L17D7,Y BEQ L17DD STA L1E3F JSR L3E7D JSR L3F23 JSR L466B INC L17D5 BRA L17BA L17D5 DW $0000 L17D7 DW $0041 DW $0042 DW $0000 L17DD RTS L17DE _HideCursor PEA ^L3276 PEA L3276 _PaintPixels JSR L3D9D _ShowCursor PEA $0000 PEA $0000 PEA $0005 PEA ^L174A PEA L174A _Desktop PLA PLA RTS L1815 LDA L1616 STA $00 STZ L1834 L181D LDA L1834 ASL TAY LDA ($00),Y BEQ L1836 STA L1E3F JSR L3E7D JSR L3F23 INC L1834 BRA L181D L1834 DW $0000 L1836 RTS L1837 LDA L1616 STA $00 STZ L1859 L183F LDA L1859 ASL TAY LDA ($00),Y BEQ L185B STA L1E3F JSR L3E7D JSR L3F23 JSR L466B INC L1859 BRA L183F L1859 DW $0000 L185B RTS L185C LDA L1616 STA $00 STZ L1878 L1864 LDA L1878 ASL TAY LDA ($00),Y BEQ L187A STA L1E3F JSR L3F91 INC L1878 BRA L1864 L1878 DW $0000 L187A RTS L18B3 DB L18BC-L18B3 L18B4 ASC ' ' L18BC LDA L1951 PHA LDA L194F PHA PEA ^L18B4 PEA L18B4 PEA $0008 _Long2Hex JSR L3D9D LDA #$001E PHA LDA #$0050 PHA _MoveTo PEA ^L18B3 PEA L18B3 _DrawString JMP L18FF L18F6 DB L18FF-L18F7 L18F7 ASC ' ' L18FF LDA L1955 PHA LDA L1953 PHA PEA ^L18F7 PEA L18F7 PEA $0008 _Long2Hex JSR L3D9D LDA #$001E PHA LDA #$005A PHA _MoveTo PEA ^L18F6 PEA L18F6 _DrawString LDA L1949 PHA LDA L1947 PHA _MoveTo BRA L1957 L1947 DW $0000 L1949 DW $0000 L194B DW $0000 L194D DW $0008 L194F DW $0000 L1951 DW $0000 L1953 DW $0000 L1955 DW $0000 L1957 RTS L1958 PEA ^L2EF4 PEA L2EF4 _FrameRect PEA $0000 PEA ^L19DA PEA L19DA _StringWidth PLA STA L19D8 SEC LDA #$0140 SBC L19D8 LSR STA L19D8 LDA L19D8 PHA LDA #$0037 PHA _MoveTo PEA ^L19DA PEA L19DA _DrawString LDA #$0000 PHA _SetSolidPenPat LDA #$0002 PHA LDA #$0002 PHA _SetPenSize PEA ^L2EFC PEA L2EFC _FrameRect LDA #$006C PHA LDA #$0091 PHA _MoveTo BRA L19F7 L19D8 DW $0000 L19DA STR 'Please wait while loading...' L19F7 RTS L19F8 _TLStartUp PEA $0000 _MMStartUp JSR L3D9D PLA STA L1D79 ORA #$0100 STA L1D7B _MTStartUp PEA $0000 PEA $0000 PEA $0000 LDA #$0800 PHA LDA L1D7B PHA PEA $C005 PEA $0000 PEA $0000 _NewHandle JSR L3D9D PLA STA $00 PLA STA $02 LDY #$0000 LDA [$00],Y STA L1D7D LDY #$0002 LDA [$00],Y STA L1D7D+2 LDA #$0300 JSR L4326 PHA PEA $0000 PEA $0000 LDA L1D79 PHA _QDStartUp JSR L3D9D _PenNormal PEA $0000 _SetFontFlags PEA $0000 _SetTextMode JSR L4323 PHA PEA $0001 PEA $0000 PEA $0140 PEA $0000 PEA $00C8 LDA L1D79 PHA _EMStartUp JSR L3D9D JSR L4323 PHA _SoundStartUp JSR L3D9D RTS L1ABD _SoundShutDown _EMShutDown RTS L1ACC PEA $0012 PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $000E PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $0010 PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $000F PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $0014 PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $0015 PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $001C PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $0013 PEA $0000 _LoadOneTool JSR L3D9D JSR L466B PEA $001B PEA $0000 _LoadOneTool JSR L3D9D JSR L466B _QDAuxStartUp LDA L1D79 PHA _WindStartUp LDA L1D79 PHA JSR L4323 PHA _CtlStartUp JSR L3D9D LDA L1D79 PHA JSR L4323 PHA _MenuStartUp PEA $0000 ; menu Apple PEA $0000 PEA ^L2E06 PEA L2E06 _NewMenu PLA STA L2E1F PLA STA L2E1F+2 PEA $0000 ; menu Instructions PEA $0000 PEA ^L2E23 PEA L2E23 _NewMenu PLA STA L2E4F PLA STA L2E4F+2 PEA $0000 ; menu Volume PEA $0000 PEA ^L2E53 PEA L2E53 _NewMenu PLA STA L2E74 PLA STA L2E74+2 PEA $0000 ; menu Print PEA $0000 PEA ^L2E78 PEA L2E78 _NewMenu PLA STA L2EC0 PLA STA L2EC0+2 PEA $0000 ; menu Quit PEA $0000 PEA ^L2EC4 PEA L2EC4 _NewMenu PLA STA L2EE0 PLA STA L2EE0+2 *---------- NOW SHOW MENUS LDA L2EE0+2 ; Quit PHA LDA L2EE0 PHA PEA $0000 _InsertMenu *--- LoGo 11/2022 LDA L2EC0+2 ; Print PHA LDA L2EC0 PHA PEA $0000 _InsertMenu LDA L2E74+2 ; Volume PHA LDA L2E74 PHA PEA $0000 _InsertMenu LDA L2E4F+2 ; Instructions PHA LDA L2E4F PHA PEA $0000 _InsertMenu LDA L2E1F+2 ; Apple menu PHA LDA L2E1F PHA PEA $0000 _InsertMenu PEA $0000 _FixMenuBar PLA _DrawMenuBar _InitPalette PEA $0000 _SetMItemBlink LDA L1D79 PHA JSR L4323 PHA _LEStartUp JSR L3D9D LDA L1D79 PHA _DialogStartUp _DeskStartUp _ListStartUp JSR L3D9D LDA L1D79 PHA JSR L4323 PHA _FMStartUp JSR L3D9D LDA L1D79 PHA LDA #$0200 JSR L4326 PHA _PMStartUp JSR L3D9D RTS L1CF2 _PMShutDown _FMShutDown _ListShutDown _DeskShutDown _DialogShutDown _LEShutDown _MenuShutDown _CtlShutDown _WindShutDown _QDAuxShutDown RTS L1D39 ADRL $00000000 ; file name DW $00C3 ; access L1D3F DW $00C1 ; file type L1D41 ADRL $00000000 ; aux type DW $0001 ; storage DS 4 ; creation date L1D4B DW $0000 ; ref num L1D4D ADRL $00000000 ; path name ADRL $00000000 ; reserved L1D55 DW $0000 ; ref num L1D57 ADRL $00000000 ; buffer ptr L1D5B ADRL $00000000 ; request count ADRL $00000000 ; transfer count L1D63 DW $0000 ; ref num L1D65 ADRL $00000000 ; buffer ptr L1D69 ADRL $00000000 ; request count ADRL $00000000 ; transfer count L1D71 DW $0000 ; ref num DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1D79 DW $0000 L1D7B DW $0000 L1D7D ADRL $00000000 L1D81 ADRL $00000000 L1D85 ADRL $00000000 L1D89 DB $00 DB $00 DB $00 DB $00 L1D8D DB $00 DB $00 DB $00 DB $00 L1D91 DB $00 DB $00 DB $00 DB $00 L1D95 DB $00 DB $00 DB $00 DB $00 L1D99 DB $00 DB $00 DB $00 DB $00 L1D9D DB $00 DB $00 DB $00 DB $00 L1DA1 DB $00 DB $00 DB $00 DB $00 L1DA5 DB $00 DB $00 DB $00 DB $00 L1DA9 DB $00 DB $00 DB $00 DB $00 L1DAD DB $00 DB $00 DB $00 DB $00 L1DB1 DB $00 DB $00 DB $00 DB $00 L1DB5 DB $00 DB $00 DB $00 DB $00 L1DB9 DB $00 DB $00 DB $00 DB $00 L1DBD DB $00 DB $00 DB $00 DB $00 L1DC1 DB $00 DB $00 DB $00 DB $00 L1DC5 DB $00 DB $00 DB $00 DB $00 L1DC9 DB $00 DB $00 DB $00 DB $00 L1DCD DB $00 DB $00 DB $00 DB $00 L1DD1 DB $00 DB $00 DB $00 DB $00 L1DD5 DB $00 DB $00 DB $00 DB $00 L1DD9 DB $00 DB $00 DB $00 DB $00 L1DDD DB $00 DB $00 DB $00 DB $00 L1DE1 DB $00 DB $00 DB $00 DB $00 L1DE5 DB $00 DB $00 DB $00 DB $00 L1DE9 DB $00 DB $00 DB $00 DB $00 L1DED DB $00 DB $00 DB $00 DB $00 L1DF1 DB $00 DB $00 DB $00 DB $00 L1DF5 DB $00 DB $00 DB $00 DB $00 L1DF9 DB $00 DB $00 DB $00 DB $00 L1DFD DB $00 DB $00 DB $00 DB $00 L1E01 DB $00 DB $00 DB $00 DB $00 L1E05 DB $00 DB $00 DB $00 DB $00 L1E09 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1E19 DW $0000 ; event code L1E1B ADRL $00000000 ; event message ADRL $00000000 ; tick count L1E23 DW $0000 ; mouse location L1E25 DW $0000 DW $0000 ; modifiers L1E29 ADRL $00000000 ; task data ADRL $00001FFF ; task mask DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1E39 DB $00 DB $00 L1E3B DB $00 DB $00 L1E3D DB $00 DB $00 L1E3F DB $00 DB $00 L1E41 DB $00 DB $00 L1E43 DB $00 DB $00 L1E45 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 DB $00 L1E59 ADRL $00000000 L1E5D ADRL $00000000 L1E61 ADRL $00000000 L1E65 ADRL $00000000 L1E69 ADRL $00000000 L1E6D DW $0000 L1E6F ADRL $00000000 L1E73 DW $0000 L1E75 DW $0000 L1E77 DW $0000 L1E79 DW $0000 L1E7B STR '1/SOUNDS/WAVEA.VOX' L1E8E ADRL L1F96 ADRL L1FA7 ADRL L1FB8 ADRL L1FC9 ADRL L1FDA ADRL L1FEB ADRL L1FFC ADRL L200D ADRL L201E ADRL L202F ADRL L2040 ADRL L2051 ADRL L2062 ADRL L2073 ADRL L2084 ADRL L2095 ADRL L20A6 ADRL L20B7 ADRL L20C8 ADRL L20D9 ADRL L20EA ADRL L20FB ADRL L210C ADRL L211D ADRL L212E ADRL L213F ADRL L2150 ADRL L2161 ADRL L2172 ADRL L2183 ADRL L2194 ADRL L21A5 ADRL L21B6 L1F12 ADRL L1D89 ADRL L1D8D ADRL L1D91 ADRL L1D95 ADRL L1D99 ADRL L1D9D ADRL L1DA1 ADRL L1DA5 ADRL L1DA9 ADRL L1DAD ADRL L1DB1 ADRL L1DB5 ADRL L1DB9 ADRL L1DBD ADRL L1DC1 ADRL L1DC5 ADRL L1DC9 ADRL L1DCD ADRL L1DD1 ADRL L1DD5 ADRL L1DD9 ADRL L1DDD ADRL L1DE1 ADRL L1DE5 ADRL L1DE9 ADRL L1DED ADRL L1DF1 ADRL L1DF5 ADRL L1DF9 ADRL L1DFD ADRL L1E01 ADRL L1E05 ADRL L1E09 L1F96 HEX 000000000000C8000000000000000000 HEX FF L1FA7 HEX 000000000000C8000000000000000000 HEX FF L1FB8 HEX 000000000000C8000000000000000000 HEX FF L1FC9 HEX 000000000000C8000000000000000000 HEX FF L1FDA HEX 000000000000C8000000000000000000 HEX FF L1FEB HEX 000000000000C8000000000000000000 HEX FF L1FFC HEX 000000000000C8000000000000000000 HEX FF L200D HEX 000000000000C8000000000000000000 HEX FF L201E HEX 000000000000C8000000000000000000 HEX FF L202F HEX 000000000000C8000000000000000000 HEX FF L2040 HEX 000000000000C8000000000000000000 HEX FF L2051 HEX 000000000000C8000000000000000000 HEX FF L2062 HEX 000000000000C8000000000000000000 HEX FF L2073 HEX 000000000000C8000000000000000000 HEX FF L2084 HEX 000000000000C8000000000000000000 HEX FF L2095 HEX 000000000000C8000000000000000000 HEX FF L20A6 HEX 000000000000C8000000000000000000 HEX FF L20B7 HEX 000000000000C8000000000000000000 HEX FF L20C8 HEX 000000000000C8000000000000000000 HEX FF L20D9 HEX 000000000000C8000000000000000000 HEX FF L20EA HEX 000000000000C8000000000000000000 HEX FF L20FB HEX 000000000000C8000000000000000000 HEX FF L210C HEX 000000000000C8000000000000000000 HEX FF L211D HEX 000000000000C8000000000000000000 HEX FF L212E HEX 000000000000C8000000000000000000 HEX FF L213F HEX 000000000000C8000000000000000000 HEX FF L2150 HEX 000000000000C8000000000000000000 HEX FF L2161 HEX 000000000000C8000000000000000000 HEX FF L2172 HEX 000000000000C8000000000000000000 HEX FF L2183 HEX 000000000000C8000000000000000000 HEX FF L2194 HEX 000000000000C8000000000000000000 HEX FF L21A5 HEX 000000000000C8000000000000000000 HEX FF L21B6 HEX 000000000000C8000000000000000000 HEX FF HEX 000000000000C8000000000000000000 HEX FF HEX 000000000000C8000000000000000000 HEX FF HEX 000000000000C8000000000000000000 HEX FF L21FA PEA $0000 PEA $0000 _GetClipHandle PLA STA L3288 STA L329E STA L32B4 STA L32CA STA L32E0 STA L32F6 STA L330C STA L3322 STA L3338 STA L334E STA L3364 PLA STA L3288+2 STA L329E+2 STA L32B4+2 STA L32CA+2 STA L32E0+2 STA L32F6+2 STA L330C+2 STA L3322+2 STA L3338+2 STA L334E+2 STA L3364+2 RTS L224C DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L23CB ; Ptr to item template ADRL L2266 ; Ptr to item template ADRL $00000000 L2266 DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L227E ; Item descriptor DW L23CB-L227E ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L227E ASC 'Talking Dinosaurs '0D ASC ' '0D ASC 'Programmed by Howard M. Josephson '0D ASC ' Illustrations by John J. Fresenius'0D ASC ' Written by Nicholas S. Vazzana '0D ASC ' '0D ASC 'Copyright (C) 1989 by Multi '0D ASC ' Dimensional Communications, Inc. '0D ASC ' '0D L23CB DW $0001 ; Item ID DW $006E ; Item rect DW $006E DW $0082 DW $00AA DW $000A ; Std button ADRL L23E3 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L23E3 STR 'OK' L23E6 DW $001E ; dtBoundsRect DW $0014 DW $00AA DW $012C DW $8000 ; dtVisible ADRL $00000000 ; dtRefCon ADRL L2434 ; itemPtr ADRL L241C ; itemPtr ADRL L2404 ; itemPtr ADRL $00000000 ; Terminator L2404 DW $0003 ; Item ID DW $0046 ; Item rect DW $0037 DW $005A DW $0073 DW $000A ; Std button ADRL L244C ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L241C DW $0005 ; Item ID DW $0046 ; Item rect DW $00A5 DW $005A DW $00E1 DW $000A ; Std button ADRL L2451 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L2434 DW $0001 ; Item ID DW $006E ; Item rect DW $006E DW $0082 DW $00AA DW $000A ; Std button ADRL L2454 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L244C STR 'DOWN' L2451 STR 'UP' L2454 STR 'OK' L2457 ADRL $00000000 L245B DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2475 ; Ptr to item template ADRL $00000000 L2475 DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L248D ; Item descriptor DW L2546-L248D ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L248D ASC ' Click the mouse on the Roman '0D ASC 'numeral next to the section you wish'0D ASC 'to study. You may also click on the'0D ASC 'description of the section as well. '0D ASC ' '0D L2546 DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2560 ; Ptr to item template ADRL $00000000 L2560 DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L2578 ; Item descriptor DW L260C-L2578 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L2578 ASC ' In this section, the student '0D ASC 'clicks the mouse on a dinosaur to '0D ASC 'hear its name. '0D ASC ' '0D L260C DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2626 ; Ptr to item template ADRL $00000000 L2626 DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L263E ; Item descriptor DW L278B-L263E ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L263E ASC ' There are 5 hidden dinosaurs on '0D ASC 'this screen. When students click '0D ASC 'the mouse on a dinosaur, they will '0D ASC 'hear the name of the dinosaur. If '0D ASC 'they click on something that is not '0D ASC 'a dinosaur, they will hear "Please '0D ASC 'try again." After they have clicked'0D ASC 'on all 5 dinosaurs, the program '0D ASC 'returns to the Main Menu. '0D L278B DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L27A5 ; Ptr to item template ADRL $00000000 L27A5 DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L27BD ; Item descriptor DW L290A-L27BD ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L27BD ASC ' The student is to count the bones'0D ASC 'of the color requested, then click '0D ASC 'the mouse on the box with the '0D ASC 'corresponding number. When the '0D ASC 'student has counted all 10 color '0D ASC 'groups correctly, the program will '0D ASC 'return to the Main Menu. The '0D ASC 'student may click the mouse on '0D ASC '"REPEAT" to hear the question again.'0D L290A DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2924 ; Ptr to item template ADRL $00000000 L2924 DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L293C ; Item descriptor DW L2A1A-L293C ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L293C ASC ' As each row is highlighted, the '0D ASC 'student is to click on the dinosaur '0D ASC 'in that group of three. The program'0D ASC 'advances to the Main Menu after 3 '0D ASC 'correct answers. '0D ASC ' '0D L2A1A DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2A34 ; Ptr to item template ADRL $00000000 L2A34 DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L2A4C ; Item descriptor DW L2B05-L2A4C ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L2A4C ASC ' Select a dinosaur picture for the'0D ASC 'coloring book section by clicking '0D ASC 'the mouse on 1 of the 4 dinosaur '0D ASC 'pictures. '0D ASC ' '0D L2B05 DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2B1F ; Ptr to item template ADRL $00000000 L2B1F DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L2B37 ; Item descriptor DW L2C15-L2B37 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L2B37 ASC ' Click the mouse on a crayon to '0D ASC 'select a color for drawing. Click '0D ASC 'the mouse on an enclosed region of '0D ASC 'the dinosaur to fill that region '0D ASC 'with the current drawing color. '0D ASC ' '0D L2C15 DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2C2F ; Ptr to item template ADRL $00000000 L2C2F DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L2C47 ; Item descriptor DW L2D00-L2C47 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L2C47 ASC ' Select a dinosaur picture for the'0D ASC 'printing section by clicking the '0D ASC 'mouse on 1 of the 4 dinosaur '0D ASC 'pictures. '0D ASC ' '0D L2D00 DW $001E ; Alert rect DW $0014 DW $00AA DW $012C DW $0001 ; Alert ID HEX 80 ; First stage byte HEX 80 ; Second stage byte HEX 80 ; Third stage byte HEX 80 ; fourth stage byte ADRL L2DEB ; Ptr to item template ADRL L2D1A ; Ptr to item template ADRL $00000000 L2D1A DW $0002 ; Item ID DW $000A ; Item rect DW $000A DW $0064 DW $010E DW $8010 ; Static text ADRL L2D32 ; Item descriptor DW L2DEB-L2D32 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L2D32 ASC ' The dinosaur that appears on the '0D ASC 'screen will be printed when a '0D ASC 'printer and print style are chosen '0D ASC 'and the "PRINT" item is requested. '0D ASC ' '0D L2DEB DW $0001 ; Item ID DW $006E ; Item rect DW $006E DW $0082 DW $00AA DW $000A ; Std button ADRL L2E03 ; Item descriptor DW $0000 ; Item value DW $0000 ; Bit flag ADRL $00000000 ; Ptr to color table L2E03 STR 'OK' L2E06 ASC '>>@\N1X'00 ASC '--ABOUT\N256*Aa'00 ASC '.' L2E1F ADRL $00000000 L2E23 ASC '>> Instructions \N2'00 ASC '--INSTRUCTIONS\N257*Ii'00 ASC '.' L2E4F ADRL $00000000 L2E53 ASC '>> Volume \N3X'00 ASC '--VOLUME\N258*Vv'00 ASC '.' L2E74 ADRL $00000000 L2E78 ASC '>> Print \N4'00 ASC '--CHOOSE PRINTER \N259'00 ASC '--CHOOSE STYLE \N260'00 ASC '--PRINT \N261'00 ASC '.' L2EC0 ADRL $00000000 L2EC4 ASC '>> Quit \N5'00 ASC '--QUIT\N262*Qq'00 ASC '.' L2EE0 ADRL $00000000 L2EE4 ADRL $00000000 L2EE8 ADRL $00000000 L2EEC ADRL $00E12000 L2EF0 ADRL $00008000 L2EF4 DW $0000 DW $0000 DW $0000 DW $0000 L2EFC DW $0000 DW $0000 DW $0000 DW $0000 L2F04 DW $0000 DW $0000 DW $0000 DW $0000 L2F0C ADRL L2F24 ADRL L2F2C ADRL L2F34 ADRL L2F3C ADRL L2F44 ADRL L2F4C L2F24 DW $0000 DW $0000 DW $0000 DW $0000 L2F2C DW $0000 DW $0000 DW $0000 DW $0000 L2F34 DW $0000 DW $0000 DW $0000 DW $0000 L2F3C DW $0000 DW $0000 DW $0000 DW $0000 L2F44 DW $0000 DW $0000 DW $0000 DW $0000 L2F4C DW $0000 DW $0000 DW $0000 DW $0000 L2F54 ADRL L2F6C ADRL L2F74 ADRL L2F7C ADRL L2F84 ADRL L2F8C ADRL L2F94 L2F6C DW $0000 DW $0000 DW $0000 DW $0000 L2F74 DW $0000 DW $0000 DW $0000 DW $0000 L2F7C DW $0000 DW $0000 DW $0000 DW $0000 L2F84 DW $0000 DW $0000 DW $0000 DW $0000 L2F8C DW $0000 DW $0000 DW $0000 DW $0000 L2F94 DW $0000 DW $0000 DW $0000 DW $0000 L2F9C DW $0053 DW $0051 DW $0052 DW $004F DW $004E DW $0050 L2FA8 ADRL L2FBC ADRL L2FC0 ADRL L2FC4 ADRL L2FC8 ADRL L2FCC L2FBC DW $0000 L2FBE DW $0000 L2FC0 DW $0000 L2FC2 DW $0000 L2FC4 DW $0000 L2FC6 DW $0000 L2FC8 DW $0000 L2FCA DW $0000 L2FCC DW $0000 L2FCE DW $0000 L2FD0 DW $004F DW $0053 DW $0052 DW $0051 DW $0050 L2FDA ADRL L3002 ADRL L300A ADRL L3012 ADRL L301A ADRL L3022 ADRL L302A ADRL L3032 ADRL L303A ADRL L3042 ADRL L304A L3002 DW $0000 DW $0000 DW $0000 DW $0000 L300A DW $0000 DW $0000 DW $0000 DW $0000 L3012 DW $0000 DW $0000 DW $0000 DW $0000 L301A DW $0000 DW $0000 DW $0000 DW $0000 L3022 DW $0000 DW $0000 DW $0000 DW $0000 L302A DW $0000 DW $0000 DW $0000 DW $0000 L3032 DW $0000 DW $0000 DW $0000 DW $0000 L303A DW $0000 DW $0000 DW $0000 DW $0000 L3042 DW $0000 DW $0000 DW $0000 DW $0000 L304A DW $0000 DW $0000 DW $0000 DW $0000 L3052 DW $0030 DW $0031 DW $0032 DW $0033 DW $0034 DW $0035 DW $0036 DW $0037 DW $0038 DW $0039 L3066 DW $000A DW $0001 DW $0002 DW $0003 DW $0004 DW $0005 DW $0006 DW $0007 DW $0008 DW $0009 L307A ADRL L3086 ADRL L308E ADRL L3096 L3086 DW $0000 DW $0000 DW $0000 DW $0000 L308E DW $0000 DW $0000 DW $0000 DW $0000 L3096 DW $0000 DW $0000 DW $0000 DW $0000 L309E ADRL L30AA ADRL L30B2 ADRL L30BA L30AA DW $0000 DW $0000 DW $0000 DW $0000 L30B2 DW $0000 DW $0000 DW $0000 DW $0000 L30BA DW $0000 DW $0000 DW $0000 DW $0000 L30C2 ADRL L30D2 ADRL L30DA ADRL L30E2 ADRL L30EA L30D2 DW $0000 DW $0000 DW $0000 DW $0000 L30DA DW $0000 DW $0000 DW $0000 DW $0000 L30E2 DW $0000 DW $0000 DW $0000 DW $0000 L30EA DW $0000 DW $0000 DW $0000 DW $0000 L30F2 ADRL L3106 ADRL L310E ADRL L3116 ADRL L311E ADRL L3126 L3106 DW $0000 DW $0000 DW $0000 DW $0000 L310E DW $0000 DW $0000 DW $0000 DW $0000 L3116 DW $0000 DW $0000 DW $0000 DW $0000 L311E DW $0000 DW $0000 DW $0000 DW $0000 L3126 DW $0000 DW $0000 DW $0000 DW $0000 L312E DW $0000 DW $0000 DW $0000 DW $0000 L3136 DW $0000 DW $0000 DW $0000 DW $0000 L313E DW $0000 DW $0000 DW $0000 DW $0000 L3146 DW $0000 DW $0000 DW $0000 DW $0000 L314E DW $0000 DW $0000 DW $0000 DW $0000 L3156 DW $0000 DW $0000 DW $0000 DW $0000 L315E DW $0000 DW $0000 DW $0000 DW $0000 L3166 ADRL L31A6 ADRL L31AE ADRL L31B6 ADRL L31BE ADRL L31C6 ADRL L31CE ADRL L31D6 ADRL L31DE ADRL L31E6 ADRL L31EE ADRL L31F6 ADRL L31FE ADRL L3206 ADRL L320E ADRL L3216 ADRL L321E L31A6 DW $0000 DW $0000 DW $0000 DW $0000 L31AE DW $0000 DW $0000 DW $0000 DW $0000 L31B6 DW $0000 DW $0000 DW $0000 DW $0000 L31BE DW $0000 DW $0000 DW $0000 DW $0000 L31C6 DW $0000 DW $0000 DW $0000 DW $0000 L31CE DW $0000 DW $0000 DW $0000 DW $0000 L31D6 DW $0000 DW $0000 DW $0000 DW $0000 L31DE DW $0000 DW $0000 DW $0000 DW $0000 L31E6 DW $0000 DW $0000 DW $0000 DW $0000 L31EE DW $0000 DW $0000 DW $0000 DW $0000 L31F6 DW $0000 DW $0000 DW $0000 DW $0000 L31FE DW $0000 DW $0000 DW $0000 DW $0000 L3206 DW $0000 DW $0000 DW $0000 DW $0000 L320E DW $0000 DW $0000 DW $0000 DW $0000 L3216 DW $0000 DW $0000 DW $0000 DW $0000 L321E DW $0000 DW $0000 DW $0000 DW $0000 L3226 ADRL $00000000 L322A DW $0000 ; SCB byte L322C ADRL $00000000 ; Pointer to pixel image DW $00A0 ; Width DW $0000 ; Bounds rect DW $0000 DW $00C8 DW $0140 L323A DW $0000 ; SCB byte ADRL $00E12000 ; Pointer to pixel image DW $00A0 ; Width DW $0000 ; Bounds rect DW $0000 DW $00C8 DW $0140 L324A DW $0000 ; SCB byte L324C ADRL $00000000 ; Pointer to pixel image DW $00A0 ; Width DW $0000 ; Bounds rect DW $0000 DW $00C8 DW $0140 L325A DW $0000 ; SCB byte L325C ADRL $00000000 ; Pointer to pixel image L3260 DW $0010 ; Width L3262 DW $0000 ; Bounds rect L3264 DW $0000 L3266 DW $0000 L3268 DW $0000 L326A DW $0000 L326C DW $0000 L326E DW $0000 L3270 DW $0000 L3272 DW $0000 DW $0000 L3276 ADRL L323A ; ptr to source locinfo ADRL L322A ; ptr to dest locinfo ADRL L3156 ; ptr to source rect ADRL L3156 ; ptr to dest point DW $0000 ; mode L3288 ADRL $00000000 ; clip rgn handle L328C ADRL L322A ; ptr to source locinfo ADRL L323A ; ptr to dest locinfo ADRL L3156 ; ptr to source rect ADRL L3156 ; ptr to dest point DW $0000 ; mode L329E ADRL $00000000 ; clip rgn handle L32A2 ADRL L323A ; ptr to source locinfo ADRL L322A ; ptr to dest locinfo ADRL L313E ; ptr to source rect ADRL L313E ; ptr to dest point DW $0000 ; mode L32B4 ADRL $00000000 ; clip rgn handle L32B8 ADRL L322A ; ptr to source locinfo ADRL L323A ; ptr to dest locinfo ADRL L313E ; ptr to source rect ADRL L313E ; ptr to dest point DW $0000 ; mode L32CA ADRL $00000000 ; clip rgn handle L32CE ADRL L323A ; ptr to source locinfo ADRL L322A ; ptr to dest locinfo ADRL L3146 ; ptr to source rect ADRL L3146 ; ptr to dest point DW $0000 ; mode L32E0 ADRL $00000000 ; clip rgn handle L32E4 ADRL L322A ; ptr to source locinfo ADRL L323A ; ptr to dest locinfo ADRL L3146 ; ptr to source rect ADRL L3146 ; ptr to dest point DW $0000 ; mode L32F6 ADRL $00000000 ; clip rgn handle L32FA ADRL L323A ; ptr to source locinfo ADRL L322A ; ptr to dest locinfo ADRL L314E ; ptr to source rect ADRL L314E ; ptr to dest point DW $0000 ; mode L330C ADRL $00000000 ; clip rgn handle L3310 ADRL L322A ; ptr to source locinfo ADRL L323A ; ptr to dest locinfo ADRL L314E ; ptr to source rect ADRL L314E ; ptr to dest point DW $0000 ; mode L3322 ADRL $00000000 ; clip rgn handle L3326 ADRL L325A ; ptr to source locinfo ADRL L323A ; ptr to dest locinfo ADRL L326A ; ptr to source rect ADRL L3272 ; ptr to dest point DW $0000 ; mode L3338 ADRL $00000000 ; clip rgn handle L333C ADRL L323A ; ptr to source locinfo ADRL L322A ; ptr to dest locinfo ADRL L315E ; ptr to source rect ADRL L315E ; ptr to dest point DW $0000 ; mode L334E ADRL $00000000 ; clip rgn handle L3352 ADRL L322A ; ptr to source locinfo ADRL L323A ; ptr to dest locinfo ADRL L315E ; ptr to source rect ADRL L315E ; ptr to dest point DW $0000 ; mode L3364 ADRL $00000000 ; clip rgn handle MX %00 L3368 PEA ^L2EF4 PEA L2EF4 PEA $0014 PEA $001E PEA $012C PEA $00AA _SetRect PEA ^L2EFC PEA L2EFC PEA $006A PEA $008F PEA $00D7 PEA $009D _SetRect PEA ^L3156 PEA L3156 PEA $000C PEA $0019 PEA $0134 PEA $00AF _SetRect PEA ^L313E PEA L313E PEA $0002 PEA $000F PEA $013E PEA $009B _SetRect PEA ^L3146 PEA L3146 PEA $0002 PEA $000F PEA $013E PEA $00AA _SetRect PEA ^L314E PEA L314E PEA $0002 PEA $000F PEA $013E PEA $00AA _SetRect PEA ^L312E PEA L312E PEA $0000 PEA $0000 PEA $0140 PEA $00C8 _SetRect PEA ^L315E PEA L315E PEA $00D2 PEA $001F PEA $00DD PEA $002A _SetRect PEA ^L31A6 PEA L31A6 PEA $0038 PEA $0046 PEA $0044 PEA $0052 _SetRect PEA ^L31AE PEA L31AE PEA $0045 PEA $0046 PEA $0051 PEA $0052 _SetRect PEA ^L31B6 PEA L31B6 PEA $0052 PEA $0046 PEA $005E PEA $0052 _SetRect PEA ^L31BE PEA L31BE PEA $005F PEA $0046 PEA $006B PEA $0052 _SetRect PEA ^L31C6 PEA L31C6 PEA $006C PEA $0046 PEA $0078 PEA $0052 _SetRect PEA ^L31CE PEA L31CE PEA $0079 PEA $0046 PEA $0085 PEA $0052 _SetRect PEA ^L31D6 PEA L31D6 PEA $0086 PEA $0046 PEA $0092 PEA $0052 _SetRect PEA ^L31DE PEA L31DE PEA $0093 PEA $0046 PEA $009F PEA $0052 _SetRect PEA ^L31E6 PEA L31E6 PEA $00A0 PEA $0046 PEA $00AC PEA $0052 _SetRect PEA ^L31EE PEA L31EE PEA $00AD PEA $0046 PEA $00B9 PEA $0052 _SetRect PEA ^L31F6 PEA L31F6 PEA $00BA PEA $0046 PEA $00C6 PEA $0052 _SetRect PEA ^L31FE PEA L31FE PEA $00C7 PEA $0046 PEA $00D3 PEA $0052 _SetRect PEA ^L3206 PEA L3206 PEA $00D4 PEA $0046 PEA $00E0 PEA $0052 _SetRect PEA ^L320E PEA L320E PEA $00E1 PEA $0046 PEA $00ED PEA $0052 _SetRect PEA ^L3216 PEA L3216 PEA $00EE PEA $0046 PEA $00FA PEA $0052 _SetRect PEA ^L321E PEA L321E PEA $00FB PEA $0046 PEA $0107 PEA $0052 _SetRect PEA ^L3136 PEA L3136 PEA $0037 PEA $0045 PEA $0108 PEA $0053 _SetRect PEA ^L2F24 PEA L2F24 PEA $0024 PEA $0032 PEA $00B3 PEA $0041 _SetRect PEA ^L2F2C PEA L2F2C PEA $0024 PEA $0046 PEA $00B3 PEA $0061 _SetRect PEA ^L2F34 PEA L2F34 PEA $0024 PEA $0066 PEA $00B3 PEA $0076 _SetRect PEA ^L2F3C PEA L2F3C PEA $0024 PEA $007B PEA $00AA PEA $0094 _SetRect PEA ^L2F44 PEA L2F44 PEA $0024 PEA $009B PEA $00B3 PEA $00A9 _SetRect PEA ^L2F4C PEA L2F4C PEA $0024 PEA $00B0 PEA $00B3 PEA $00BF _SetRect PEA ^L2F6C PEA L2F6C PEA $0001 PEA $000D PEA $0068 PEA $0057 _SetRect PEA ^L2F74 PEA L2F74 PEA $0001 PEA $0068 PEA $0068 PEA $00B9 _SetRect PEA ^L2F7C PEA L2F7C PEA $006D PEA $000D PEA $00D4 PEA $0057 _SetRect PEA ^L2F84 PEA L2F84 PEA $006D PEA $0068 PEA $00D4 PEA $00B9 _SetRect PEA ^L2F8C PEA L2F8C PEA $00D9 PEA $000D PEA $0140 PEA $0057 _SetRect PEA ^L2F94 PEA L2F94 PEA $00D9 PEA $0068 PEA $0140 PEA $00B9 _SetRect PEA $0000 PEA $0000 _NewRgn JSR L3D9D PLA STA L2FBC PLA STA L2FBE _OpenRgn JSR L3D9D LDA #$0046 PHA LDA #$003B PHA _MoveTo LDA #$0046 PHA LDA #$0076 PHA _LineTo JSR L3D9D LDA #$0079 PHA LDA #$007E PHA _LineTo JSR L3D9D LDA #$007C PHA LDA #$0078 PHA _LineTo JSR L3D9D LDA #$0099 PHA LDA #$007E PHA _LineTo JSR L3D9D LDA #$009D PHA LDA #$0078 PHA _LineTo JSR L3D9D LDA #$0077 PHA LDA #$006F PHA _LineTo JSR L3D9D LDA #$006F PHA LDA #$0061 PHA _LineTo JSR L3D9D LDA #$005C PHA LDA #$005B PHA _LineTo JSR L3D9D LDA #$0054 PHA LDA #$003B PHA _LineTo JSR L3D9D LDA #$0046 PHA LDA #$003B PHA _LineTo JSR L3D9D LDA L2FBE PHA LDA L2FBC PHA _CloseRgn JSR L3D9D PEA $0000 PEA $0000 _NewRgn JSR L3D9D PLA STA L2FC0 PLA STA L2FC2 _OpenRgn JSR L3D9D LDA #$000F PHA LDA #$0045 PHA _MoveTo LDA #$0026 PHA LDA #$005E PHA _LineTo JSR L3D9D LDA #$0018 PHA LDA #$006C PHA _LineTo JSR L3D9D LDA #$002A PHA LDA #$007A PHA _LineTo JSR L3D9D LDA #$0013 PHA LDA #$0081 PHA _LineTo JSR L3D9D LDA #$001E PHA LDA #$008E PHA _LineTo JSR L3D9D LDA #$000B PHA LDA #$0090 PHA _LineTo JSR L3D9D LDA #$0005 PHA LDA #$0086 PHA _LineTo JSR L3D9D LDA #$0000 PHA LDA #$0086 PHA _LineTo JSR L3D9D LDA #$0000 PHA LDA #$0051 PHA _LineTo JSR L3D9D LDA #$000F PHA LDA #$0045 PHA _LineTo JSR L3D9D LDA L2FC2 PHA LDA L2FC0 PHA _CloseRgn JSR L3D9D PEA $0000 PEA $0000 _NewRgn JSR L3D9D PLA STA L2FC4 PLA STA L2FC6 _OpenRgn JSR L3D9D LDA #$0001 PHA LDA #$009A PHA _MoveTo LDA #$0001 PHA LDA #$00B0 PHA _LineTo JSR L3D9D LDA #$001C PHA LDA #$00BC PHA _LineTo JSR L3D9D LDA #$0029 PHA LDA #$00B2 PHA _LineTo JSR L3D9D LDA #$0046 PHA LDA #$00B2 PHA _LineTo JSR L3D9D LDA #$0046 PHA LDA #$0099 PHA _LineTo JSR L3D9D LDA #$0028 PHA LDA #$0091 PHA _LineTo JSR L3D9D LDA #$0001 PHA LDA #$009A PHA _LineTo JSR L3D9D LDA L2FC6 PHA LDA L2FC4 PHA _CloseRgn JSR L3D9D PEA $0000 PEA $0000 _NewRgn JSR L3D9D PLA STA L2FC8 PLA STA L2FCA _OpenRgn JSR L3D9D LDA #$00A9 PHA LDA #$00AB PHA _MoveTo LDA #$00AA PHA LDA #$00C8 PHA _LineTo JSR L3D9D LDA #$013E PHA LDA #$00C8 PHA _LineTo JSR L3D9D LDA #$013E PHA LDA #$0079 PHA _LineTo JSR L3D9D LDA #$0115 PHA LDA #$006C PHA _LineTo JSR L3D9D LDA #$00D5 PHA LDA #$007D PHA _LineTo JSR L3D9D LDA #$00A9 PHA LDA #$00AB PHA _LineTo JSR L3D9D LDA L2FCA PHA LDA L2FC8 PHA _CloseRgn JSR L3D9D PEA $0000 PEA $0000 _NewRgn JSR L3D9D PLA STA L2FCC PLA STA L2FCE _OpenRgn JSR L3D9D LDA #$0101 PHA LDA #$000D PHA _MoveTo LDA #$0135 PHA LDA #$000D PHA _LineTo JSR L3D9D LDA #$012B PHA LDA #$0028 PHA _LineTo JSR L3D9D LDA #$013A PHA LDA #$0036 PHA _LineTo JSR L3D9D LDA #$012E PHA LDA #$003C PHA _LineTo JSR L3D9D LDA #$0102 PHA LDA #$0023 PHA _LineTo JSR L3D9D LDA #$0101 PHA LDA #$000D PHA _LineTo JSR L3D9D LDA L2FCE PHA LDA L2FCC PHA _CloseRgn JSR L3D9D PEA ^L3002 PEA L3002 PEA $0005 PEA $000E PEA $0022 PEA $002B _SetRect PEA ^L300A PEA L300A PEA $0024 PEA $000E PEA $0041 PEA $002B _SetRect PEA ^L3012 PEA L3012 PEA $0043 PEA $000E PEA $0060 PEA $002B _SetRect PEA ^L301A PEA L301A PEA $0062 PEA $000E PEA $007F PEA $002B _SetRect PEA ^L3022 PEA L3022 PEA $0081 PEA $000E PEA $009E PEA $002B _SetRect PEA ^L302A PEA L302A PEA $00A0 PEA $000E PEA $00BD PEA $002B _SetRect PEA ^L3032 PEA L3032 PEA $00BF PEA $000E PEA $00DC PEA $002B _SetRect PEA ^L303A PEA L303A PEA $00DE PEA $000E PEA $00FB PEA $002B _SetRect PEA ^L3042 PEA L3042 PEA $00FD PEA $000E PEA $011A PEA $002B _SetRect PEA ^L304A PEA L304A PEA $011C PEA $000E PEA $0139 PEA $002B _SetRect PEA ^L2F04 PEA L2F04 PEA $00F6 PEA $002D PEA $0139 PEA $003E _SetRect PEA ^L3086 PEA L3086 PEA $0000 PEA $000D PEA $0140 PEA $004C _SetRect PEA ^L308E PEA L308E PEA $0000 PEA $004C PEA $0140 PEA $008A _SetRect PEA ^L3096 PEA L3096 PEA $0000 PEA $008A PEA $0140 PEA $00C8 _SetRect PEA ^L30AA PEA L30AA PEA $007F PEA $000D PEA $00C5 PEA $004B _SetRect PEA ^L30B2 PEA L30B2 PEA $0004 PEA $0052 PEA $0061 PEA $0082 _SetRect PEA ^L30BA PEA L30BA PEA $00DC PEA $008B PEA $013D PEA $00C2 _SetRect PEA ^L30D2 PEA L30D2 PEA $0000 PEA $000C PEA $009B PEA $006B _SetRect PEA ^L30DA PEA L30DA PEA $009D PEA $000C PEA $0140 PEA $006B _SetRect PEA ^L30E2 PEA L30E2 PEA $0000 PEA $006D PEA $009B PEA $00C8 _SetRect PEA ^L30EA PEA L30EA PEA $009D PEA $006D PEA $0140 PEA $00C8 _SetRect PEA ^L3106 PEA L3106 PEA $0005 PEA $008E PEA $000C PEA $00BF _SetRect PEA ^L310E PEA L310E PEA $0011 PEA $008E PEA $0018 PEA $00BF _SetRect PEA ^L3116 PEA L3116 PEA $001D PEA $008E PEA $0024 PEA $00BF _SetRect PEA ^L311E PEA L311E PEA $0028 PEA $008E PEA $002F PEA $00BF _SetRect PEA ^L3126 PEA L3126 PEA $0033 PEA $008E PEA $003A PEA $00BF _SetRect RTS L3D9D BCC L3DAD PHA PEA $0000 PEA $0000 _SysFailMgr L3DAD RTS JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 LDA #$00E1 STA L1D57+2 LDA #$2000 STA L1D57 LDA #$8000 STA L1D5B JSL GSOS DW $0012 ; Read ADRL L1D55 JSR L3D9D JSL GSOS DW $0014 ; Close ADRL L1D71 JSR L3D9D RTS JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 L3E07 LDA L1E5D+2 STA L1D57+2 LDA L1E5D STA L1D57 JMP L3E1C L3E16 DW $0000 ; ref num L3E18 ADRL $00000000 ; end of file L3E1C LDA L1D4B STA L3E16 JSL GSOS DW $0019 ; GetEOF ADRL L3E16 LDA L3E18 STA L1D5B LDA L3E18+2 STA L1D5B+2 JSR L3D9D JSL GSOS DW $0012 ; Read ADRL L1D55 JSR L3D9D JSL GSOS DW $0014 ; Close ADRL L1D71 JSR L3D9D LDA L1E5D+2 STA L1E69+2 LDA L1E5D STA L1E69 LDA L1D5B STA L1E6D LDA #$00E1 STA L1E6F+2 LDA #$2000 STA L1E6F LDA #$8000 STA L1E73 jmp L4332 L3E7D LDA $00 PHA LDA $02 PHA LDA $04 PHA LDA $06 PHA LDA #^L1E7B STA L1D4D+2 LDA #L1E7B STA L1D4D SEP #$30 LDA L1E3F STA L1E7B+$E REP #$30 JSR L3FD7 LDA L1E3F CMP #$0041 BCS L3EB0 SEC SBC #$0030 BRA L3EB8 L3EB0 CLC ADC #$000A SEC SBC #$0041 L3EB8 ASL ASL TAX LDA L1E8E,X STA $00 LDA L1E8E+2,X STA $02 LDA L1F12,X STA $04 LDA L1F12+2,X STA $06 LDA L1D81 LDY #$0000 STA [$04],Y LDA L1D81+2 LDY #$0002 STA [$04],Y PEA $0000 PEA $0000 LDA L1D5B PHA PEA $0100 _UDivide PLA LDY #$0004 STA [$00],Y PLA BEQ L3F01 LDA [$00],Y INC STA [$00],Y L3F01 LDX #$0000 LDA #$0100 L3F07 CMP L1D5B BCS L3F10 INX ASL BRA L3F07 L3F10 TXA LDY #$000A STA [$00],Y PLA STA $06 PLA STA $04 PLA STA $02 PLA STA $00 RTS L3F23 LDA $00 PHA LDA $02 PHA LDA $04 PHA LDA $06 PHA LDA $08 PHA LDA $0A PHA LDA L1E3F CMP #$0041 BCS L3F43 SEC SBC #$0030 BRA L3F4B L3F43 CLC ADC #$000A SEC SBC #$0041 L3F4B ASL ASL TAX LDA L1E8E,X STA $00 LDA L1E8E+2,X STA $02 LDA L1F12,X STA $04 LDA L1F12+2,X STA $06 LDY #$0000 LDA [$04],Y STA $08 LDY #$0002 LDA [$04],Y STA $0A LDY #$0000 LDA [$08],Y STA [$00],Y LDY #$0002 LDA [$08],Y STA [$00],Y PLA STA $0A PLA STA $08 PLA STA $06 PLA STA $04 PLA STA $02 PLA STA $00 RTS L3F91 LDA $00 PHA LDA $02 PHA LDA L1E3F CMP #$0041 BCS L3FA5 SEC SBC #$0030 BRA L3FAD L3FA5 CLC ADC #$000A SEC SBC #$0041 L3FAD ASL ASL TAX LDA L1F12,X STA $00 LDA L1F12+2,X STA $02 LDY #$0002 LDA [$00],Y PHA LDY #$0000 LDA [$00],Y PHA _DisposeHandle JSR L3D9D PLA STA $02 PLA STA $00 RTS L3FD7 LDA $00 PHA LDA $02 PHA JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 JMP L3FFC L3FF6 DW $0000 ; ref num L3FF8 ADRL $00000000 ; end of file L3FFC LDA L1D4B STA L3FF6 JSL GSOS DW $0019 ; GetEOF ADRL L3FF6 LDA L3FF8 STA L1D5B LDA L3FF8+2 STA L1D5B+2 JSR L3D9D LDA L1D5B+2 STA L40D6+2 LDA L1D5B STA L40D6 CLC ADC #$0002 STA L40D6 BCC L4033 INC L40D6+2 L4033 LDA $00 PHA LDA $02 PHA PEA $0000 PEA $0000 PEA $0000 LDA L40D6 PHA LDA L1D7B PHA PEA $C008 PEA $0000 PEA $0000 _NewHandle JSR L3D9D PLA STA $00 STA L1D81 PLA STA $02 STA L1D81+2 PLA STA $02 PLA STA $00 LDA $00 PHA LDA $02 PHA LDA L1D81 STA $00 LDA L1D81+2 STA $02 LDY #$0000 LDA [$00],Y STA L1D85 LDY #$0002 LDA [$00],Y STA L1D85+2 PLA STA $02 PLA STA $00 LDA L1D85+2 STA L1D57+2 LDA L1D85 STA L1D57 JSL GSOS DW $0012 ; Read ADRL L1D55 JSR L3D9D JSL GSOS DW $0014 ; Close ADRL L1D71 JSR L3D9D LDA L1D85+2 STA $02 LDA L1D85 STA $00 LDA L1D5B TAY LDA #$0000 STA [$00],Y PLA STA $02 PLA STA $00 BRA L40DA L40D6 ADRL $00000000 L40DA RTS LDA $00 PHA LDA $02 PHA JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D55 STA L1D71 LDA L1E5D+2 STA L1D57+2 STA $02 LDA L1E5D STA L1D57 STA $00 JMP L4110 L410A DW $0000 ; ref num L410C ADRL $00000000 ; end of file L4110 LDA L1D4B STA L410A JSL GSOS DW $0019 ; GetEOF ADRL L410A LDA L410C STA L1D5B LDA L410C+2 STA L1D5B+2 JSR L3D9D JSL GSOS DW $0012 ; Read ADRL L1D55 JSR L3D9D JSL GSOS DW $0014 ; Close ADRL L1D71 JSR L3D9D LDY #$0009 LDA [$00],Y PHA _SetMasterSCB LDY #$000B LDA [$00],Y BNE L415E RTS L415E LDY #$000D LDA [$00],Y STA L4222 BNE L416D INY INY JMP L418D L416D LDY #$000F LDX #$0000 L4173 LDA #$0010 STA L4220 L4179 LDA [$00],Y STAL $E19E00,X INY INY INX INX DEC L4220 BNE L4179 DEC L4222 BNE L4173 L418D LDA [$00],Y STA L4226 CMP #$00C9 BCC L419A LDA #$00C8 L419A STA L4224 INY INY LDA $02 STA L1E69+2 LDA $00 STA L1E69 TYA CLC ADC L1E69 STA L1E69 BCC L41B6 INC L1E69+2 L41B6 LDA L4226 ASL ASL CLC ADC L1E69 STA L1E69 BCC L41C7 INC L1E69+2 L41C7 LDA #$2000 STA L1E6F LDA #$00E1 STA L1E6F+2 LDA #$00A0 STA L1E73 LDA #$0000 STA L4228 L41DF LDA [$00],Y STA L1E6D INY INY PHY JSR L4332 LDA L4228 PHA LDA [$00],Y PHA _SetSCB JSR L3D9D PLY LDA L1E6D CLC ADC L1E69 STA L1E69 BCC L420B INC L1E69+2 L420B LDA #$00A0 STA L1E73 INY INY DEC L4224 BNE L41DF PLA STA $02 PLA STA $00 BRA L422A L4220 DW $0000 L4222 DW $0000 L4224 DW $0000 L4226 DW $0000 L4228 DW $0000 L422A RTS LDA #$00C1 STA L1D3F LDA #$0000 STA L1D41 JSL GSOS DW $0001 ; Create ADRL L1D39 JSR L3D9D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D63 STA L1D71 LDA #$00E1 STA L1D65+2 LDA #$2000 STA L1D65 LDA #$8000 STA L1D69 JSL GSOS DW $0013 ; Write ADRL L1D63 JSR L3D9D JSL GSOS DW $0014 ; Close ADRL L1D71 JSR L3D9D RTS LDA #$00C0 STA L1D3F LDA #$0001 STA L1D41 JSL GSOS DW $0001 ; Create ADRL L1D39 JSR L3D9D JSL GSOS DW $0010 ; Open ADRL L1D4B JSR L3D9D LDA L1D4B STA L1D63 STA L1D71 LDA #$00E1 STA L1E69+2 LDA #$2000 STA L1E69 LDA #$8000 STA L1E6D STA L1E73 LDA L1E5D+2 STA L1E6F+2 STA L1D65+2 LDA L1E5D STA L1E6F STA L1D65 L42DD PEA $0000 PEA ^L1E69 PEA L1E69 PEA ^L1E6D PEA L1E6D LDA L1E6F+2 PHA LDA L1E6F PHA LDA L1E73 PHA _PackBytes PLA STA L1D69 JSL GSOS DW $0013 ; Write ADRL L1D63 JSR L3D9D LDA L1E6D BNE L42DD JSL GSOS DW $0014 ; Close ADRL L1D71 JSR L3D9D RTS L4323 LDA #$0100 L4326 CLC LDY L1D7D ADC L1D7D STA L1D7D TYA RTS L4332 PEA $0000 LDA L1E69+2 PHA LDA L1E69 PHA LDA L1E6D PHA PEA ^L1E6F PEA L1E6F PEA ^L1E73 PEA L1E73 _UnPackBytes PLA LDA L1E73 BNE L4332 RTS CMP #$0061 BCC L4369 CMP #$007B BCS L4369 SEC SBC #$0020 L4369 RTS L436A STZ L1E39 LDA #$1E00 STA L4381 L4373 JSR L43F2 LDA L1E39 BNE L4380 DEC L4381 BNE L4373 L4380 RTS L4381 DW $0000 L43AE PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _GetNextEvent PLA BEQ L43AE LDA L1E19 CMP #$0003 BNE L43AE LDA L1E1B AND #$007F RTS L43D3 PEA $0000 PEA $0402 PEA ^L1E19 PEA L1E19 _GetNextEvent PLA BEQ L43D3 LDA L1E19 CMP #$0001 BNE L43D3 RTS L43F2 PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _GetNextEvent PLA BEQ L441B LDA L1E19 CMP #$0001 BEQ L4415 CMP #$0003 BNE L441B L4415 LDA #$FFFF STA L1E39 L441B RTS L441C PEA $0000 PEA $FFFF PEA ^L1E19 PEA L1E19 _GetNextEvent PLA BEQ L441C LDA L1E19 CMP #$0001 BEQ L443F CMP #$0003 BNE L441C L443F RTS L4468 LDX #$0025 L446B LDY #$5000 L446E DEY BNE L446E DEX BNE L446B RTS L4475 TAY L4476 JSR L447D DEY BNE L4476 RTS L447D LDA #$3000 L4480 DEC BNE L4480 RTS L4494 PEA $0000 PEA $0000 PEA $0000 PEA $0000 _ReadTimeHex PLA STA L44C2 PLA STA L44C2+2 PLA PLA LDA L44C2+2 PHA LDA L44C2 PHA _SetRandSeed BRA L44C6 L44C2 DW $0000 L44C2+2 DW $0000 L44C6 RTS L44C7 PEA $0000 _Random PLA STA L4523 PEA $0000 PEA $0000 LDA L1E41 PHA LDA L4523 PHA _Multiply PLA STA L4523+2 PLA STA L4523+4 PEA $0000 PEA $0000 PEA $0000 PEA $0000 LDA L4523+4 PHA LDA L4523+2 PHA LDA #$0001 PHA LDA #$0000 PHA _LongDivide JSR L3D9D PLA STA L4523 PLA PLA PLA LDA L4523 RTS L4523 DW $0000 L4523+2 DW $0000 L4523+4 DW $0000 L4529 LDA L1E3D CMP #$0041 BCS L4537 SEC SBC #$0030 BRA L453F L4537 CLC ADC #$000A SEC SBC #$0041 L453F ASL ASL TAX PEA $0001 LDA L1E8E+2,X PHA LDA L1E8E,X PHA _FFStartSound JSR L4562 PEA $0001 _FFStopSound RTS L4562 PEA $0000 PEA $0000 _FFSoundDoneStatus JSR L3D9D PLA BEQ L4562 RTS L458C LDA #^L1E75 STA L1D57+2 LDA #L1E75 STA L1D57 LDA #$0000 STA L1D5B+2 LDA #$0006 STA L1D5B JSL GSOS DW $0012 ; Read ADRL L1D55 JSR L3D9D LDA L1E5D+2 STA L1D57+2 LDA L1E5D STA L1D57 JMP L45C6 L45C0 DW $0000 ; ref num L45C2 ADRL $00000000 ; end of file L45C6 LDA L1D4B STA L45C0 JSL GSOS DW $0019 ; GetEOF ADRL L45C0 LDA L45C2 STA L1D5B LDA L45C2+2 STA L1D5B+2 JSR L3D9D LDA L1D5B SEC SBC #$0006 STA L1D5B JSL GSOS DW $0012 ; Read ADRL L1D55 JSR L3D9D JSL GSOS DW $0014 ; Close ADRL L1D71 JSR L3D9D LDA L1E5D+2 STA L1E69+2 LDA L1E5D STA L1E69 LDA L1D5B STA L1E6D LDA L1E65+2 STA L1E6F+2 LDA L1E65 STA L1E6F LDA L1E75 STA L1E73 jmp L4332 L4631 STZ L3262 STZ L326A STZ L3264 STZ L326C LDA L1E77 STA L3266 STA L326E LDA L1E79 STA L3268 STA L3270 LDA L1E79 LSR CLC ADC #$0001 STA L3260 PEA ^L3326 PEA L3326 _PaintPixels jmp L3D9D L466B LDA #$0007 PHA _SetSolidPenPat LDA #$0001 PHA LDA #$000A PHA _SetPenSize LDA #$0008 PHA LDA #$0000 PHA _Line jmp L3D9D