Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/koronis/koronis.asm @ 1163:5cbcbfd738ae
Added
| author | boisy |
|---|---|
| date | Thu, 08 May 2003 20:50:59 +0000 |
| parents | a931c27458ff |
| children | 2d67237cca33 |
line wrap: on
line source
******************************************************************** * Koronis - Koronis Rift Program * * $Id$ * * NOTE: This code assembles to the EXACT same object code found on * the original Koronis Rift disk. * * Module size: $5C68 #23656 * Module CRC : $FA659A (Good) * Hdr parity : $1C * Exec. off : $0014 #20 * Data size : $6000 #24576 * Edition : $30 #48 * Ty/La At/Rv: $11 $81 * Prog mod, 6809 Obj, re-ent, R/O * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * ??? Disassembled BGP 03/01/12 * ??? Patched so that standard output is used and BGP 03/01/12 * that /TERM is no longer opened. nam Koronis ttl Koronis Rift Program ifp1 use defsfile endc tylg set Prgrm+Objct atrv set ReEnt+rev rev set $01 mod eom,name,tylg,atrv,start,size u0000 rmb 1 u0001 rmb 1 u0002 rmb 1 u0003 rmb 1 u0004 rmb 1 u0005 rmb 1 u0006 rmb 1 u0007 rmb 1 u0008 rmb 1 u0009 rmb 1 u000A rmb 1 u000B rmb 1 u000C rmb 1 u000D rmb 1 u000E rmb 1 u000F rmb 1 u0010 rmb 1 u0011 rmb 1 u0012 rmb 1 u0013 rmb 1 u0014 rmb 1 u0015 rmb 1 u0016 rmb 1 u0017 rmb 1 u0018 rmb 1 u0019 rmb 1 u001A rmb 1 u001B rmb 1 u001C rmb 1 u001D rmb 1 u001E rmb 2 u0020 rmb 1 u0021 rmb 1 u0022 rmb 1 u0023 rmb 1 u0024 rmb 1 u0025 rmb 1 u0026 rmb 1 u0027 rmb 1 u0028 rmb 1 u0029 rmb 2 u002B rmb 1 u002C rmb 1 u002D rmb 2 u002F rmb 1 u0030 rmb 1 u0031 rmb 1 u0032 rmb 1 u0033 rmb 1 u0034 rmb 1 u0035 rmb 1 u0036 rmb 1 u0037 rmb 1 u0038 rmb 1 u0039 rmb 6 u003F rmb 1 u0040 rmb 1 u0041 rmb 2 u0043 rmb 3 u0046 rmb 5 u004B rmb 2 u004D rmb 3 u0050 rmb 2 u0052 rmb 1 u0053 rmb 2 u0055 rmb 2 u0057 rmb 1 u0058 rmb 1 u0059 rmb 1 u005A rmb 1 u005B rmb 1 u005C rmb 2 u005E rmb 1 u005F rmb 1 u0060 rmb 1 u0061 rmb 1 u0062 rmb 1 u0063 rmb 1 u0064 rmb 1 u0065 rmb 1 u0066 rmb 1 u0067 rmb 1 u0068 rmb 1 u0069 rmb 1 u006A rmb 1 u006B rmb 1 u006C rmb 1 u006D rmb 3 u0070 rmb 2 u0072 rmb 2 u0074 rmb 1 u0075 rmb 1 u0076 rmb 1 u0077 rmb 1 u0078 rmb 1 u0079 rmb 1 u007A rmb 1 u007B rmb 1 u007C rmb 1 u007D rmb 2 u007F rmb 1 u0080 rmb 1 u0081 rmb 1 u0082 rmb 1 u0083 rmb 1 u0084 rmb 1 u0085 rmb 1 u0086 rmb 1 u0087 rmb 1 u0088 rmb 1 u0089 rmb 1 u008A rmb 1 u008B rmb 1 u008C rmb 1 u008D rmb 1 u008E rmb 1 u008F rmb 1 u0090 rmb 1 u0091 rmb 1 u0092 rmb 1 u0093 rmb 2 u0095 rmb 1 u0096 rmb 1 u0097 rmb 1 u0098 rmb 1 u0099 rmb 1 u009A rmb 1 u009B rmb 1 u009C rmb 1 u009D rmb 1 u009E rmb 1 u009F rmb 1 u00A0 rmb 2 u00A2 rmb 2 u00A4 rmb 1 u00A5 rmb 1 u00A6 rmb 1 u00A7 rmb 1 u00A8 rmb 1 u00A9 rmb 1 u00AA rmb 1 u00AB rmb 1 u00AC rmb 1 u00AD rmb 1 u00AE rmb 1 u00AF rmb 1 u00B0 rmb 1 u00B1 rmb 1 u00B2 rmb 1 u00B3 rmb 1 u00B4 rmb 1 u00B5 rmb 1 u00B6 rmb 2 u00B8 rmb 2 u00BA rmb 2 u00BC rmb 1 u00BD rmb 1 u00BE rmb 1 u00BF rmb 1 u00C0 rmb 1 u00C1 rmb 1 u00C2 rmb 1 u00C3 rmb 2 u00C5 rmb 3 u00C8 rmb 1 u00C9 rmb 1 u00CA rmb 1 u00CB rmb 1 u00CC rmb 3 u00CF rmb 1 u00D0 rmb 4 u00D4 rmb 1 u00D5 rmb 1 u00D6 rmb 2 u00D8 rmb 2 u00DA rmb 1 u00DB rmb 1 u00DC rmb 2 u00DE rmb 1 u00DF rmb 1 u00E0 rmb 1 u00E1 rmb 1 u00E2 rmb 2 u00E4 rmb 2 u00E6 rmb 1 u00E7 rmb 1 u00E8 rmb 1 u00E9 rmb 1 u00EA rmb 1 u00EB rmb 1 u00EC rmb 1 u00ED rmb 2 u00EF rmb 1 u00F0 rmb 1 u00F1 rmb 1 u00F2 rmb 1 u00F3 rmb 1 u00F4 rmb 1 u00F5 rmb 1 u00F6 rmb 1 u00F7 rmb 1 u00F8 rmb 1 u00F9 rmb 2 u00FB rmb 2 u00FD rmb 2 u00FF rmb 1 u0100 rmb 256 u0200 rmb 236 u02EC rmb 52 u0320 rmb 80 u0370 rmb 14400 u3BB0 rmb 9296 size equ . name fcs /KORONIS/ start leax >IcptRtn,pcr ldu #$0000 os9 F$Icpt orcc #IntMasks lds #$5EE4 andcc #^Intmasks leax >ScrnDev,pcr * This code was patched to disallow opening /TERM. This is so that the game * can use the window/screen that it was forked from. * lda #$03 nop nop * os9 I$Open nop nop nop * lbcs L0156 nop nop lda #$01 sta >$0100 L0036 lda #$04 lbsr L4A6C bcc L0036 lbsr L015B lda >$0371 pshs a lda >$0100 ldb #SS.Montr ldx >$0370 os9 I$SetStt set monitor type lda >$0100 ldb #SS.AScrn ldx #$0002 os9 I$SetStt allocate screen lbcs L0156 stx >$0103 sty >$0101 pshs y,x lda >$0100 clrb SS.Opt ldx #$034F os9 I$GetStt get options clr >$0353 clr >$0356 lda >$0100 clrb SS.Opt ldx #$034F os9 I$SetStt set options ldu #$0500 leax >CTitle,pcr lda #$01 lbsr L4A6C lbsr L0147 ldy >$0101 lda >$0100 ldb #SS.DScrn os9 I$SetStt display screen lbcs L0154 ldy #$0382 ldd #$FF0F L00A8 sta b,y decb bpl L00A8 leay >L0244,pcr lbsr L013D ldu #$0500 leax >CRobot,pcr lda #$01 lbsr L4A6C pshs y lda #$30 sta >$036F clra lbsr L5A4C leay >L0224,pcr lda >$0371 ldb #$10 mul leay d,y bsr L013D puls y bsr L0147 clra ldu #$0000 ldy #$2869 leax >KorVar,pcr lbsr L4A6C puls y,x stx >$0103 sty >$0101 puls a sta >$0371 lbra L0264 L00FD ldd #SS.Joy ldx #$0001 os9 I$GetStt get joystick values tsta beq L00FD rts L010A pshs u,y,x,b,a L010C ldx #$0382 cmpa b,x beq L012F sta b,x ldy #$1B31 palette escape code sty >$034B stb >$034D sta >$034E ldx #$034B ldy #$0004 lda #$01 os9 I$Write write palette escape sequence L012F puls pc,u,y,x,b,a L0131 pshs u,y,x,b,a pshs a tfr x,d addb #$05 puls a bra L010C L013D ldb #$0F L013F lda b,y bsr L010A decb bpl L013F rts L0147 ldu >$0103 ldx #$0500 lbra L3243 * Intercept routine - merely return IcptRtn rti ldd #$0000 L0154 puls y,x,a L0156 lda #$03 lbra L4A6C L015B clr >$0370 L015E lbsr L4B4C leax >Welcome,pcr ldy #$0023 lbsr L01A1 leax >MonTypes,pcr ldy #$001F lbsr L01A1 leax >MonTypeQ,pcr ldy #$001A lbsr L01A1 clr >$0371 L0185 lbsr L4B6A bcs L0185 cmpa #$63 beq L019D cmpa #$43 beq L019D inc >$0371 cmpa #$72 beq L019D cmpa #$52 bne L015E L019D lbsr L4B4C rts L01A1 lda >$0100 os9 I$Write rts ScrnDev fcc "/TERM" fcb C$CR KorVar fcc "KORVAR" fcb C$CR CTitle fcc "CTITLE.C" fcb C$CR CRobot fcc "CROBOT2.C" fcb C$CR MonTypeQ fcc " MONITOR TYPE (C/R) ? " MonTypes fcc " C = COMPOSITE (TV), R = RGB" fcb C$CR,C$LF Welcome fcb C$CR,C$LF fcb C$LF,C$LF,C$LF fcc " WELCOME TO KORONIS RIFT" fcb C$CR,C$LF,C$LF * Palette Values L0224 fcb $0B,$29,$04,$34,$26,$10,$12,$36 fcb $01,$02,$07,$2D,$20,$38,$00,$3F L0234 fcb $0A,$29,$20,$34,$26,$12,$10,$36 fcb $09,$02,$07,$2D,$24,$38,$00,$3F L0244 fcb $00,$3F,$20,$13,$10,$02,$19,$1B fcb $36,$34,$26,$2D,$29,$0C,$38,$07 L0254 fcb $12,$36,$09,$24,$3F,$1B,$2D,$34 fcb $00,$12,$00,$3F,$00,$12,$00,$34 L0264 clr >$0409 L0267 lda #$FF sta >$03D0 L026C lbsr L0430 lbsr L42A1 L0272 lda >$33ED bne L0286 lda >$33EC L027A beq L0281 lbsr L53B2 bra L0272 L0281 lda >$33EF beq L0296 L0286 lda >$3666 bne L0296 lbsr L53A9 lbsr L4881 clr >$33ED bra L026C L0296 lbsr L41DB lda <u00F7 beq L02B0 lbsr L53B2 lbsr L4465 lbsr L430D lda #$14 lbsr L36BC lbsr L24BE bra L0272 L02B0 lda >$33EE bne L0272 lda >$366E bne L02CC lbsr L16A4 lda #$1F lbsr L36BC lda <u00A8 ora >$3413 ora >$3410 beq L02FA L02CC lbsr L042F lbsr L06C4 lda #$15 lbsr L36BC lbsr L24BE lbsr L0EB2 lda #$01 lbsr L36C9 lda #$6B lbsr L36BC lbsr L24BE lbsr L0714 lda #$04 lbsr L36C9 lda #$32 lbsr L36BC lbsr L042F L02FA lbsr L24BE lbsr L53B2 clr >$3410 lbsr L5A1F lbsr L2A6F lbsr L5A2C lda #$02 sta >$5EE4 lbsr L36C9 lda #$C0 lbsr L36BC lbsr L24BE lbsr L2D9F lda #$54 lbsr L36BC lbsr L24BE lbsr L1CB1 lbsr L0386 lbsr L1AA0 lbsr L19EE lbsr L1985 lbsr L0395 clr >$343A clr >$343F lbsr L255D lda >$3664 beq L034A lbsr L5A4C L034A lda >$34BF beq L0361 clra clrb lbsr L010A lda #$05 lbsr L5A4C lda [>$0374] clrb lbsr L010A L0361 lda >$3405 beq L037D ldb #$03 lda >$33F2 lbsr L010A lda #$06 lbsr L5A4C ldu >$0374 lda u0003,u ldb #$03 lbsr L010A L037D clr >$3405 clr >$34BF lbra L0272 L0386 lbsr L389A lbsr L2E05 lbsr L2F17 lbsr L4CE1 lbra L3006 L0395 tst >$336B beq L03A4 lda #$80 sta >$343A orcc #Carry lbsr L20EA L03A4 lda #$60 sta >$3CE0 orcc #IntMasks stx <u0095 stu <u0099 sts <u007F sty <u0081 lds #$4008 ldu #$0243 ldu ,u leau u0007,u L03C0 puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000E,u puls y,x,dp,b,a pshu y,x,dp,b,a leau u000A,u puls dp,b,a pshu dp,b,a leau u000A,u clra tfr a,dp sts >$0347 lds <u007F andcc #^IntMasks orcc #IntMasks lds >$0347 dec >$3CE0 bne L03C0 clra tfr a,dp ldx <u0095 ldy <u0081 ldu <u0099 lds <u007F andcc #^IntMasks rts L042F rts L0430 ldu >$0103 leau >u3BB0,u ldb #$C0 ldy #$0105 L043D stu ,y++ leau <-u0050,u decb bne L043D ldu #$5DB8 ldb #$5F ldy #$0285 L044E stu ,y++ leau <-u0050,u decb bpl L044E clra ldy #$2869 ldx #$179F lbsr L18AB clra ldy #$0000 ldx #$0100 lbsr L18AB lda #$01 sta >$33EB sta >$3410 lda #$04 sta >$342D lda #$04 sta <u00ED sta >$338C lda #$30 sta >$036F lda #$80 sta >$3390 lda #$32 sta >$3393 sta >$3438 lda #$FF sta >$32D5 sta >$3661 sta >$3417 sta >$32D3 sta >$3463 ldb #$0E ldx #$33A4 L04A8 sta b,x decb bpl L04A8 sta >$33EE sta >$3334 ldx #$000C ldu #$1138 ldy #$32D8 L04BD ldd ,u++ std ,y++ leax -$01,x bne L04BD lda #$05 sta >$3399 lda #$01 sta <u00EF sta <u00EC lda #$05 sta >$33C4 lda #$0A sta >$340B sta >$340C lda #$10 sta >$331F lda #$10 sta >$33C6 sta <u00E6 leax >L57CF,pcr stx >$07B6 leax >L5864,pcr stx >$07B8 ldx #$322D ldb #$05 L04FC stb b,x decb bpl L04FC lbsr L068B lda >$03D0 beq L050C lbsr L0621 L050C lbsr L18CE lbsr L1932 ldy #$0013 ldu #$000F ldx #$00CE ldd #$0003 L051F sta b,u sta b,y sta b,x decb bpl L051F ldd #$FF05 ldx #$31E5 L052E sta b,x decb bpl L052E ldd #$FF07 ldy #$30E5 ldx #$32C5 L053D sta ,y sta ,x+ leay <$20,y decb bpl L053D clr >$32CD lbsr L05E1 lda #$06 sta >$3336 lda #$40 sta >$3335 lda #$10 sta >$32D7 lda #$08 sta >$33CA clr >$33EC lbsr L4912 lbsr L245C lda #$80 sta <u00F6 lbsr L208C clr >$03D0 lbra L20A3 L0577 ldd #$0C46 std <u007F lbsr L49BC lda #$20 sta ,y lda #$01 sta >$33BF lda #$11 sta <u00E9 lda #$00 sta <u00EB lda #$FF sta <u00EA lda #$FF sta >$3417 lbsr L197F lbsr L196D ldx #$0002 lbsr L1906 ldx #$0005 lbsr L1906 lbsr L1979 lbsr L1973 lda #$0F sta <u00F5 ldb #$05 L05B7 ldu #$31E5 lda b,u cmpa #$FF beq L05C3 lbsr L5038 L05C3 decb bpl L05B7 ldb #$05 ldy #$3340 ldx #$333A L05CF lda b,y sta b,x decb bpl L05CF ldd <u00AE std <u00BE ldd <u00B0 std <u00C0 lbra L37FD L05E1 ldx #$0000 ldy #$0002 lda #$14 sta <u008F lbsr L060B lda #$01 ldb #$02 lbsr L5196 ldx #$0014 ldy #$0003 lda #$19 sta <u008F lbsr L060B lda #$02 ldb #$03 lbra L5196 L060B tfr x,d ldx #$069C leax d,x leay >$31E5,y L0616 lda ,x+ sta ,y leay $06,y dec <u008F bne L0616 rts L0621 ldx #$050A clrb L0625 lda >$33EB lsla lsla lsla lsla adda >$33EB adda #$25 sta >$33EB sta ,x+ incb bne L0625 rts L063A lda >$1F69 sta <u00AE sta >$3314 sta >$3310 sta >$330C lda >$1F6A sta <u00B0 sta >$3316 sta >$3312 sta >$330E clr <u00A7 clr <u0011 lda #$03 sta <u00A8 lda #$FF sta >$108E sta >$108F sta >$3463 lda #$01 sta >$3410 lda >$1F6B inca sta >$34DF ldy #$345B ldb #$07 L067B clr b,y decb bpl L067B ldb >$1F6B lda #$01 L0685 sta b,y decb bpl L0685 rts L068B lda >$0371 bne L06AA leax >L0224,pcr stx >$0372 ldd #$0970 std >$0374 ldd #$10A0 std >$0376 ldd #$10C0 std >$0378 rts L06AA leax >L0234,pcr stx >$0372 ldd #$0960 std >$0374 ldd #$1090 std >$0376 ldd #$10B0 std >$0378 rts L06C4 ldb <u00A7 stb >$3327 lda #$04 mul sta >$332F ldd <u00AE std <u00BE ldd <u00B0 std <u00C0 lbsr L130A ldd >$3320 std <u001A ldd >$3322 std <u001C lda >$3695 sta >$3683 ldx #$0000 clrb L06EE lda >$3683,x addd >$3693 sta >$3684,x leax $01,x cmpx #$000F bne L06EE clrb ldx #$0010 L0704 lda >$3673,x subd >$3693 sta >$3672,x leax -$01,x bne L0704 rts L0714 lda <u00A7 sta >$34B2 lda <u00AF sta >$34B4 lda <u00B1 sta >$34B3 leay >L1528,pcr sty >$3369 leay >L1570,pcr sty >$3367 ldy #$3D84 ldu #$3E24 lda #$5F ldb #$5F tfr d,x ldb #$50 L0742 stx ,y++ stx ,u++ decb bne L0742 clr <u009E clr <u009F ldd >$0103 addd #$3C00 std >$30E1 addd #$0200 std >$30E3 lda #$58 sta <u0068 lda #$A8 sta <u0069 clr <u006A clr <u006C lda #$FF sta <u006B sta <u006D ldb #$50 ldx #$3EC4 ldy #$0000 L0777 sty ,x++ decb bne L0777 L077D sty <u0061 ldb <u0062 ldx >$3369 ldb b,x clra std <u002D ldx <u002D ldu #$38D6 lda d,u sta <u0066 anda #$20 lbne L090D ldb <u0062 ldy >$3367 ldb b,y clra std <u002B ldx <u002B lda d,u sta <u0067 anda #$40 lbne L090D lda <u0066 anda <u0067 lbmi L090D lda <u0067 anda #$10 bne L07CB pshs x tfr x,d lslb rola tfr d,x lbsr L1105 puls x L07CB pshs x ldd ,s addd ,s ldu #$3816 ldd d,u std >$3906 ldu #$3876 ldd ,s addd ,s ldd d,u std >$3942 puls b,a ldu #$37E6 lda d,u sta >$397E sta <u0065 lda >$3906 beq L07FF bpl L07FB clra bra L0802 L07FB lda #$FF bra L0802 L07FF lda >$3907 L0802 sta <u0064 ldx <u002D ldu #$38D6 ldd <u002D lda d,u anda #$10 bne L081C tfr x,d lslb rola tfr d,x lbsr L1105 ldx <u002D L081C pshs x ldd ,s addd ,s ldu #$3816 ldd d,u std <u0057 ldd ,s addd ,s ldu #$3876 ldd d,u std <u0059 puls b,a ldu #$37E6 lda d,u sta <u005B anda <u0065 sta <u0065 lda <u0057 beq L084E bpl L084A clra bra L0850 L084A lda #$FF bra L0850 L084E lda <u0058 L0850 sta <u0063 ldx #$0000 lbsr L0984 ldy <u0061 lda <u0065 lbpl L093C lda <u0068 cmpa <u0063 bcs L0886 lda <u0064 cmpa <u0068 bcs L0883 cmpa <u006A bcs L0877 cmpa <u006C bcc L0877 lda <u006C L0877 cmpa <u006D bcs L0881 cmpa <u006B bcc L0881 lda <u006B L0881 sta <u0068 L0883 lbra L090D L0886 lda <u0064 cmpa <u0069 bcs L08AF lda <u0063 cmpa <u0069 bcc L08AC cmpa <u006B beq L0898 bcc L089E L0898 cmpa <u006D bcs L089E lda <u006D L089E cmpa <u006C beq L08A4 bcc L08AA L08A4 cmpa <u006A bcs L08AA lda <u006A L08AA sta <u0069 L08AC lbra L090D L08AF lda <u0063 adda <u0064 rora bmi L08DF lda <u006C bne L08C2 lda <u0063 sta <u006A lda <u0064 sta <u006C L08C2 cmpa <u0063 bcs L08CE lda <u0064 cmpa <u006C bcs L08CE sta <u006C L08CE lda <u0064 cmpa <u006A bcs L08DC lda <u0063 cmpa <u006A bcc L08DC sta <u006A L08DC lbra L090B L08DF clra ldb <u006D tfr d,x lda <u0064 cmpx #$00FF bne L08F1 sta <u006B lda <u0063 sta <u006D L08F1 cmpa <u006D bcs L08FD lda <u0063 cmpa <u006D bcc L08FD sta <u006D L08FD lda <u006B cmpa <u0063 bcs L090B lda <u0064 cmpa <u006B bcs L090B sta <u006B L090B bra L093C L090D lda <u0068 cmpa <u0069 bcs L093C ldy <u0061 cmpy #$0008 bcc L0921 ldu #$3CE4 bsr L096F L0921 cmpy #$0014 bcc L092C ldu #$3D84 bsr L096F L092C cmpy #$002A bcc L0937 ldu #$3E24 bsr L096F L0937 ldd <u009E std <u00A0 rts L093C ldy <u0061 leay $01,y cmpy #$0048 bcc L0937 pshs u,y,x cmpy #$0008 bne L0954 ldu #$3CE4 bsr L096F L0954 cmpy #$0014 bne L095F ldu #$3D84 bsr L096F L095F cmpy #$002A bne L096A ldu #$3E24 bsr L096F L096A puls u,y,x lbra L077D L096F pshs y ldd <u009E std <u00A0 ldb #$50 ldy #$3EC4 L097B ldx ,y++ stx ,u++ decb bne L097B puls pc,y L0984 stx <u0099 lda >$3906 eora #$80 sta <u0028 lda <u0057 eora #$80 cmpa <u0028 bne L099A lda <u0058 cmpa >$3907 L099A bcc L09FB ldd >$3906 std >$3940 ldd >$3942 std >$397C lda >$397E sta >$399B lda #$14 sta <u0019 ldd #$0000 subd <u0099 std <u0095 addd #$399B tfr d,u ldd <u0095 subd <u0099 std <u0095 addd #$397C tfr d,y ldd <u0095 addd #$3940 tfr d,x L09D0 lda <u0057 bpl L0A0C dec <u0019 tst <u0019 bmi L09FB lbsr L0AFB ldd <u005C bmi L09FE tsta bne L09E8 cmpb <u0068 bcs L09FE L09E8 std ,--x ldd <u005E std ,--y lda <u0060 sta ,-u lda <u009A inca sta <u009A cmpa #$0F bcs L09D0 L09FB ldx <u0099 rts L09FE ldd <u005C std <u0057 ldd <u005E std <u0059 lda <u0060 sta <u005B bra L09D0 L0A0C ldd <u0057 tsta bne L09FB cmpb <u0069 bcc L09FB L0A15 lda ,x beq L0A3C L0A19 dec <u0019 tst <u0019 bmi L0A39 lbsr L0AFB ldd <u005C std ,--x ldd <u005E std ,--y lda <u0060 sta ,-u lda <u009A inca sta <u009A cmpa #$0F bcc L0A39 bra L0A15 L0A39 ldx <u0099 rts L0A3C lda <u0059 bmi L0A48 bne L0A56 lda <u005A cmpa #$50 bcc L0A56 L0A48 lda ,y bmi L0A64 bne L0A67 lda $01,y cmpa #$50 bcs L0A64 bra L0A67 L0A56 lda ,y bmi L0A79 bne L0A8C lda $01,y cmpa #$50 bcs L0A79 bra L0A8C L0A64 lbra L0AE2 L0A67 ldb $01,x subb <u0058 cmpb #$14 bcs L0A8C lsrb lsrb negb sex addd <u0059 bpl L0A8C bra L0A19 L0A79 ldb $01,x subb <u0058 cmpb #$14 bcs L0A8C lsrb lsrb negb sex addd ,y bpl L0A8C lbra L0A19 L0A8C lda <u0059 beq L0A99 bmi L0A96 lda #$FF bra L0A97 L0A96 clra L0A97 sta <u005A L0A99 ldd ,y tsta beq L0AA7 bmi L0AA4 lda #$FF bra L0AA9 L0AA4 clra bra L0AA9 L0AA7 tfr b,a L0AA9 sta <u0043 ldb $01,x stb <u0039 lda ,u sta <u004D tst <u0065 bmi L0ADF tst <u0067 bpl L0ACB lda <u0039 cmpa #$58 bcs L0ACB cmpa #$A8 bcc L0ACB ldb <u0043 cmpb #$50 bcc L0AE2 L0ACB tst <u0066 bpl L0ADF lda <u0058 cmpa #$58 bcs L0ADF cmpa #$A8 bcc L0ADF ldb <u005A cmpb #$50 bcc L0AE2 L0ADF lbsr L0B31 L0AE2 tst <u009A beq L0AF7 ldd ,x++ std <u0057 ldd ,y++ std <u0059 lda ,u+ sta <u005B dec <u009A lbra L0A0C L0AF7 ldx #$0000 rts L0AFB ldd <u0057 addd ,x asra rorb std <u005C ldd <u0059 addd ,y asra rorb std <u005E lda <u005B inca adda ,u sta <u0060 bmi L0B15 rts L0B15 bcs L0B26 ldd <u005C subd <u0057 asra rorb pshs b,a ldd <u005E subd ,s++ std <u005E rts L0B26 ldd <u005C subd <u0057 asra rorb addd <u005E std <u005E rts L0B31 lda <u0039 cmpa <u0068 bls L0B8E cmpa <u0058 bcs L0B8E bne L0B8F clra ldb <u0039 subb #$58 lslb std <u000A lda <u0043 suba #$50 bcs L0B8E pshs x,b ldx <u000A leax >$3EC4,x cmpa ,x bls L0B8C cmpa #$5F bls L0B5D lda #$5F L0B5D ldb ,x sta ,x tstb beq L0B8C lda <u000B anda #$01 bne L0B8C ldx >$30E3 stb ,x+ stx >$30E3 lda <u000B adda #$30 ldx >$30E1 sta ,x+ stx >$30E1 inc <u009F bne L0B8C lda <u009E beq L0B8A dec <u009F bra L0B8C L0B8A inc <u009E L0B8C puls x,b L0B8E rts L0B8F ldd <u0099 std <u0095 pshs u,y,x ldx #$0039 ldy #$0043 ldu #$004D clrb L0BA0 lda <u0058 cmpa <u0068 bcs L0BBC sta <u0096 suba #$58 lsla sta <u000B clr <u000A ldx #$0039 ldy #$0043 ldu #$004D lbra L0C52 L0BBC adda ,x rora cmpa <u0068 bhi L0C05 sta <u0058 orcc #Carry lda <u005B adda ,u sta <u005B bmi L0BD8 lda <u005A adda ,y rora sta <u005A bra L0BA0 L0BD8 bcs L0BEF lda ,x suba <u0058 lsra sta <u0028 lda <u005A adda ,y rora suba <u0028 bcc L0BEB clra L0BEB sta <u005A bra L0BA0 L0BEF lda ,x suba <u0058 lsra sta <u0028 lda <u005A adda ,y rora adda <u0028 bcc L0C01 lda #$FF L0C01 sta <u005A bra L0BA0 L0C05 leax $01,x sta ,x orcc #Carry lda <u005B adda ,u+ sta ,u bmi L0C1E lda <u005A adda ,y+ rora sta ,y incb lbra L0BA0 L0C1E bcs L0C37 lda ,x suba <u0058 lsra sta <u0028 lda <u005A adda ,y+ rora suba <u0028 bcc L0C31 clra L0C31 sta ,y incb lbra L0BA0 L0C37 lda ,x suba <u0058 lsra sta <u0028 lda <u005A adda ,y+ rora adda <u0028 bcc L0C49 lda #$FF L0C49 sta ,y incb lbra L0BA0 L0C4F puls u,y,x rts L0C52 lda <u0096 cmpa <u0069 bcc L0C4F sta <u0058 suba b,x cmpa #$FE lbne L0DB0 lda b,y adda <u005A rora sta <u000D adda <u005A rora suba #$50 bcs L0CB3 pshs x,b ldx <u000A leax >$3EC4,x cmpa ,x bls L0CB1 cmpa #$5F bls L0C82 lda #$5F L0C82 ldb ,x sta ,x tstb beq L0CB1 lda <u000B anda #$01 bne L0CB1 ldx >$30E3 stb ,x+ stx >$30E3 lda <u000B adda #$30 ldx >$30E1 sta ,x+ stx >$30E1 inc <u009F bne L0CB1 lda <u009E beq L0CAF dec <u009F bra L0CB1 L0CAF inc <u009E L0CB1 puls x,b L0CB3 inc <u000B lda <u000D suba #$50 bcs L0CFE pshs x,b ldx <u000A leax >$3EC4,x cmpa ,x bls L0CFC cmpa #$5F bls L0CCD lda #$5F L0CCD ldb ,x sta ,x tstb beq L0CFC lda <u000B anda #$01 bne L0CFC ldx >$30E3 stb ,x+ stx >$30E3 lda <u000B adda #$30 ldx >$30E1 sta ,x+ stx >$30E1 inc <u009F bne L0CFC lda <u009E beq L0CFA dec <u009F bra L0CFC L0CFA inc <u009E L0CFC puls x,b L0CFE inc <u000B lda <u000D adda b,y rora suba #$50 bcs L0D4C pshs x,b ldx <u000A leax >$3EC4,x cmpa ,x bls L0D4A cmpa #$5F bls L0D1B lda #$5F L0D1B ldb ,x sta ,x tstb beq L0D4A lda <u000B anda #$01 bne L0D4A ldx >$30E3 stb ,x+ stx >$30E3 lda <u000B adda #$30 ldx >$30E1 sta ,x+ stx >$30E1 inc <u009F bne L0D4A lda <u009E beq L0D48 dec <u009F bra L0D4A L0D48 inc <u009E L0D4A puls x,b L0D4C inc <u000B lda b,y sta <u005A suba #$50 bcs L0D99 pshs x,b ldx <u000A leax >$3EC4,x cmpa ,x bls L0D97 cmpa #$5F bls L0D68 lda #$5F L0D68 ldb ,x sta ,x tstb beq L0D97 lda <u000B anda #$01 bne L0D97 ldx >$30E3 stb ,x+ stx >$30E3 lda <u000B adda #$30 ldx >$30E1 sta ,x+ stx >$30E1 inc <u009F bne L0D97 lda <u009E beq L0D95 dec <u009F bra L0D97 L0D95 inc <u009E L0D97 puls x,b L0D99 decb bmi L0DAD lda <u0096 adda #$02 sta <u0096 inc <u000B incb lda b,u decb sta <u005B lbra L0C52 L0DAD puls u,y,x rts L0DB0 lbcs L0E5F lda <u005A adda b,y rora suba #$50 bcs L0E00 pshs x,b ldx <u000A leax >$3EC4,x cmpa ,x bls L0DFE cmpa #$5F bls L0DCF lda #$5F L0DCF ldb ,x sta ,x tstb beq L0DFE lda <u000B anda #$01 bne L0DFE ldx >$30E3 stb ,x+ stx >$30E3 lda <u000B adda #$30 ldx >$30E1 sta ,x+ stx >$30E1 inc <u009F bne L0DFE lda <u009E beq L0DFC dec <u009F bra L0DFE L0DFC inc <u009E L0DFE puls x,b L0E00 inc <u000B lda b,y sta <u005A suba #$50 bcs L0E4D pshs x,b ldx <u000A leax >$3EC4,x cmpa ,x bls L0E4B cmpa #$5F bls L0E1C lda #$5F L0E1C ldb ,x sta ,x tstb beq L0E4B lda <u000B anda #$01 bne L0E4B ldx >$30E3 stb ,x+ stx >$30E3 lda <u000B adda #$30 ldx >$30E1 sta ,x+ stx >$30E1 inc <u009F bne L0E4B lda <u009E beq L0E49 dec <u009F bra L0E4B L0E49 inc <u009E L0E4B puls x,b L0E4D inc <u000B decb bpl L0E54 puls pc,u,y,x L0E54 inc <u0096 incb lda b,u decb sta <u005B lbra L0C52 L0E5F lda <u0096 adda b,x rora incb sta b,x decb orcc #Carry lda <u005B adda b,u incb sta b,u bmi L0E7F decb lda <u005A adda b,y rora incb sta b,y lbra L0C52 L0E7F bcs L0E99 lda b,x decb suba <u0058 lsra sta <u0028 lda <u005A adda b,y rora suba <u0028 bcc L0E93 clra L0E93 incb sta b,y lbra L0C52 L0E99 lda b,x decb suba <u0058 lsra sta <u0028 lda <u005A adda b,y rora adca <u0028 bcc L0EAC lda #$FF L0EAC incb sta b,y lbra L0C52 L0EB2 lda #$FF sta >$345A lbsr L1061 lda >$3447 beq L0EC2 lbsr L4EE3 L0EC2 lbsr L2E81 bcc L0ECA lbsr L37FD L0ECA lda <u00BE sta >$3332 lda <u00C0 sta >$3333 lda >$366E bne L0EE4 lbsr L17C4 lda >$330B sta >$3411 bra L0EE7 L0EE4 lda >$3411 L0EE7 adda >$331F sta >$3331 clr >$3330 lbsr L15B8 lbsr L1021 ldb >$332F bne L0F00 ldx #$075C bra L0F15 L0F00 cmpb #$01 bne L0F09 ldx #$0789 bra L0F15 L0F09 cmpb #$02 bne L0F12 ldx #$072F bra L0F15 L0F12 ldx #$0702 L0F15 stx <u0017 ldx #$0088 ldb #$00 pshs b L0F1E ldy <u0017 lda b,y sta <u0028 bpl L0F37 leax -$10,x ldd <u0072 addd <u001A std <u0072 ldd <u0074 subd <u001C std <u0074 bra L0F4A L0F37 rol <u0028 bpl L0F4A leax <$10,x ldd <u0072 subd <u001A std <u0072 ldd <u0074 addd <u001C std <u0074 L0F4A rol <u0028 bpl L0F5E leax -$01,x ldd <u0072 subd <u001C std <u0072 ldd <u0074 subd <u001A std <u0074 bra L0F70 L0F5E rol <u0028 bpl L0F70 leax $01,x ldd <u0072 addd <u001C std <u0072 ldd <u0074 addd <u001A std <u0074 L0F70 ldb ,s ldy #$38D6 clr b,y clra suba >$3330 sta <u0099 lda >$040A,x cmpa #$80 bne L0F8B stb >$345A lda #$20 L0F8B ldy #$37E6 sta b,y ldb <u0099 suba >$3331 rora rorb asra rorb asra rorb asra rorb tfr d,u ldy #$3786 ldb ,s leay b,y stu b,y tfr x,d ldy #$3696 lda ,s stb a,y ldu <u0072 ldy #$36C6 ldb ,s leay b,y stu b,y ldy #$3726 ldu <u0074 leay b,y stu b,y lda <u0074 bmi L0FD0 bne L0FE3 L0FD0 ldu #$0100 ldy #$3726 leay b,y stu b,y lda #$80 ldy #$38D6 sta b,y L0FE3 ldu #$36C6 ldy #$3726 leau b,u leau b,u leay b,y leay b,y ldd ,u bpl L1004 ldd #$0000 subd ,u cmpd ,y bcs L1014 lda #$40 bra L100B L1004 cmpd ,y bcs L1014 lda #$20 L100B ldb ,s ldu #$38D6 ora b,u sta b,u L1014 inc ,s ldb ,s cmpb #$2D lbcs L0F1E puls b rts L1021 ldd <u001A std <u0020 lda <u00C1 lbsr L12A3 ldd <u001E std <u0072 ldd <u001C std <u0020 lda <u00BF lbsr L12A3 ldd <u0072 subd <u001E std <u0072 ldd <u001C std <u0020 lda <u00C1 lbsr L12A3 ldd <u001E std <u0074 ldd <u001A std <u0020 lda <u00BF lbsr L12A3 ldd <u001E addd <u0074 std <u0074 ldd #$0000 subd <u0074 std <u0074 rts L1061 clra ldb <u00C0 lslb lslb lslb stb <u007B rola ldx #$1F7C leax d,x stx <u007D ldb <u00BE stb <u007A addb #$04 tfr b,a anda #$07 sta <u0076 lsrb lsrb lsrb decb stb <u007C lda <u007B lsla adda <u007A sta <u007A ldx #$0044 L108D lbsr L1096 cmpx #$00E4 bne L108D rts L1096 pshs x clra ldb <u007C ldy <u007D leay d,y ldd ,y++ std <u0077 lda ,y sta <u0079 ldb <u007C addb #$08 stb <u007C clra ldb <u0076 incb tfr d,y ldd <u0077 L10B6 rol <u0079 rolb rola leay -$01,y bne L10B6 pshs cc std <u0077 clra ldb <u007A addd #$050A tfr d,y leax >$040A,x lda ,y+ puls cc bcc L10D8 ora #$C0 bra L10DA L10D8 anda #$7F L10DA rora sta ,x+ ldb #$09 pshs b ldb <u0078 L10E3 rolb rol <u0077 lda ,y+ bcc L10EE ora #$C0 bra L10F0 L10EE anda #$7F L10F0 rora sta ,x+ dec ,s bne L10E3 puls b puls x leax <$10,x ldb <u007A addb #$10 stb <u007A rts L1105 tfr x,d lsra rorb ldy #$38D6 leay b,y lda ,y ora #$10 sta ,y ldd >$3786,x std <u0008 ldd >$3816,x std <u0000 ldd >$3876,x std <u0002 ldd >$3726,x std <u0024 std <u0006 ldd >$36C6,x std <u0004 bpl L113E ldd #$0000 subd >$36C6,x L113E std <u0026 ldy #$0000 L1144 cmpd <u0024 bcs L1169 lsl <u0025 rol <u0024 leay $01,y cmpy #$0008 bne L1144 lda <u0004 bmi L1161 ldd #$4000 std <u0000 lbra L11CC L1161 ldd #$C000 std <u0000 lbra L11CC L1169 pshs y lbsr L12D6 puls y leay -$01,y cmpy #$0000 bmi L11AB clra ldb <u0029 leay $01,y L117D lslb rola leay -$01,y bne L117D stb <u0029 sta <u0028 lsra rorb addd <u0028 lsra rorb lsra rorb std <u0028 lda <u0004 bmi L11A0 ldd #$0080 addb <u0029 adca <u0028 std <u0000 bra L11CC L11A0 ldd #$0080 subb <u0029 sbca <u0028 std <u0000 bra L11CC L11AB clr <u0000 lda <u0004 bmi L11BF lda <u0029 lsra inca adda <u0029 rora lsra ora #$80 sta <u0001 bra L11CC L11BF lda <u0029 lsra inca adda <u0029 rora lsra coma adda #$81 sta <u0001 L11CC ldy #$0000 ldd <u0006 std <u0024 ldd <u0008 bpl L11DD coma comb addd #$0001 L11DD std <u0026 L11DF cmpd <u0024 bcs L1204 lsl <u0025 rol <u0024 leay $01,y cmpy #$0008 bne L11DF lda <u0008 bmi L11FC ldd #$4000 std <u0002 lbra L1270 L11FC ldd #$C000 std <u0002 lbra L1270 L1204 pshs y lbsr L12D6 puls y leay -$01,y cmpy #$0000 bmi L1246 clra ldb <u0029 leay $01,y L1218 lslb rola leay -$01,y bne L1218 stb <u0029 sta <u0028 lsra rorb addd <u0028 lsra rorb lsra rorb std <u0028 lda <u0008 bmi L123B ldd #$0080 addb <u0029 adca <u0028 std <u0002 bra L1270 L123B ldd #$0080 subb <u0029 sbca <u0028 std <u0002 bra L1270 L1246 lda <u0008 bmi L125D lda <u0029 lsra inca adda <u0029 rora lsra adda #$80 sta <u0003 clra adca #$00 sta <u0002 bra L1270 L125D lda <u0029 lsra inca adda <u0029 rora lsra pshs a ldd #$0080 subb ,s+ sbca #$00 std <u0002 L1270 lda <u0000 bpl L1279 ldb >$3673 bra L128C L1279 beq L1280 ldb >$3692 bra L128C L1280 ldb <u0001 lsrb lsrb lsrb sex tfr d,y ldb >$3673,y L128C sex addd <u0002 std <u0002 ldd <u0000 asra rorb addd #$0040 std >$3816,x ldd <u0002 std >$3876,x rts L12A3 sta <u0022 ldd <u0020 sta <u0023 bpl L12B2 ldd #$0000 subd <u0020 std <u0020 L12B2 lda <u0022 mul sta <u0021 lda <u0022 ldb <u0020 mul addb <u0021 adca #$00 std <u001E tst <u0023 bpl L12CD ldd #$0000 subd <u001E std <u001E L12CD rts L12CE lsl <u0027 rol <u0026 lsl <u0025 rol <u0024 L12D6 lda <u0024 lsla bpl L12CE pshs x ldx #$0008 ldd <u0026 L12E2 lslb rola bmi L12EA lsla bpl L12F4 rora L12EA subd <u0024 bcc L12F9 addd <u0024 andcc #^Carry bra L12FB L12F4 rora andcc #^Carry bra L12FB L12F9 orcc #Carry L12FB rol <u0029 leax -$01,x bne L12E2 puls x rts L1304 mul tstb bpl L1309 inca L1309 rts L130A lda >$3327 sta >$3324 bsr L1323 std >$3320 lda >$3324 adda #$40 sta >$3324 bsr L1323 std >$3322 rts L1323 clra ldb >$3324 lslb rola lslb rola sta >$3325 lsrb lsrb lda >$3325 ldx #$0396 leax a,x eorb ,x clra lslb rola ldy #$061A leay d,y ldx #$0392 ldb >$3325 lda b,x bne L1355 sta <u00FF ldd ,y std <u00FD bra L1362 L1355 ldd #$0000 subd ,y std <u00FD lda #$00 sbca #$00 sta <u00FF L1362 ldd <u00FD lslb rola rol <u00FF lslb rola rol <u00FF lslb rola rol <u00FF std <u00FD ldb <u00FF exg a,b rts L1377 ldd <u00F1 subd <u00BE std <u002F std <u0026 bpl L1388 ldd #$0000 subd <u0026 std <u0026 L1388 ldd <u00F3 subd <u00C0 std <u0031 std <u0024 bpl L1399 ldd #$0000 subd <u0024 std <u0024 L1399 ldd <u0026 cmpd <u0024 bls L13A8 ldx <u0026 ldd <u0024 std <u0026 stx <u0024 L13A8 rol <u0033 lda <u0033 eora #$01 sta <u0033 ldd <u0026 lsra rorb adcb <u0025 adca <u0024 std <u0034 ldd <u0024 bne L13C4 lda #$FF sta <u0029 bra L13C7 L13C4 lbsr L12D6 L13C7 ldb <u0029 addb #$02 rorb lsrb ror <u0033 lda #$00 leay >L1445,pcr lda d,y sta <u0033 bcc L13E1 lda #$40 suba <u0033 sta <u0033 L13E1 lda <u0031 bpl L13EB lda #$80 suba <u0033 sta <u0033 L13EB lda <u002F bpl L13F1 neg <u0033 L13F1 rts L13F2 lda <u0034 bpl L13F9 clr <u0038 rts L13F9 lda <u0033 suba >$3327 sta <u0037 sta <u0036 bpl L140C asra asra adca <u0036 bpl L1412 bra L1414 L140C lsra lsra adca <u0036 bpl L1414 L1412 lda #$7F L1414 adda #$80 sta <u0036 ldd <u0034 lsra rorb lsra rorb lsra bne L1424 rorb bra L1425 L1424 clrb L1425 lda <u0037 bpl L142A nega L142A lsra lsra sta <u0037 subb <u0037 bcc L1433 clrb L1433 leax >L56CF,pcr abx lda ,x sta <u0038 adda #$83 bcc L1442 lda #$FF L1442 sta <u0037 rts L1445 fcb $00,$01,$01 ...79... L1448 fcb $02,$03,$03,$04,$04,$05,$06,$06 ........ L1450 fcb $07,$08,$08,$09,$09,$0A,$0B,$0B ........ L1458 fcb $0C,$0C,$0D,$0D,$0E,$0F,$0F,$10 ........ L1460 fcb $10,$11,$11,$12,$12,$13,$13,$14 ........ L1468 fcb $14,$15,$15,$16,$16,$17,$17,$18 ........ L1470 fcb $18,$19,$19,$19,$1A,$1A,$1B,$1B ........ L1478 fcb $1B,$1C,$1C,$1D,$1D,$1D,$1E,$1E ........ L1480 fcb $1E,$1F,$1F,$1F,$20,$20 L1486 pshs cc lda #$FF ldb <u00A7 addb #$20 lslb bcc L14A2 puls cc lslb bcc L149C ldb <u00BE subb <u00F1 bra L14B3 L149C ldb <u00C0 subb <u00F3 bra L14B3 L14A2 lslb bcc L14AD ldb <u00F1 puls cc sbcb <u00BE bra L14B3 L14AD ldb <u00F3 puls cc sbcb <u00C0 L14B3 bmi L14BB cmpb #$06 bcc L14BB tfr b,a L14BB sta <u00F0 rts L14BE clrb stb <u00AA lda <u00A7 sta ,-s lsla bcc L14CA dec <u00AA L14CA lsla bcc L14CE decb L14CE eorb <u00AA stb <u00AC ldd #$0000 rolb tfr d,x lda ,s+ anda #$3F sta >$335D sta >$335E eora #$3F inca sta >$335D,x clra ldb >$335E lslb rola ldx #$061A leax d,x lda ,x ldb <u00A9 lbsr L1304 sta <u00AB tsta bne L1502 sta <u00AA L1502 lda <u00AA beq L1508 neg <u00AB L1508 ldb >$335D clra lslb rola ldx #$061A leax d,x lda ,x ldb <u00A9 lbsr L1304 sta <u00AD tsta bne L1521 sta <u00AC L1521 lda <u00AC beq L1527 neg <u00AD L1527 rts L1528 fcb $02,$00,$02,$03,$04,$05,$05,$04 ........ L1530 fcb $09,$03,$0C,$0D,$06,$07,$08,$09 ........ L1538 fcb $0A,$0B,$0C,$0D,$10,$11,$12,$0B ........ L1540 fcb $0A,$16,$17,$08,$07,$06,$1B,$1A ........ L1548 fcb $19,$18,$17,$16,$15,$14,$13,$12 ........ L1550 fcb $11,$10,$2B,$2A,$29,$28,$13,$14 ..+*)(.. L1558 fcb $15,$23,$22,$21,$18,$19,$1A,$1B .#"!.... L1560 fcb $1C,$1D,$1E,$1F,$20,$21,$22,$23 .... !"# L1568 fcb $24,$25,$26,$27,$28,$29,$2A,$2B $%&'()*+ L1570 fcb $00,$04,$01,$02,$03,$04,$07,$08 ........ L1578 fcb $03,$0B,$02,$01,$07,$08,$09,$0A ........ L1580 fcb $0B,$0C,$0D,$0E,$0E,$0D,$0C,$13 ........ L1588 fcb $14,$0A,$09,$18,$19,$1A,$1A,$19 ........ L1590 fcb $18,$17,$16,$15,$14,$13,$12,$11 ........ L1598 fcb $10,$0F,$0F,$10,$11,$12,$27,$26 ......'& L15A0 fcb $25,$15,$16,$17,$20,$1F,$1E,$1D %... ... L15A8 fcb $1D,$1E,$1F,$20,$21,$22,$23,$24 ... !"#$ L15B0 fcb $25,$26,$27,$28,$29,$2A,$2B,$2C %&'()*+, L15B8 fcb $DC,$BE,$DD,$B6,$DC,$C0,$DD,$B8 \>]6\@]8 L15C0 fcb $DC,$1A,$47,$56,$47,$56,$47,$56 \.GVGVGV L15C8 fcb $47,$56,$DD,$BA,$47,$56,$47,$56 GV]:GVGV L15D0 fcb $FD,$33,$18,$DC,$1C,$47,$56,$47 .3.\.GVG L15D8 fcb $56,$47,$56,$47,$56,$DD,$BC,$47 VGVGV]<G L15E0 fcb $56,$47 L15E2 rorb std >$331A ldd <u00B6 subd <u00BC std <u00B2 ldd <u00B8 addd <u00BA std <u00B4 lbsr L17CC lda >$330B sta >$331C ldd <u00B6 subd >$331A std >$330C ldd <u00B8 addd >$3318 std >$330E ldd <u00B6 addd <u00BC std <u00B2 ldd <u00B8 subd <u00BA std <u00B4 lbsr L17CC lda >$330B sta >$331D ldd <u00B6 addd >$331A std >$3310 ldd <u00B8 subd >$3318 std >$3312 ldd <u00B6 subd <u00BA std <u00B2 ldd <u00B8 subd <u00BC std <u00B4 lbsr L17CC lda >$330B sta >$331E ldd <u00B6 subd >$3318 std >$3314 ldd <u00B8 subd >$331A std >$3316 ldb >$331C subb >$331D sex bcs L166C lslb rola lslb rola lslb rola cmpa #$04 bcs L1678 lda #$03 bra L1678 L166C lslb rola lslb rola lslb rola cmpa #$FD bcc L1678 lda #$FD L1678 std >$3693 lda >$3331 suba >$331F suba >$331E bcs L1692 lsra cmpa #$20 bcs L168D lda #$1F L168D sta >$3695 bra L169C L1692 asra cmpa #$E1 bcc L1699 lda #$E1 L1699 sta >$3695 L169C clra suba >$3695 sta >$3695 rts L16A4 lda >$3326 sta >$3413 lda >$33F6 lsla lsla bcc L16B3 lda #$FF L16B3 lsla bcc L16B8 lda #$FF L16B8 lsla bcc L16BD lda #$FF L16BD ldb >$3695 lslb lslb tfr d,x clr >$33F6 lda >$3331 suba >$331F cmpa #$48 bcs L1704 lda >$3695 adda #$1F cmpa #$03 bcc L16E6 ldd >$3314 std <u00AE ldd >$3316 std <u00B0 bra L1704 L16E6 lda >$331C cmpa >$331D bcs L16FA ldd >$3310 std <u00AE ldd >$3312 std <u00B0 bra L1704 L16FA ldd >$330C std <u00AE ldd >$330E std <u00B0 L1704 tfr x,d addb #$80 lbsr L1304 ldb >$3335 lbsr L1304 ldb >$33C5 lbsr L1304 pshs a ldb #$99 mul adda ,s+ sta <u00A9 lbsr L2EF2 bcc L172A clr <u00A9 clr >$3413 L172A lda >$3336 sta <u00A8 lda >$3442 beq L1738 clr <u00A8 bra L1784 L1738 tst >$0409 bpl L175E lda >$3416 beq L1746 neg <u00A8 bra L174D L1746 lda >$3415 bne L174D sta <u00A8 L174D lda >$3414 beq L1759 lda #$01 sta >$3326 bra L175C L1759 clr >$3326 L175C bra L1784 L175E lda >$3390 cmpa #$0C bcc L1769 neg <u00A8 bra L176F L1769 cmpa #$96 bcc L176F clr <u00A8 L176F lda >$3393 cmpa #$59 bls L177D lda #$01 sta >$3326 bra L1784 L177D cmpa #$10 bcc L1784 clr >$3326 L1784 lda >$3326 bne L178B sta <u00A9 L178B lbsr L1A4F lbsr L1A2D ldd <u00AE std >$332B ldd <u00B0 std >$332D lda <u00A7 adda <u00A8 sta <u00A7 lbsr L14BE lda >$3326 bmi L17B7 ldd <u00AE addd <u00AA std <u00AE ldd <u00B0 addd <u00AC std <u00B0 bra L17C3 L17B7 ldd <u00AE subd <u00AA std <u00AE ldd <u00B0 subd <u00AC std <u00B0 L17C3 rts L17C4 ldd <u00BE std <u00B2 ldd <u00C0 std <u00B4 L17CC lda <u00B4 suba <u00C0 adda #$08 lsla lsla lsla lsla sta >$3309 ldb <u00B2 subb <u00BE addb #$08 andb #$0F orb >$3309 clra tfr d,y ldd >$040A,y cmpa #$80 bne L17F1 lda #$20 L17F1 sta >$3353 cmpb #$80 bne L17FA ldb #$20 L17FA stb >$3354 ldd >$041A,y cmpa #$80 bne L1807 lda #$20 L1807 sta >$3355 cmpb #$80 bne L1810 ldb #$20 L1810 stb >$3356 ldb <u00B3 stb >$335A ldy #$0008 clra L181D lslb bcs L182F lsr >$3354 lsr >$3353 adca >$3353 leay -$01,y bne L181D bra L183C L182F lsr >$3353 lsr >$3354 adca >$3354 leay -$01,y bne L181D L183C sta >$3357 ldb <u00B3 stb >$335A ldy #$0008 clra L1849 lslb bcs L185B lsr >$3356 lsr >$3355 adca >$3355 leay -$01,y bne L1849 bra L1868 L185B lsr >$3355 lsr >$3356 adca >$3356 leay -$01,y bne L1849 L1868 sta >$3358 ldb <u00B5 stb >$335B ldy #$0008 clra L1875 lslb bcs L1887 lsr >$3358 lsr >$3357 adca >$3357 leay -$01,y bne L1875 bra L1894 L1887 lsr >$3357 lsr >$3358 adca >$3358 leay -$01,y bne L1875 L1894 sta >$330B lsra lsra lsra lsra tfr a,b addb >$330B stb >$330B lsra adca >$330B sta >$330B rts L18AB sta ,y+ leax -$01,x bne L18AB rts L18B2 ldx #$0008 ldd >$3406 L18B8 lslb rola cmpa >$3408 bcs L18C3 suba >$3408 incb L18C3 leax -$01,x bne L18B8 sta >$340A stb >$3409 rts L18CE ldy #$3417 lda #$FF ldx #$000D lbsr L18AB ldx #$0006 L18DD bsr L1906 leax -$01,x bne L18DD rts L18E4 ldb #$BC lbsr L218E lda >$0905,x leau a,u lda #$18 sta >$3CE2 L18F4 ldb #$0A L18F6 lda #$EE sta ,u+ decb bne L18F6 leau <u0046,u dec >$3CE2 bne L18F4 rts L1906 bsr L18E4 ldb #$BA lbsr L218E lda >$0905,x inca leau a,u lda #$14 sta >$3CE2 L1919 bsr L1924 leau <u0050,u dec >$3CE2 bne L1919 rts L1924 ldy #$08F3 ldb #$07 L192A lda b,y sta b,u decb bpl L192A rts L1932 ldx #$0006 L1935 bsr L18E4 leax -$01,x bne L1935 lda #$14 sta >$3CE2 ldb #$BA lbsr L218E L1945 pshs u ldx #$0006 L194A pshs u lda >$0905,x inca leau a,u bsr L1924 puls u leax -$01,x bne L194A ldy #$0014 lbsr L4840 puls u leau <u0050,u dec >$3CE2 bne L1945 rts L196D ldd #$0EA4 lbra L36E4 L1973 ldd #$0E2E lbra L36E4 L1979 ldd #$0E19 lbra L36E4 L197F ldd #$0E49 lbra L36E4 L1985 ldb <u00E6 lsrb lsrb lsrb lsrb stb >$334A lda >$3348 lsra lsra lsra lsra sta >$33DC cmpa >$341C bne L19A3 cmpb >$341B bne L19A3 rts L19A3 stb >$341B sta >$341C clrb L19AA lda #$EE cmpb >$334A bcc L19B3 lda #$CC L19B3 andcc #^Carry bsr L19D7 incb cmpb #$0F bne L19AA clrb L19BD lda #$EE cmpb >$33DC bcc L19CD lda >$334F ldy #$08F3 lda a,y L19CD orcc #Carry bsr L19D7 incb cmpb #$0F bne L19BD rts L19D7 pshs b,a,cc addb #$A5 lbsr L218E puls a,cc tfr a,b bcs L19E9 std <u002B,u puls pc,b L19E9 std <u002D,u puls pc,b L19EE ldy #$0006 L19F2 lda >$08F2,y sta >$3CD7 ldb >$3339,y addb #$07 rorb lsrb lsrb lsrb cmpb >$341C,y beq L1A28 stb >$341C,y cmpb #$15 bcs L1A13 ldb #$14 L1A13 clra lsrb tfr d,x ldb >$0E42,y lda #$44 pshs y ldy #$000A lbsr L1ADB puls y L1A28 leay -$01,y bne L19F2 rts L1A2D lda #$CC sta >$3CD7 ldb <u00A9 addb #$0F lsrb lsrb lsrb lsrb cmpb #$15 bcs L1A40 ldb #$14 L1A40 ldy #$0008 clra lsrb tfr d,x lda #$1D ldb #$A9 lbra L1ADB L1A4F lda >$3326 cmpa >$3418 bne L1A65 lda <u00A9 cmpa >$3419 bne L1A65 lda <u00A8 cmpa >$341A beq L1A9F L1A65 ldd #$0EB9 lbsr L36E4 lda >$3326 sta >$3418 beq L1A84 lda <u00A9 sta >$3419 bne L1A7F ldd #$0EC5 bra L1A87 L1A7F ldd #$0ECC bra L1A87 L1A84 ldd #$0ED3 L1A87 lbsr L36E4 lda <u00A8 sta >$341A bpl L1A97 ldd #$0EDA lbra L36E4 L1A97 beq L1A9F ldd #$0EE2 lbsr L36E4 L1A9F rts L1AA0 lda >$3425 bne L1AB1 tst >$3423 bmi L1AB0 lbsr L197F dec >$3423 L1AB0 rts L1AB1 clr >$3423 lda >$34B2 suba >$3424 suba #$10 eora #$FF lsra lsra lsra lsra anda #$FE cmpa >$3417 bne L1ACA rts L1ACA sta >$3417 lbsr L197F ldb >$3417 ldx #$0FC6 ldd b,x lbra L36E4 L1ADB stb <u0086 sta <u0085 pshs x,cc cmpx #$0000 beq L1AF0 lda #$FF L1AE8 sta >$06C9,x leax -$01,x bne L1AE8 L1AF0 clra puls x,cc bcc L1AF7 lda #$F0 L1AF7 sta >$06CA,x clra leax $01,x cmpx #$000A bcs L1AF7 ldb <u0086 lbsr L218E ldb <u0085 leau b,u tfr y,d ldy #$06CA L1B12 lda ,y+ sta >$3CE2 anda >$3CD7 sta >$3CE0 com >$3CE2 lda >$3CE2 anda #$EE ora >$3CE0 sta >u00F0,u sta >u00A0,u sta <u0050,u sta ,u+ decb bne L1B12 rts L1B39 lda >$340B asra sta >$33C1 ldb >$340C lbsr L1304 adda >$33C1 sta >$33C1 ldb #$19 lbsr L1304 tsta bne L1B5B lda #$01 sta >$33C2 bra L1B64 L1B5B sta >$33C2 lda >$33C1 suba >$33C2 L1B64 sta >$33C1 ldx #$0006 clr >$3406 clr >$3407 L1B70 lda >$31E4,x cmpa #$FF beq L1B96 lda >$32A4,x beq L1B96 lda >$322C,x cmpa #$01 beq L1B96 cmpa #$02 beq L1B96 ldd >$3406 addb >$3244,x adca #$00 std >$3406 L1B96 leax -$01,x bne L1B70 ldd >$3406 lsra rorb lsra rorb tsta beq L1BA6 ldb #$FF L1BA6 std >$3406 stb >$3408 stb >$33C4 lda >$33C1 cmpa >$33C4 bcs L1BC4 suba >$33C4 sta >$33C1 lda #$FF sta >$33C5 bra L1BD6 L1BC4 sta >$3406 clr >$3407 lbsr L18B2 lda >$3409 sta >$33C5 clr >$33C1 L1BD6 lda >$33C1 adda >$33C2 bcc L1BE1 lda >$33C6 L1BE1 sta >$33C2 ldb #$33 lbsr L1304 tsta bne L1BF3 lda #$01 sta >$33C3 bra L1BFF L1BF3 sta >$33C3 lda >$33C2 suba >$33C3 sta >$33C2 L1BFF rts L1C00 clr <u0028 lda >$33C6 suba <u00E6 sta >$33C7 cmpa >$33C2 bcc L1C17 ldb >$33C2 subb >$33C7 stb <u0028 L1C17 lda >$33C2 adda <u00E6 bcc L1C23 lda >$33C6 bra L1C2B L1C23 cmpa >$33C6 bls L1C2B lda >$33C6 L1C2B sta <u00E6 ldb <u0028 addb >$33C3 bcc L1C36 ldb #$FF L1C36 lda >$340D lbsr L1304 sta >$33C7 bne L1C4E lbsr L36AB cmpa >$340D bcc L1C4E lda #$01 sta >$33C7 L1C4E ldx #$0006 L1C51 lda >$3339,x adda >$33C7 bcc L1C60 lda >$333F,x bra L1C6A L1C60 cmpa >$333F,x bls L1C6A lda >$333F,x L1C6A sta >$3339,x leax -$01,x bne L1C51 rts L1C73 tst <u00EA beq L1C80 lda #$B4 sta >$33BF ldb <u00E9 bra L1C91 L1C80 lda >$33C0 cmpa <u00EB beq L1C90 dec >$33BF bne L1C90 ldb <u00EB bra L1C91 L1C90 rts L1C91 stb >$33C0 lslb ldx #$1112 ldu b,x stu <u007F ldb #$27 ldy #$03C7 L1CA2 lda b,u sta ,-y decb bpl L1CA2 clr <u00EA ldd #$039A lbra L36E4 L1CB1 tst >$33E6 beq L1CC5 ldx #$0000 lbsr L1E9B ldx #$0001 lbsr L1E9B clr >$33E6 L1CC5 tst >$33E5 beq L1CD0 lbsr L1E7A clr >$33E5 L1CD0 tst >$33E7 beq L1CDB lbsr L1B39 clr >$33E7 L1CDB tst >$33E8 beq L1CE6 lbsr L1F09 clr >$33E8 L1CE6 tst >$3666 beq L1CFA lda <u0015 ora >$366E bne L1CFA lbsr L23CC lda #$F0 sta >$33ED L1CFA lda >$33F0 beq L1D0A clr >$33F0 lbsr L3D89 bcc L1D0A lbsr L3D32 L1D0A lda <u00F5 cmpa #$FF bne L1D2F lda <u0012 cmpa #$01 beq L1D2F lbsr L1F2F lda #$80 sta <u00F5 lbsr L1E7A ldx #$0000 lbsr L1E9B ldx #$0001 lbsr L1E9B lbsr L1F09 L1D2F rts L1D30 tst >$366E beq L1D36 rts L1D36 lda <u00F5 bmi L1D6B beq L1D53 dec >$33CA bne L1D6A lda <u0012 beq L1D4A inc >$33CA bra L1D6A L1D4A lda #$1E L1D4C sta >$33CA dec <u00F5 bra L1D6A L1D53 lbsr L36AB cmpa >$32D7 bcc L1D6A lda #$FF sta <u00F5 lda <u00F6 cmpa #$80 bne L1D6A clr <u00F6 lbsr L2088 L1D6A rts L1D6B cmpa #$FF bne L1D70 rts L1D70 lda <u000F beq L1D7C lda <u0013 beq L1DE7 cmpa #$1D bcc L1DE7 L1D7C lda <u0010 beq L1D88 lda <u0014 beq L1DE7 cmpa #$1D bcc L1DE7 L1D88 lda #$0C sta <u00F5 clr >$33C9 lda >$32D5 bmi L1D9C lda #$02 sta <u00EF lda #$01 bra L1DA1 L1D9C lda #$01 sta <u00EF clra L1DA1 sta <u00EB lda #$07 sta <u00E9 lda #$FF sta <u00EA lda >$32D1 cmpa #$02 bcs L1DB8 lda >$32D6 inca bra L1DC4 L1DB8 lda >$32D1 rora lda >$32D0 rora lsra lsra lsra lsra L1DC4 cmpa #$18 bls L1DCA lda #$18 L1DCA sta >$32D6 lda >$32D2 inca cmpa >$32D6 bcc L1DD9 sta >$32D6 L1DD9 lda >$32D2 cmpa >$32D6 bls L1DE4 sta >$32D6 L1DE4 lbra L1E42 L1DE7 lda >$33C9 bne L1DFD lda #$01 sta >$33C9 lda #$06 sta <u00EB sta <u00E9 lda #$FF sta <u00EA bra L1E42 L1DFD ldx #$0000 lbsr L36AB bpl L1E08 ldx #$0001 L1E08 lbsr L3262 bcc L1E29 lbsr L36AB cmpa >$33CB,x bcc L1E27 lbsr L36AB cmpa >$33CD,x bcc L1E23 lda #$01 bra L1E24 L1E23 clra L1E24 lbsr L32CD L1E27 bra L1E42 L1E29 lbsr L36AB cmpa >$32D2 bhi L1E42 lbsr L36AB cmpa >$33CB,x bcc L1E42 lbsr L32AF bcc L1E42 lbsr L2564 L1E42 ldb <u00FB clra pshs b,a ldy #$1F8C lda b,y puls y cmpa #$F1 bne L1E79 lda >$32D2 lsra lsra inca cmpa >$39A9 bcs L1E79 lbsr L36AB lsla bcs L1E79 cmpa >$32D2 bcc L1E79 ldx #$0002 lbsr L3262 bcc L1E79 ldx #$0002 lda #$01 lbsr L32CD L1E79 rts L1E7A lda >$33D7 ldb >$340E lbsr L1304 nega adda >$33D7 sta >$33CF lda >$33D8 ldb >$340E lbsr L1304 nega adda >$33D8 sta >$33D0 rts L1E9B lda >$3348 ldb >$3349 lbsr L1304 asra asra asra sta >$33DC ldb >$33E3 subb >$33E1,x lda >$3348 asra adda >$33DC tstb L1EB9 beq L1EC1 adda >$33DC decb bra L1EB9 L1EC1 sta >$33DA,x rts L1EC6 lbsr L3575 cmpx #$0002 bcs L1EF2 bne L1EEF clra ldb <u00FB pshs b,a ldy #$1F8C lda d,y puls y cmpa #$F1 bne L1EEB lbsr L36AB cmpa #$40 bcs L1EE9 rts L1EE9 bra L1EEF L1EEB cmpa #$F2 beq L1F08 L1EEF lbra L39C5 L1EF2 sta >$33FE,x lda >$33D3,x suba >$33DA,x bcs L1F05 sta >$33D3,x rts L1F05 lbsr L39C5 L1F08 rts L1F09 clra ldx #$0005 ldb >$33A4,x bmi L1F20 tfr d,x lda >$3245,x ldb >$323F,x lbsr L1304 L1F20 sta >$3352 ldb #$40 lbsr L1304 nega adda #$40 sta >$32D7 rts L1F2F ldb >$32D6 lslb lslb lslb clra tfr d,x clr >$33DF clr >$33E0 lbsr L1F58 ldb >$32D6 cmpb #$03 bcs L1F57 lslb lslb lslb addb #$08 clra tfr d,x inca sta >$33E0 lbsr L1F58 L1F57 rts L1F58 ldy >$33DF leau >L1FB8,pcr tfr x,d leau d,u lda u0001,u sta >$33D7,y lda u0006,u sta >$33DD,y lda u0003,u sta >$33D3,y lda u0004,u sta >$33CB,y lda u0005,u sta >$33CD,y ldb ,u stb >$33D1,y clra tfr d,y ldb >$08ED,y stb <u0090 ldy >$33DF clra ldb u0002,u stb >$33E1,y tfr d,y L1F9E ldb >$08ED,y tfr d,y lbsr L36AB anda #$07 leax >L41D3,pcr lda a,x sta <u008F ldx >$33DF lbsr L4144 rts L1FB8 fcb $00,$03,$01,$00,$0A,$40,$2A,$00 .....@*. L1FC0 fcb $00,$04,$02,$01,$0A,$40,$23,$00 .....@#. L1FC8 fcb $01,$04,$00,$02,$0C,$40,$2C,$00 .....@,. L1FD0 fcb $02,$04,$01,$03,$10,$30,$28,$00 .....0(. L1FD8 fcb $01,$05,$03,$05,$12,$50,$37,$00 .....P7. L1FE0 fcb $00,$07,$04,$06,$15,$40,$37,$00 .....@7. L1FE8 fcb $02,$09,$00,$09,$19,$40,$3C,$00 .....@<. L1FF0 fcb $01,$0A,$02,$0A,$1A,$80,$1A,$00 ........ L1FF8 fcb $05,$0C,$04,$0C,$1D,$50,$37,$00 .....P7. L2000 fcb $01,$06,$00,$0F,$20,$58,$28,$00 .... X(. L2008 fcb $03,$0F,$02,$16,$28,$60,$28,$00 ....(`(. L2010 fcb $05,$0F,$05,$1D,$20,$70,$3C,$00 .... p<. L2018 fcb $04,$18,$03,$19,$2A,$80,$1E,$00 ....*... L2020 fcb $04,$14,$01,$23,$30,$50,$4B,$00 ...#0PK. L2028 fcb $05,$19,$00,$2D,$10,$A0,$28,$00 ...-. (. L2030 fcb $02,$23,$02,$19,$20,$70,$50,$00 .#.. pP. L2038 fcb $05,$2D,$04,$32,$25,$60,$50,$00 .-.2%`P. L2040 fcb $04,$3C,$05,$37,$2C,$70,$46,$00 .<.7,pF. L2048 fcb $05,$46,$03,$41,$29,$80,$28,$00 .F.A).(. L2050 fcb $04,$4B,$04,$50,$33,$80,$55,$00 .K.P3.U. L2058 fcb $03,$55,$01,$5A,$3A,$A0,$64,$00 .U.Z: d. L2060 fcb $01,$5F,$00,$78,$34,$90,$6E,$00 ._.x4.n. L2068 fcb $04,$72,$05,$88,$10,$D0,$78,$00 .r...Px. L2070 fcb $00,$78,$01,$A0,$60,$C0,$8C,$00 .x. `@.. L2078 fcb $02,$96,$03,$C8,$A0,$C0,$82,$00 ...H @.. L2080 fcb $05,$A0,$02,$C8,$A0,$C0,$8C,$00 . .H @.. L2088 fcb $86,$EE,$20,$02 L208C lda #$FF sta >$3430 lda <u00EC ldx #$0F91 ldb a,x clra tfr d,x ldy #$003C lda #$04 bra L20C8 L20A3 lda #$DD bra L20AD L20A7 lda #$EE bra L20AD L20AB lda #$FF L20AD sta >$3430 ldb <u00ED ldx #$0F95 lda b,x pshs a ldy #$0F9B ldb b,y clra tfr d,y puls b tfr d,x lda #$04 L20C8 pshs u,a tfr y,d lslb rola ldu #$0105 ldu d,u tfr x,d leau b,u lda >$3430 puls b L20DC sta >u00A0,u sta <u0050,u sta ,u+ decb bne L20DC puls pc,u L20EA tst >$343A bmi L20F0 rts L20F0 lda #$0B sta <u008C lda >$3390 sta >$3439 ldb >$3393 stb >$3438 stb <u008D bcc L2109 lbsr L2189 bra L210C L2109 lbsr L2180 L210C ldx #$0000 L210F lda #$04 sta <u008B ldb >$3390 lsrb L2117 lda b,u sta >$1150,x lda >$0EF0,x coma anda >$1150,x pshs a lda >$0EF0,x anda #$CC ora ,s+ sta b,u incb leax $01,x dec <u008B bne L2117 leau <u0050,u dec <u008D dec <u008C bne L210F clr >$343A lda #$35 lbra L36BC L214A lda >$343A anda #$7F beq L217F tst >$336B beq L217F lda #$0B sta <u008C ldb >$3438 stb <u008D lbsr L2180 ldx #$1150 L2165 lda #$04 sta <u008B ldb >$3439 lsrb L216D lda ,x+ sta b,u incb dec <u008B bne L216D leau <u0050,u dec <u008D dec <u008C bne L2165 L217F rts L2180 ldu #$0185 L2183 clra lslb rola ldu d,u rts L2189 ldu #$0285 bra L2183 L218E ldu #$0105 bra L2183 L2193 bsr L21F1 lda #$0A sta <u008C lda >$34B0 cmpa #$58 bcc L21A1 L21A0 rts L21A1 cmpa #$A8 bhi L21A0 ldb >$34B1 cmpb #$AF bhi L21A0 cmpb #$5A bcs L21A0 suba #$58 sta >$343E subb #$50 stb >$343D lbsr L2180 ldy #$11F4 ldx #$0000 L21C4 lda #$06 sta <u008B ldb >$343E L21CB lda b,u sta >$117C,x anda ,y+ ora >$11B8,x sta b,u incb leax $01,x dec <u008B bne L21CB leau <u0050,u dec <u008C bne L21C4 lda #$01 sta >$343F lda #$35 lbra L36BC L21F1 tst >$343F beq L221E lda #$0A sta <u008C ldb >$343D lbsr L2180 ldx #$0000 L2203 lda #$06 sta <u008B ldb >$343E L220A lda >$117C,x sta b,u incb leax $01,x dec <u008B bne L220A leau <u0050,u dec <u008C bne L2203 L221E rts L221F lda >$33A3 bne L222F lda #$05 sta >$33A3 lda >$334F sta >$33A2 L222F rts L2230 lda >$33A3 beq L222F anda #$01 bne L223C lbsr L225C L223C dec >$33A3 bne L222F lda >$3390 adda #$02 sta >$3440 lda >$3393 adda #$4A sta >$3441 lda #$01 sta >$3671 lbsr L3453 lbra L53B5 L225C ldb >$33A2 ldy #$08F3 lda b,y sta >$3CD7 bsr L2288 suba #$0A bcc L226F clra L226F sta >$3384 lbsr L31A6 bsr L2288 adda #$0A cmpa #$50 bcs L227F lda #$4F L227F sta >$3384 lbsr L31A6 lbra L5A4A L2288 lda #$5F sta >$3386 lda >$3393 sta >$3382 lda >$3390 lsra adda #$02 sta >$3380 rts L229D lda >$33A3 bne L22B6 lda >$3348 beq L22B6 lda <u00E6 cmpa >$3348 bcs L22B6 suba >$3348 sta <u00E6 lbsr L221F L22B6 rts L22B7 ldb <u00EB cmpb #$06 bcs L22BF ldb #$05 L22BF lslb lslb lslb addb <u00EC addb <u00EC leau >L248E,pcr ldd b,u leau d,u pshs u rts L22D1 lda >$338D ora <u00F7 bne L22E3 lbsr L20A7 ldb >$338C stb <u00ED lbsr L20AB L22E3 ldb <u00ED ldx #$31E5 lda b,x cmpa #$FF bne L22FB lda <u00F7 lbne L2305 lda <u0012 bne L2304 lbra L23DF L22FB lda <u00F7 lbne L2315 lbsr L502F L2304 rts L2305 lbsr L247B bcs L2314 lda #$FF sta >$33B7 lda #$04 sta >$33BC L2314 rts L2315 lda >$32D4 cmpa #$08 bcs L2325 lda #$0C sta <u00E9 lda #$FF sta <u00EA rts L2325 lda #$FF sta >$33B6 lda #$81 sta >$33BC lbsr L51E4 inc >$32D4 rts ldb #$07 L2338 ldu #$32C5 lda b,u cmpa #$FF beq L2347 stb >$32CD lbsr L2366 L2347 decb bpl L2338 ldb #$05 L234C ldu #$31E5 lda b,u cmpa #$FF beq L235D ldu #$3251 lda b,u lbsr L497D L235D decb bpl L234C lda #$F0 sta >$33ED rts L2366 pshs b lbsr L4457 addb #$12 ldx #$30E5 clra lda d,x lbsr L497D puls pc,b pshs b lbsr L247B puls b bcs L23AC lbsr L2366 lbsr L5289 lda #$10 sta <u00E9 lda #$FF sta <u00EA ldd #$0C27 std <u007F lbsr L49CB dec >$32D4 beq L23A7 lda >$32D4 cmpa >$32CD bne L23A7 dec >$32CD L23A7 lda #$03 sta >$33BC L23AC rts lda >$366E bne L23C7 lda #$FF sta <u00EA lda >$34AD beq L23C0 lda #$0E sta <u00E9 rts L23C0 lda #$09 sta <u00E9 sta >$33F0 L23C7 rts lda <u0012 bne L23C7 L23CC lda #$0D sta <u00E9 sta <u00EB lda #$FF sta <u00EA lda #$01 sta >$366E sta >$3412 rts L23DF lda >$32D5 cmpa #$FF beq L2406 ldb <u00ED lbsr L50D3 lda >$32D5 lbsr L5178 lda #$FF sta >$32D5 tst <u00F5 bmi L2406 sta <u00EA lda #$00 sta <u00EB sta <u00E9 lda #$01 sta <u00EF L2406 rts lda >$32D2 cmpa #$13 bcc L2411 inc >$32D2 L2411 lda >$32D2 cmpa #$13 bcc L241B inc >$32D2 L241B clr >$33BA lda #$03 sta >$366E lda #$FF sta <u00EA lda >$32D5 cmpa #$FF bne L2439 lda #$00 sta <u00EB sta <u00E9 lda #$01 sta <u00EF rts L2439 lda #$01 sta <u00EB sta <u00E9 lda #$02 sta <u00EF rts lda #$02 sta <u00EB sta <u00E9 lda #$03 sta <u00EF bra L246C lda #$03 sta <u00EB sta <u00E9 lda #$03 sta <u00EF bra L246C L245C lda #$04 sta <u00EB sta <u00E9 lda #$03 sta <u00EF bra L246C lda #$05 sta <u00E9 L246C lda #$FF sta <u00EA rts lda #$01 bra L2477 lda #$02 L2477 sta >$34AB rts L247B lda >$33BA bne L248B lda #$FF sta <u00EA lda #$0B sta <u00E9 orcc #Carry rts L248B andcc #^Carry rts L248E fcb $FF,$3A ..9..9.: L2490 fcb $FF,$1F,$FE,$76,$FE,$76,$FF,$3A ...v.v.: L2498 fcb $FF,$1F,$FF,$51,$FE,$76,$FF,$CE ...Q.v.N L24A0 fcb $FE,$EA,$1F,$35,$FF,$C2,$FF,$E3 .j.5.B.c L24A8 fcb $FF,$E7,$FE,$A8,$FF,$B6,$FF,$B6 .g.(.6.6 L24B0 fcb $FF,$8D,$FF,$83,$FF,$79,$FE,$76 .....y.v L24B8 fcb $FE,$76,$FE,$76,$FE L24BD fcb $76 L24Be fcb $B6,$32 L24C0 fcb $CF,$B0,$34,$2C,$26,$01 rts L24C7 sta >$342B L24CA lda #$01 sta >$0611 inc >$342C lda <u00F7 bne L252D lda >$342C anda #$1F cmpa #$1F bne L24E2 lbsr L1C00 L24E2 lda >$3446 beq L24F7 lda <u00F9 bne L24ED dec <u00F8 L24ED dec <u00F9 lda <u00F8 bpl L24F7 clr <u00F8 clr <u00F9 L24F7 lda >$33C8 bpl L2505 clr >$33C8 ldx #$0002 lbsr L39C5 L2505 tst >$0409 bpl L250D lbsr L53B2 L250D lbsr L2230 lbsr L3372 lda >$3337 beq L251E lbsr L1D30 clra bra L2520 L251E lda #$01 L2520 sta >$3337 lda >$3413 eora #$01 ora >$3404 bne L252D L252D lbsr L1C73 tst >$0409 bmi L2544 lda <u00F7 bne L2541 tst >$0611 beq L2544 clr >$0611 L2541 lbsr L53B8 L2544 lda >$342C cmpa >$342D bne L2554 adca #$04 sta >$342D lbsr L255D L2554 dec >$342B beq L255C lbra L24CA L255C rts L255D lbsr L337B lbsr L53B5 rts L2564 lda #$FF sta >$3405 clra ldb >$33D9 tfr d,x lda #$FF sta >$3449 bra L25A6 L2576 lda #$FF sta >$3405 ldb >$33D9 clra tfr d,x cmpb #$02 bne L25A6 lda #$3F sta >$33F2 ldy #$0006 L258E lda >$3339,y suba >$32D2 bcc L259D lda #$FF sta >$33EF clra L259D sta >$3339,y leay -$01,y bne L258E rts L25A6 clra ldb >$33D1,x tfr d,y lda >$08F3,y anda #$0F pshs u ldu >$0374 lda a,u puls u sta >$33F2 lda >$3449 bpl L25CC lda >$33CF,x lsra lsra bra L25D0 L25CC lda >$33CF,x L25D0 sta >$3449 lda >$333A,y suba >$3449 bcc L25E2 lda #$FF sta >$33EF clra L25E2 sta >$333A,y clr >$3449 rts rts L25EB sta <u0090 cmpx #$0000 bne L2606 ldd >$0614 std >$0618 ldd #$2869 std <u0083 addd >$060A std >$060E clra bra L2619 L2606 ldd >$0616 std >$0618 ldd #$2CA5 std <u0083 addd >$060C std >$060E lda #$01 L2619 sta >$3452 ldb <u00F0 lslb ldy #$1082 ldd b,y std >$4006 lda <u009B bne L262D rts L262D cmpa #$3F bcs L2633 lda #$3E L2633 anda #$FE sta <u009B ldy #$0040 ldd #$0000 L263E std >$12AE,y leay -$02,y bne L263E clra ldb <u009B incb tfr d,x ldy #$12B0 leau >L27EE,pcr tfr u,d leau d,x lda #$01 L265A ldb ,-u sta b,y leax -$01,x bne L265A clr <u0028 ldb >$3452 lda <u009D ldy #$344C sta b,y lda <u009C suba #$58 lsla adda #$30 sta <u009C ldy #$344A sta b,y ldd #$000C ldy #$12CF L2685 adda b,y decb bpl L2685 ldb >$3452 ldy #$344E sta b,y lda <u0090 bne L26A6 ldb #$16 lda <u009D ldy #$12BA L269F suba b,y decb bpl L269F sta <u009D L26A6 lda <u009D suba #$50 sta <u0080 lda #$2B sta <u0081 ldd #$0050 subb <u009D bls L26D8 decb L26B8 tfr d,y L26BA ldd <u0083 addd #$0018 std <u0083 inc <u0080 dec <u0081 bpl L26C8 rts L26C8 leay -$01,y cmpy #$0000 bpl L26BA ldb <u0080 bpl L26FC negb clra bra L26B8 L26D8 lda #$FF sta <u0081 clra ldb <u009D tfr d,y ldu #$12B0 ldb #$2B L26E6 inc <u0081 lda b,u beq L26F4 leay $01,y cmpy #$00AF bcc L26F7 L26F4 decb bpl L26E6 L26F7 lda <u0081 bne L26FC rts L26FC lda <u009C suba #$02 ldb #$0C ldy #$12CF andcc #^Carry L2708 sbca b,y decb bpl L2708 anda #$FE sta <u0092 lda #$01 sta >$0613 sta >$0612 L2719 clra ldb <u0081 tfr d,y lda >$12B9,y lbeq L27B6 inc <u0028 ldb <u0080 lbsr L2189 clra ldb <u0092 std <u008F lda #$17 sta <u007F clr >$0613 L2739 ldb <u007F ldy #$12C4 lda b,y lbeq L27A8 ldx <u0083 lda b,x ldb <u0090 addb #$02 stb <u0090 cmpb #$30 bcs L27A8 tst >$0612 beq L277E ldx >$4006 abx ldb ,x+ beq L276C cmpb <u0080 bcs L276C anda #$0F clr >$0613 inc >$0613 L276C ldb ,x beq L277C cmpb <u0080 bcs L277C anda #$F0 clr >$0613 inc >$0613 L277C ldb <u0090 L277E tsta beq L27A8 subb #$30 cmpb #$A0 bcc L27A8 lsrb pshs a anda #$F0 bne L2796 lda b,u anda #$F0 ora ,s+ bra L27A6 L2796 lda ,s anda #$0F bne L27A4 lda b,u anda #$0F ora ,s+ bra L27A6 L27A4 lda ,s+ L27A6 sta b,u L27A8 dec <u007F lbpl L2739 inc <u0080 lda <u0080 cmpa #$60 bpl L27D1 L27B6 lda >$0613 bne L27BE sta >$0612 L27BE ldd <u0083 addd #$0018 std <u0083 cmpd >$060E bcc L27D1 dec <u0081 lbpl L2719 L27D1 lda <u0028 ldb >$3452 ldy #$3450 sta b,y ldb <u009B lda #$10 mul std <u007F lda <u007F lbsr L36C9 lda <u0080 lbsr L36BC rts L27EE fcb $1F,$20 ....O9. L27F0 fcb $0F,$30,$2F,$10,$27,$18,$07,$38 .0/.'..8 L27F8 fcb $37,$08,$17,$28,$13,$2C,$2B,$14 7..(.,+. L2800 fcb $0B,$34,$33,$0C,$03,$3C,$3B,$04 .43..<;. L2808 fcb $23,$1C,$1B,$24,$1D,$22,$2D,$12 #..$."-. L2810 fcb $0D,$32,$35,$0A,$05,$3A,$15,$2A .25..:.* L2818 fcb $25,$1A,$39,$06,$11,$2E,$21,$1E %.9...!. L2820 fcb $31,$0E,$09,$36,$29,$16,$3D,$02 1..6).=. L2828 fcb $19,$26,$01,$3E,$00 L282D fcb $8E,$10,$8E .&.>.... L2830 fcb $E1,$86,$26,$01,$39 L2835 stb <u008F sta <u0092 stb a,x ldy #$07B6 lslb L2840 ldd b,y std <u0085 ldb <u008F cmpb #$02 bcc L284F lda >$338E bra L2869 L284F cmpb #$08 bcc L2883 lda <u0092 ldy #$33E1 lda a,y ldy #$08F3 lda a,y anda #$0F ldy >$0374 lda a,y L2869 ldb <u0092 bne L2873 leau >L29B1,pcr bra L2877 L2873 leau >L29C9,pcr L2877 ldb <u008F leay >L29A9,pcr ldb b,y leau b,u bra L28BA L2883 subb #$08 ldy #$1F94 lda b,y pshs a anda #$0F pshs a ldx >$0376 lda a,x sta <u0091 lda ,s+ ldx >$0378 lda a,x sta >$338E ldb <u0092 beq L28AC leau >L29C9,pcr bra L28B0 L28AC leau >L29B1,pcr L28B0 puls a anda #$F0 lsra lsra leau a,u lda <u0091 L28BA ldy #$399C ldb <u00A4 sta b,y tst <u0092 bne L28CB ldd #$2869 bra L28CE L28CB ldd #$2CA5 L28CE std <u0087 ldx #$043C tfr d,y clra lbsr L18AB ldb #$03 ldy #$3453 L28DF lda b,u sta b,y decb bpl L28DF ldb <u0092 lda >$3455 ldx #$3457 sta b,x L28F0 clr <u0091 ldy <u0085 ldd ,y++ std <u007F ldx #$3453 ldu <u0087 pshs u leay d,y L2902 lda ,-y sta <u008F bpl L294F ldb #$02 pshs y ldy #$0085 L2910 lda <u008F anda #$03 lda a,x lsr <u008F lsr <u008F sta b,y decb bpl L2910 tst <u0091 beq L293B lda ,y lsla lsla lsla lsla ora ,u sta ,u+ lda $02,y lsla lsla lsla lsla ora $01,y sta ,u+ clr <u0091 bra L294B L293B lda $01,y lsla lsla lsla lsla ora ,y sta ,u+ lda $02,y sta ,u inc <u0091 L294B puls y bra L2977 L294F anda #$03 lda a,x sta <u0085 ldb <u0085 lslb lslb lslb lslb lsr <u008F lsr <u008F L295F tst <u0091 beq L296D tfr b,a ora ,u sta ,u+ clr <u0091 bra L2973 L296D lda <u0085 sta ,u inc <u0091 L2973 dec <u008F bpl L295F L2977 ldd <u007F subd #$0001 std <u007F bne L2902 tfr u,d subd ,s++ pshs b,a ldy #$0029 L298A leay -$01,y subd #$0018 bcc L298A leay $01,y puls b,a tst <u0092 beq L29A1 std >$060C sty >$0616 rts L29A1 std >$060A sty >$0614 rts L29A9 fcb $00,$00,$08,$00,$04,$08,$00 9....... L29B0 fcb $00 L29B1 fcb $00,$0E,$05,$0F,$00,$0E,$0F ........ L29B8 fcb $05,$00,$05,$0E,$0F,$00,$05,$0F ........ L29C0 fcb $0E,$00,$0F,$0E,$05,$00,$0F,$05 ........ L29C8 fcb $0E L29C9 fcb $00,$0E,$06,$0F,$00,$0E,$0F ........ L29D0 fcb $06,$00,$06,$0E,$0F,$00,$06,$0F ........ L29D8 fcb $0E,$00,$0F,$0E,$06,$00,$0F,$06 ........ L29E0 fcb $0E L29E1 fcb $17,$00,$35,$1F,$23,$48,$34 ...5.#H4 L29E8 fcb $26,$B7,$33,$6C,$F7,$33,$6D,$17 &73lw3m. L29F0 fcb $00,$5A,$48,$F6,$33,$6D,$3D,$1F .ZHv3m=. L29F8 fcb $23,$33,$CB,$F6,$33,$6C,$31,$A5 #3Kv3l1% L2A00 lda ,-y anda >$3CD7 sta ,-u decb bne L2A00 ldb >$336C leay b,y leay b,y dec >$336D bne L2A00 puls y,b,a rts pshs y,b,a sta >$336C stb >$336D lbsr L2A59 tfr a,b lsla tfr y,u leau a,u L2A2B lda ,y+ lsla rola rola rola anda >$3CD7 sta ,-u decb bne L2A2B ldb >$336C leay b,y leau b,u leau b,u leau b,u dec >$336D bne L2A2B puls y,b,a rts L2A4C pshs y,b,a mul L2A4F lda ,u+ sta ,y+ decb bne L2A4F puls y,b,a rts L2A59 pshs y,b,a L2A5B ldb ,s L2A5D lda ,u+ sta ,y+ decb bne L2A5D ldb ,s leay b,y dec $01,s bne L2A5B puls y,b,a rts L2A6F ldx #$3F64 ldu #$3A4E ldy #$3B3E bsr L2AD5 ldx #$3EC4 ldu #$3A9E ldy #$3B8E L2A85 bsr L2AD5 ldx #$3E24 ldu #$3AEE ldy #$3BDE bsr L2AD5 ldu #$3CD0 ldx #$3A4F ldy #$3C89 bsr L2AF1 ldx #$3A9F ldy #$3C93 bsr L2AF1 ldx #$3AEF ldy #$3C9D bsr L2AF1 ldu #$3CD3 ldx #$3B3F ldy #$3CA7 bsr L2B22 ldx #$3B8F ldy #$3CB1 bsr L2B22 ldx #$3BDF ldy #$3CBB bsr L2B22 lbsr L2B4F lbra L2B99 L2AD5 ldb #$50 L2AD7 lda ,-x cmpa ,-x bcc L2AE7 sta b,u lda ,x sta b,y decb bne L2AD7 rts L2AE7 sta b,y lda ,x sta b,u decb bne L2AD7 rts L2AF1 lda #$5F sta ,u lda #$0A sta <u009A L2AF9 lda #$5F sta ,y lda #$04 sta <u0099 L2B01 ldd ,x++ cmpa ,y bcc L2B09 sta ,y L2B09 cmpb ,y bcc L2B0F stb ,y L2B0F dec <u0099 bne L2B01 lda ,y+ cmpa ,u bcc L2B1B sta ,u L2B1B dec <u009A bne L2AF9 leau u0001,u rts L2B22 clr ,u lda #$0A sta <u009A L2B28 clr ,y lda #$04 sta <u0099 L2B2E ldd ,x++ cmpa ,y bls L2B36 sta ,y L2B36 cmpb ,y bls L2B3C stb ,y L2B3C dec <u0099 bne L2B2E lda ,y+ cmpa ,u bls L2B48 sta ,u L2B48 dec <u009A bne L2B28 leau u0001,u rts L2B4F lda #$5F sta >$3CCF clr >$3CD6 lda >$3CD3 ldb #$09 ldu #$3C7F L2B5F sta b,u decb L2B62 bpl L2B5F lda >$3CD2 ldb #$09 ldu #$3CC5 L2B6C sta b,u decb bpl L2B6C ldx #$3CA7 ldy #$3A4F bsr L2B81 ldx #$3C9D ldy #$3C7F L2B81 ldb #$09 L2B83 lda b,x sta ,-y sta ,-y sta ,-y sta ,-y sta ,-y sta ,-y sta ,-y sta ,-y decb bpl L2B83 rts L2B99 bsr L2BA4 lbsr L2C36 lbsr L2CB5 lbra L2D24 L2BA4 lda >$3CD0 cmpa >$3CCF bcc L2BB6 ldb >$3CCF stb >$3CE0 ldb #$00 bsr L2BEA L2BB6 lda >$3CD1 cmpa >$3CD0 bcc L2BC8 ldb >$3CD0 stb >$3CE0 ldb #$11 bsr L2BEA L2BC8 lda >$3CD2 cmpa >$3CD1 bcc L2BDA ldb >$3CD1 stb >$3CE0 ldb #$22 bsr L2BEA L2BDA lda >$3CD6 cmpa >$3CD2 bcc L2C35 ldb >$3CD2 stb >$3CE0 ldb #$33 L2BEA sta <u0090 nega adda >$3CE0 inca sta >$3CE0 orcc #IntMasks sts <u0099 stb <u0092 ldb <u0090 clra lslb rola lds #$0285 lds d,s leas <$50,s lda <u0092 sta <u0093 ldb <u0092 ldx <u0092 ldy <u0092 ldu <u0092 L2C17 pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a pshs u,y,x,b,a dec >$3CE0 bne L2C17 lds <u0099 andcc #^IntMasks L2C35 rts L2C36 ldx #$3CD0 ldy #$3C88 ldb #$11 bsr L2C55 ldx #$3CD1 ldy #$3C92 ldb #$22 bsr L2C55 ldx #$3CD2 ldy #$3C9C ldb #$33 L2C55 stb >$3CD7 lda #$0A L2C5A ldb ,x cmpb a,y bcc L2C71 pshs y,x,a sta >$3CD8 stb >$3CE0 lda a,y ldb >$3CD7 bsr L2C75 puls y,x,a L2C71 deca bne L2C5A rts L2C75 stb <u0092 stb <u0093 suba >$3CE0 sta <u0090 orcc #IntMasks sts <u0099 ldb >$3CE0 lds #$0285 leas b,s lds b,s ldb <u0090 lda >$3CD8 lsla lsla lsla leas a,s lda <u0092 ldx <u0092 ldy <u0092 ldu <u0092 tfr a,dp L2CA4 pshs u,y,x,dp,a leas <-$48,s decb bpl L2CA4 clra tfr a,dp lds <u0099 andcc #^IntMasks rts L2CB5 ldu #$3C92 ldy #$3A4E ldb #$11 bsr L2CD4 ldu #$3C9C ldy #$3A9E ldb #$22 bsr L2CD4 ldu #$3CA6 ldy #$3AEE ldb #$33 L2CD4 stb >$3CD7 lda #$50 ldx #$0008 L2CDC ldb ,u cmpb a,y bcc L2CF3 pshs u,y,x,a sta >$3CD8 stb >$3CE0 lda a,y ldb >$3CD7 bsr L2D00 puls u,y,x,a L2CF3 leax -$01,x bne L2CFC leau -u0001,u ldx #$0008 L2CFC deca bne L2CDC rts L2D00 stb <u0092 suba >$3CE0 pshs a ldb >$3CE0 ldu #$0285 leau b,u ldu b,u ldb >$3CD8 decb leau b,u puls b lda <u0092 L2D1B sta ,u leau <-u0050,u decb bpl L2D1B rts L2D24 lda #$11 ldy #$3F64 ldx #$3A9F bsr L2D43 lda #$22 ldy #$3EC4 ldx #$3AEF bsr L2D43 lda #$33 ldy #$3E24 ldx #$3B3F L2D43 sta >$3CD7 lda #$0F sta >$3CE0 lda #$50 sta >$3CD8 L2D50 lda ,-y cmpa ,-x bls L2D5C tfr a,b subb ,x bsr L2D74 L2D5C com >$3CE0 lda ,-y cmpa ,x bls L2D6B tfr a,b subb ,x bsr L2D74 L2D6B com >$3CE0 dec >$3CD8 bne L2D50 rts L2D74 ldu #$0285 leau a,u ldu a,u lda >$3CD8 deca leau a,u lda >$3CE0 sta >$3CE2 anda >$3CD7 sta <u0092 com >$3CE2 L2D8F lda ,u anda >$3CE2 ora <u0092 sta ,u leau <u0050,u decb bne L2D8F rts L2D9F ldd <u00A0 beq L2E04 std <u008F ldx >$0103 leax >$3BFF,x leay >$0200,x sty >$30E3 L2DB4 ldy >$30E3 ldd <u008F lda d,x pshs a ldd <u008F ldb d,y cmpb #$5F beq L2DD3 lbsr L2189 ldb ,s subb #$30 bcs L2DD3 cmpb #$A0 bcs L2DD7 L2DD3 puls b bra L2DFB L2DD7 lsrb clra leau d,u puls b subb #$30 lsrb bcs L2DE6 lda #$F0 bra L2DE8 L2DE6 lda #$0F L2DE8 sta >$3CE2 anda #$EE sta <u0092 com >$3CE2 lda ,u anda >$3CE2 ora <u0092 sta ,u L2DFB ldd <u008F subd #$0001 std <u008F bne L2DB4 L2E04 rts L2E05 lda <u0011 bne L2E0A rts L2E0A lbsr L3E2B clr <u00D0 lda >$345A cmpa #$FF bne L2E17 rts L2E17 clr <u00F2 clr <u00F4 lda <u00DA sta <u00F1 lda <u00E2 sta <u00F3 orcc #Carry lbsr L1486 lbsr L1377 lda <u0015 bne L2E3D lda <u0033 sta <u00C8 lda <u0035 sta >$39AA lda <u0034 sta >$39A9 L2E3D lda >$345A bmi L2E80 lda <u00F0 bmi L2E80 sta >$39B7 lbsr L13F2 lda <u0038 sta <u00CC clra ldb >$345A tfr d,x lda >$38D6,x cmpa #$10 bne L2E80 ldb >$345A lslb clra tfr d,x lda >$3817,x sta <u00D0 ldd >$3876,x bpl L2E74 clr <u00D0 rts L2E74 tst <u0015 beq L2E7C subb #$28 addb <u0015 L2E7C subb #$03 stb <u00D4 L2E80 rts L2E81 lda <u00BE suba #$05 sta <u008F lda <u00C0 suba #$05 sta <u0090 ldb >$1F6B ldu #$345B ldx #$1F6C ldy #$1F74 L2E9A lda b,u beq L2EAE lda b,x suba <u008F cmpa #$0A bcc L2EAE lda b,y suba <u0090 cmpa #$0A bcs L2EB4 L2EAE decb bpl L2E9A lbra L37FD L2EB4 stb <u00FB lda <u0011 bne L2EC0 lda #$01 sta <u0011 clr <u0015 L2EC0 lda b,x sta <u00DA lda b,y sta <u00E2 addb #$08 stb >$39A3 lda <u00E2 suba <u00C0 bcs L2ED9 lsla lsla lsla lsla bra L2EDF L2ED9 nega lsla lsla lsla lsla nega L2EDF adda #$88 sta <u008F ldb <u00DA subb <u00BE addb <u008F ldx #$040A abx lda #$80 sta ,x rts L2EF2 lda <u0011 beq L2F14 lda <u0015 bne L2F14 lda >$39A9 bne L2F14 lda >$39AA cmpa #$A0 bcc L2F14 lda >$34B2 suba <u00C8 adda #$40 cmpa #$80 bcc L2F14 orcc #Carry rts L2F14 andcc #^Carry rts L2F17 ldd >$39E1 std >$33FE clrb lbsr L2F28 ldb #$01 lbsr L2F28 ldb #$03 L2F28 stb <u00A4 ldy #$000F lda b,y bne L2F33 rts L2F33 ldx #$00CE clr b,x cmpb #$03 beq L2F44 lbsr L2FDA lbsr L3E69 bra L2F47 L2F44 lbsr L3B78 L2F47 lbsr L3DF2 ldb <u00A4 ldy #$00D6 lslb ldx b,y stx <u00F1 ldy #$00DE ldd b,y std <u00F3 andcc #^Carry lbsr L1486 lbsr L1377 ldb <u00A4 lda <u00F0 ldy #$39B5 sta b,y lda <u0033 ldy #$00C6 sta b,y ldy #$39A5 lslb leay b,y ldd <u0034 std ,y ldb <u00F0 bmi L2FD9 lbsr L13F2 ldb <u00A4 lda <u0038 cmpb #$03 bne L2F92 lsra L2F92 ldy #$00CA sta b,y lda <u0036 ldy #$00CE sta b,y lsra lsra lsra tfr a,b clra tfr d,x ldb <u00A4 lda <u0037 cmpa #$83 bne L2FB2 lda #$FF L2FB2 cmpb #$03 bne L2FB8 lda #$80 L2FB8 suba #$80 lsra adda #$80 adca >$3673,x ldy #$0013 tst b,y beq L2FCD suba #$28 adda b,y L2FCD ldy #$39E7 adda b,y ldy #$00D2 sta b,y L2FD9 rts L2FDA ldy #$00D6 lslb lda b,y suba <u00AE cmpa #$05 bgt L2FFC cmpa #$FB blt L2FFC ldy #$00DE lda b,y suba <u00B0 cmpa #$05 bgt L2FFC cmpa #$FB blt L2FFC rts L2FFC clra lsrb tfr d,y lbsr L38FA ldd ,s++ rts L3006 ldb #$03 L3008 lda >$3411 cmpa #$68 bls L3010 rts L3010 ldx #$00CE ldy #$00D2 lda b,x cmpa #$58 bcs L3021 cmpa #$A8 bcs L3022 L3021 clra L3022 sta b,x lda b,y cmpa #$1E bcc L302D clra sta b,x L302D cmpa #$AF bcs L3034 clra sta b,x L3034 sta b,y lda b,x ldu #$39AD sta b,u decb bpl L3008 ldx #$0000 ldy #$0004 L3047 lda $0E,y beq L3062 lda >$00CD,y beq L3062 lda >$39E6,y cmpa #$3C beq L3062 tfr y,d decb stb >$39FB,x leax $01,x L3062 leay -$01,y bne L3047 cmpx #$0000 bne L306C rts L306C cmpx #$0001 bne L3077 ldb >$39FB lbra L3110 L3077 clra ldb >$39FB lslb tfr d,y ldb >$39FC lslb tfr d,x ldd >$39A5,y subd >$39A5,x bcs L309C ldb >$39FB stb >$39D9 ldb >$39FC stb >$39DA bra L30A8 L309C ldb >$39FC stb >$39D9 ldb >$39FB stb >$39DA L30A8 ldb >$39DA cmpb #$03 beq L3108 ldb >$39D9 cmpb #$03 bne L30C3 ldb >$39DA stb >$39D9 ldb #$03 stb >$39DA bra L3108 L30C3 ldu #$00CA cmpb #$02 bne L30DF lda b,u cmpa #$1E bls L30DD ldb >$39DA lda b,u cmpa #$1E bls L30DD lda #$1E sta b,u L30DD bra L3108 L30DF ldb >$39DA cmpb #$02 bne L30FB lda b,u cmpa #$1E bls L3108 ldb >$39D9 lda b,u cmpa #$1E bls L3108 lda #$1E sta b,u bra L3108 L30FB ldb >$39D9 lda b,u cmpa #$1E bls L3108 lda #$1E sta b,u L3108 ldb >$39D9 bsr L3110 ldb >$39DA L3110 stb <u00A4 ldu #$0013 lda b,u beq L311F cmpa #$1E lbcs L31A3 L311F ldx #$00CE lda b,x sta <u009C ldy #$00D2 lda b,y sta <u009D ldu #$00CA lda b,u sta <u009B ldu #$39B5 lda b,u sta <u00F0 ldu #$0013 lda b,u beq L3145 inc <u00F0 L3145 ldu #$03FF lda b,u ldu #$39A1 ldb b,u lbsr L282D ldb <u00A4 ldu #$399C lda b,u pshs a ldu #$03FF ldb b,u clra tfr d,x puls a sta >$39DD,x cmpx #$0002 bne L3178 ldb <u00FB ldy #$345B tst b,y beq L317B L3178 lbsr L0131 L317B lbsr L25EB ldb <u00A4 cmpb #$02 bne L319A lda <u009D andcc #^Carry ldx #$12B9 pshs b ldb #$29 L318F adca b,x decb bpl L318F suba #$0D puls b bra L319E L319A lda <u009D adca #$07 L319E ldu #$39B1 sta b,u L31A3 lbra L3AF1 L31A6 lda >$3380 suba >$3384 bcc L31C8 lda >$3380 ldb >$3384 stb >$3380 sta >$3384 lda >$3382 ldb >$3386 stb >$3382 sta >$3386 bra L31A6 L31C8 sta >$3388 clr >$3CE2 lda >$3382 suba >$3386 bcc L31D9 inc >$3CE2 L31D9 sta >$3389 clr >$3381 clr >$3385 clr >$3383 clr >$3387 lda >$3384 sta >$338A lda >$3386 sta >$338B L31F4 ldb >$3386 lbsr L2189 pshs u ldb >$3386 lbsr L2180 ldb >$3384 lda >$3CD7 sta b,u puls u sta b,u L320E clra ldb >$3389 tst >$3CE2 beq L3218 deca L3218 addd >$3386 std >$3386 clra ldb >$3388 addd >$3384 std >$3384 cmpa >$338A bne L3235 ldb >$3386 cmpb >$338B beq L320E L3235 cmpa >$3380 bcs L31F4 lda >$3386 cmpa >$3382 bne L31F4 rts L3243 lda ,x+ bpl L3254 anda #$7F leay -$01,y ldb ,x+ L324D stb ,u+ deca bne L324D bra L325D L3254 ldb ,x+ stb ,u+ leay -$01,y deca bne L3254 L325D leay -$01,y bne L3243 rts L3262 tfr x,d stb >$3465 lda $0F,x beq L32AC lda <$13,x bne L32AC lda >$00CE,x beq L32AC lda >$3463 bpl L32AC lda >$39B1,x cmpa #$A0 bcc L32AC lda >$39AD,x cmpa #$58 bcs L32AC cmpa #$A8 bcc L32AC ldb >$39B5,x lslb ldu #$1082 ldu b,u suba #$40 lsla tfr a,b clra lda d,u adda #$50 cmpa >$39B1,x bcc L32AC orcc #Carry rts L32AC andcc #^Carry rts L32AF tfr x,d lslb ldu #$39A5 lda b,u cmpa #$03 bcc L32CA lda >$00C6,x cmpa #$40 bcs L32CA cmpa #$C0 bcc L32CA orcc #Carry rts L32CA andcc #^Carry rts L32CD sta >$3464 clr >$3463 tfr x,d stb >$33D9 lda >$0FA1,x sta >$39A0 lda >$39AD,x sta >$3466 lda >$39B1,x sta >$3477 lda >$3464 beq L3308 lbsr L36AB anda #$1F adda #$71 sta >$3476 lbsr L36AB anda #$1F adda #$71 sta >$3487 bra L332C L3308 lbsr L36AB anda #$7F adda #$40 cmpa #$68 bcs L3317 cmpa #$98 bcs L3308 L3317 sta >$3476 L331A lbsr L36AB anda #$7F adda #$40 cmpa #$68 bcs L3329 cmpa #$98 bcs L331A L3329 sta >$3487 L332C clrb pshs u,y,x ldu #$06D5 ldx #$3466 ldy #$3477 stu ,--s L333B lda b,u stb $01,s incb lda a,x sta ,s lda b,u incb lda a,x adda ,s rora ldb b,u sta b,x ldb $01,s lda b,u incb lda a,y sta ,s lda b,u incb lda a,y adda ,s rora ldb b,u sta b,y ldb $01,s addb #$03 cmpb #$2D bne L333B ldd ,s++ puls u,y,x rts L3372 lda >$3463 bmi L337A inc >$3463 L337A rts L337B ldb >$3463 bmi L33B1 lsrb ldx #$3466 lda b,x sta >$34B0 ldy #$3477 lda b,y sta >$34B1 ldu #$0FA4 lda b,u sta >$34AF lda >$3463 cmpa #$22 bmi L33B2 lda #$FF sta >$3463 lbsr L21F1 lda >$3464 beq L33B1 lbsr L2576 L33B1 rts L33B2 ldb >$34B0 lsrb andb #$01 clra tfr d,x clra ldb >$39A0 tfr d,y lda >$34AF bsr L33C9 lbra L2193 L33C9 pshs y bne L33D3 leau >L3444,pcr bra L33E0 L33D3 deca bne L33DC leau >L3435,pcr bra L33E0 L33DC leau >L3426,pcr L33E0 lda #$FF sta >$3CD7 ldy #$11B8 lda #$03 ldb #$05 lbsr L29E1 puls y lda >$08F3,y sta <u007F ldy #$11F4 ldx #$11B8 ldu #$0FB6 ldb #$0A pshs b L3406 lbsr L36AB anda #$0F lda a,u sta <u0082 ldb #$06 L3411 lda ,x anda <u0082 sta ,y anda <u007F sta ,x+ com ,y+ decb bne L3411 dec ,s bne L3406 puls pc,b L3426 fcb $00,$00 jd&b5... L3428 fcb $FF,$00,$FF,$FF,$0F,$FF,$FF,$FF ........ L3430 fcb $FF,$FF,$FF,$FF,$FF L3435 fcb $00,$00,$00 ........ L3438 fcb $00,$00,$00,$00,$00,$FF,$00,$0F ........ L3440 fcb $FF,$00,$FF,$FF L3444 fcb $00,$00,$00,$00 ........ L3448 fcb $00,$00,$00,$00,$00,$00,$00,$0F ........ L3450 fcb $00,$0F,$FF L3453 fcb $B6,$36,$71,$27,$1D ...66q'. L3458 fcb $7F,$36,$72,$10,$8E,$0E,$EA,$8E ^?6r...j. L3460 fcb $11,$50,$C6,$05 L3464 lda b,y lda a,x cmpa #$3F bhi L3476 anda #$0F cmpa #$03 bhi L3476 decb bpl L3464 L3475 rts L3476 ldx #$000F ldy #$00CE ldb #$03 L347F lda b,x bne L3485 sta b,y L3485 decb bpl L347F ldx #$344A ldy #$344C clrb L3490 lda b,y cmpa >$3441 bhi L34C3 ldu #$3450 adda b,u cmpa >$3441 bls L34C3 lda b,x ldu #$344E adda b,u suba #$30 cmpa >$3440 bls L34C3 lda b,x suba b,u suba #$30 cmpa >$3440 bhi L34C3 tfr b,a inca adda >$3672 sta >$3672 L34C3 incb cmpb #$02 bne L3490 clr >$3671 lda >$3672 beq L352C cmpa #$03 beq L34FC dec >$3672 ldx #$00CE ldy #$0013 ldu #$03FF ldb #$03 L34E3 lda b,x beq L34F8 lda b,y bne L34F8 lda b,u cmpa >$3672 bne L34F8 clra tfr d,x lbra L1EC6 L34F8 decb bpl L34E3 rts L34FC ldx #$00CE ldy #$0013 ldu #$00CA ldb #$03 clr >$366F L350B lda b,x beq L3520 lda b,y bne L3520 lda b,u cmpa >$366F bcs L3520 sta >$366F stb >$3670 L3520 decb bpl L350B clra ldb >$3670 tfr d,x lbsr L1EC6 L352C rts L352D lda #$60 sta >$036F ldu #$0C86 L3535 ldb #$27 ldy #$039F L353B lda b,u beq L355C sta b,y decb bpl L353B ldd #$039A pshs u lbsr L36E4 ldy #$001E lbsr L4840 lbsr L484C puls u leau u0001,u bra L3535 L355C lda #$30 sta >$036F rts L3562 ldu #$0343 ldy ,u ldx #$0F00 ldd #$FFFF L356E std ,y++ leax -$01,x bne L356E rts L3575 lda #$FF sta >$34BF cmpx #$0002 bcs L3582 clr >$34BF L3582 ldb >$399C,x ldy #$08F3 rts L358B lda #$EE bra L3591 L358F lda #$FF L3591 pshs b sta >$3CE2 lbsr L35D4 lbsr L36E6 ldb ,s lbsr L35FF lbsr L36E6 puls pc,b L35A6 pshs x lda >$090C,x sta >$03CB lda >$0918,x sta >$03CC ldd #$03C8 lbsr L36E4 ldx ,s lda >$0912,x sta >$03CB lda >$0918,x sta >$03CC ldd #$03C8 lbsr L36E4 puls pc,x L35D4 pshs u,b ldu #$322D lda b,u sta <u008F ldu #$3239 ldb b,u clra tfr d,y ldb ,s ldu #$090C lda b,u sta >$0F7B ldu #$0918 lda b,u sta >$0F7C leau >L4C56,pcr stu <u008B bra L3625 L35FF pshs u,b ldu #$3233 ldb b,u stb <u008F andb #$07 clra tfr d,y leau >L5917,pcr stu <u008B ldb ,s ldu #$0912 lda b,u sta >$0F7B ldu #$0918 lda b,u sta >$0F7C L3625 puls u,b L3627 pshs u,y,x,b lda >$08F3,y sta <u0090 ldb <u008F lslb lslb lslb clra addd <u008B tfr d,y ldu #$348A ldb #$1F L363E clr b,u decb bpl L363E lda #$F0 sta >$3CD7 ldx #$0008 L364B lda ,y+ sta >$3489 clrb L3651 lsr >$3489 bcc L365F lsrb lda b,u ora >$3CD7 sta b,u rolb L365F com >$3CD7 incb cmpb #$04 bne L3651 leau <u0010,u clrb L366B lsr >$3489 bcc L3679 lsrb lda b,u ora >$3CD7 sta b,u rolb L3679 com >$3CD7 incb cmpb #$04 bne L366B leau -u000E,u leax -$01,x lbne L364B ldy #$348A ldb #$1F L368F lda b,y pshs a anda <u0090 sta b,y puls a coma anda >$3CE2 ora b,y sta b,y decb bpl L368F ldd #$0F78 std <u00A5 puls pc,u,y,x,b L36AB pshs y,b clra ldb >$34AA tfr d,y inc >$34AA lda >$050A,y puls pc,y,b L36BC adda >$34AE sta >$34AE bcc L36C8 lda #$01 bra L36C9 L36C8 rts L36C9 pshs a adda >$33F6 sta >$33F6 puls a adca >$32CF sta >$32CF bcc L36E3 inc >$32D0 bne L36E3 inc >$32D1 L36E3 rts L36E4 std <u00A5 L36E6 ldy <u00A5 ldx #$007F ldb #$04 lbsr L37F5 sty <u00A5 L36F4 lda <u0082 sta <u0084 lda <u0081 sta <u0086 L36FC lda <u0083 sta <u0085 inc >$34C3 ldu <u00A5 lda ,u beq L3752 clrb ldy #$0924 L370E cmpa b,y beq L3715 incb bne L370E L3715 lda <u0084 bmi L3739 cmpa #$4F bhi L3739 lda #$10 mul addd <u007F tfr d,y ldb <u0085 lbsr L218E lda <u0084 leau a,u ldb #$08 L372F ldx ,y++ stx ,u leau <u0050,u decb bne L372F L3739 inc <u00A6 bne L373F inc <u00A5 L373F inc <u0084 inc <u0084 dec <u0086 lbne L36FC lda <u0083 suba #$08 sta <u0083 lbra L36F4 L3752 lda #$10 ldb >$34C3 mul sta <u007F lbsr L36C9 lda <u007F lbra L36BC L3762 clr >$3CE2 ldy <u00A5 leay $03,y ldd ,y++ sta >$34C4 stb >$34C5 L3772 lda ,y+ bne L3777 rts L3777 sty >$336F cmpa #$20 beq L37E6 ldu #$094D ldb #$FF L3784 incb cmpa ,u+ bne L3784 cmpb #$09 bhi L3798 bne L3791 ldb #$06 L3791 stb <u008F ldd #$1A20 bra L379F L3798 subb #$0A stb <u008F ldd #$1AB0 L379F std <u008B lsl <u008F ldy #$0005 lda <u008F pshs a lbsr L3627 ldy #$348A ldx #$19E0 ldb #$1F lbsr L37F5 puls a inca sta <u008F ldy #$0005 lbsr L3627 ldy #$348A ldx #$1A00 ldb #$1F lbsr L37F5 lda >$34C4 sta >$0F83 lda >$34C5 sta >$0F84 ldd #$0F80 std <u00A5 lbsr L36E6 L37E6 lda >$34C4 adda #$04 sta >$34C4 ldy >$336F lbra L3772 L37F5 lda ,y+ sta ,x+ decb bpl L37F5 rts L37FD ldd #$FFFF std <u0081 lda >$1F6B sta <u007F L3807 ldb <u007F cmpb <u00FB bne L3811 lda <u0015 bne L386B L3811 ldy #$345B lda b,y beq L386B clr <u00F2 clr <u00F4 ldy #$1F6C lda b,y sta <u00F1 ldy #$1F74 lda b,y sta <u00F3 lbsr L1377 ldb <u007F lda <u0033 ldy #$34D6 sta b,y lda <u0035 ldy #$34CE sta b,y sta <u0097 lda <u0034 ldy #$34C6 sta b,y sta >$3CE0 cmpa <u0081 bcs L385B bne L386B lda <u0097 cmpa <u0082 bhi L386B L385B lda >$3CE0 stb <u0083 sta <u0081 lda <u0097 sta <u0082 lda <u0033 sta >$34DE L386B dec <u007F bpl L3807 lda <u0015 bne L3877 lda <u0083 sta <u00FB L3877 ldb <u00FB ldy #$1F94 lda b,y anda #$0F ldx >$0376 lda a,x ldb #$09 lbsr L010A ldd <u0081 std >$39A9 lda >$34DE sta <u00C8 lda #$4E lbra L36BC L389A lda #$03 sta <u00A4 L389E ldb <u00A4 ldy #$0013 lda b,y beq L38F5 cmpa #$28 bne L38C3 cmpb #$02 bne L38C0 lda <u00FB sta >$338F dec >$34DF bne L38BD lbsr L197F L38BD lbsr L37FD L38C0 lbsr L39CE L38C3 ldb <u00A4 ldy #$0013 dec b,y beq L38FA ldy #$00CA lda b,y lsra lsra lsra lsra ldy #$10E0 cmpa #$0F bls L38E1 lda #$0F L38E1 ldb a,y lbsr L3941 ldb <u00A4 ldy #$0013 lda b,y cmpa #$1E bcs L38F5 lbsr L3A2C L38F5 dec <u00A4 bpl L389E rts L38FA ldy #$03FF pshs b ldb b,y lda #$FF ldy #$108E sta b,y ldb ,s+ bne L3914 lda <u0010 lbne L3A5E L3914 cmpb #$02 bne L3926 lda >$338F ldy #$345B clr a,y lbsr L37FD bra L3932 L3926 cmpb #$03 bne L3932 lda #$FF sta >$34AD sta >$32D5 L3932 ldb <u00A4 cmpb #$03 lbeq L3CCD ldy #$000F clr b,y rts L3941 stb <u007F bne L3947 inc <u007F L3947 ldb <u00A4 ldy #$03FF lda #$1F sta <u0087 ldb #$3F L3953 lbsr L396A ldy #$3620 lda b,y adda #$06 bcc L3962 lda #$FF L3962 sta b,y decb cmpb <u0087 bne L3953 rts L396A stb <u0098 clra ldu #$35E0 ldb b,u andb #$7F lda <u007F mul std <u0083 ldb <u0098 ldy #$34E0 leay b,y leay b,y tst b,u bmi L398F ldd <u0083 addd ,y std ,y bra L3995 L398F ldd ,y subd <u0083 std ,y L3995 ldb <u0098 clra ldu #$3620 ldb b,u andb #$7F lda <u007F lsla lsla mul std <u0083 ldb <u0098 ldy #$3560 leay b,y leay b,y tst b,u bmi L39BC ldd <u0083 addd ,y std ,y bra L39C2 L39BC ldd ,y subd <u0083 std ,y L39C2 ldb <u0098 rts L39C5 lbsr L3575 lda #$28 sta <$13,x rts L39CE ldb <u00A4 ldy #$00CA ldb b,y lsrb lsrb cmpb #$0F bls L39DE ldb #$0F L39DE ldy #$10D0 lda b,y sta <u008F lsra sta <u0090 ldb <u00A4 ldy #$03FF ldb b,y lda #$1F sta <u0087 ldb #$3F ldx #$3560 L39FA pshs b lslb lbsr L36AB anda <u008F sbca <u0090 ldu #$34E0 sta b,u lbsr L36AB anda <u008F sbca <u0090 sta b,x puls b lbsr L36AB ldu #$35E0 sta b,u lbsr L36AB anda #$7F ldu #$3620 sta b,u decb cmpb <u0087 bne L39FA rts L3A2C ldb <u00A4 ldu #$2869 ldx #$001F ldy #$03FF lda b,y beq L3A3F ldu #$2CA5 L3A3F pshs u lbsr L36AB tfr a,b clra leau d,u clr ,u clr >u0100,u clr >u0200,u clr >u02EC,u puls u leax -$01,x bne L3A3F rts L3A5E pshs b lda >$39A2 sta >$39A1 ldd <u00D8 std <u00D6 ldd <u00E0 std <u00DE lda >$39AE sta >$39AD lda >$39B2 sta >$39B1 ldd >$39BB std >$39B9 lda >$39C2 sta >$39C1 lda <u00C3 sta <u00C2 ldd >$39C7 std >$39C5 ldd >$39CF std >$39CD lda >$39D6 sta >$39D5 lda >$399D sta >$399C lda >$39E4 sta >$39E3 lda >$39E8 sta >$39E7 lda >$39EC sta >$39EB lda <u0014 sta <u0013 lda >$33E2 sta >$33E1 lda >$33D4 sta >$33D3 lda >$33DB sta >$33DA lda >$33FF sta >$33FE lda #$FF sta >$108E clr <u0010 lda #$01 sta <u000F lda <u00CF bne L3AEE lbsr L41AC clr <u0084 clr <u0086 ldd <u0083 std <u00D6 ldd <u0085 std <u00DE L3AEE puls b rts L3AF1 ldb <u00A4 ldu #$0013 lda b,u bne L3AFB rts L3AFB ldx #$00CE lda b,x sta <u0082 ldy #$00D2 lda b,y cmpb #$02 bne L3B10 adda #$28 suba b,u L3B10 sta <u0081 ldu #$39B5 ldb b,u lslb ldu #$1082 ldd b,u std <u007F ldb <u00A4 ldu #$03FF ldb b,u lda #$1F sta <u0087 lda #$3F sta <u0092 L3B2E ldb <u0092 lslb ldx #$34E0 abx lda ,x adda <u0082 sta <u008F ldx #$3560 abx lda ,x adda <u0081 bcs L3B6F suba #$50 bcs L3B6F ldb <u008F ldx <u007F abx cmpa ,x bcs L3B6F cmpa #$5F bcc L3B6F ldb <u008F subb #$58 bcs L3B6F cmpb #$50 bcc L3B6F pshs b tfr a,b lbsr L2189 puls b leau b,u lda #$CC sta ,u L3B6F dec <u0092 lda <u0092 cmpa <u0087 bhi L3B2E rts L3B78 lda <u0016 bne L3B92 lda <u0012 beq L3B92 lda <u00C5 cmpa #$01 bne L3B93 lda #$06 adda >$39EA sta >$39EA bne L3B92 inc <u00C5 L3B92 rts L3B93 cmpa #$02 bne L3BB0 lda <u0015 beq L3BA5 lda #$01 sta >$39A4 lda #$06 sta <u00C5 rts L3BA5 ldd <u00DA std <u00F1 ldd <u00E2 std <u00F3 lbra L3CD0 L3BB0 cmpa #$03 bne L3BE9 lda #$FB adda >$39EA sta >$39EA lda <u0015 beq L3BC8 inc <u00C5 lda #$02 sta >$39C4 rts L3BC8 lda <u00CC cmpa #$22 bcs L3BD0 lda #$22 L3BD0 lsra adda <u00D4 sta <u008F lda <u00D5 cmpa <u008F bcc L3BE8 lda >$3662 beq L3BE6 lda #$01 sta >$3663 rts L3BE6 inc <u00C5 L3BE8 rts L3BE9 cmpa #$04 bne L3C5E dec >$39C4 bne L3C5D ldb <u00FB ldx #$1F8C lda b,x cmpa #$F1 bne L3C0C ldx #$0003 lbsr L39C5 lda >$34AC beq L3C0B lbsr L3E12 L3C0B rts L3C0C cmpa #$F2 bne L3C31 lda >$34AC beq L3C2B inc >$32FA clr >$3326 clr <u00A9 clr >$3414 lda #$FF sta >$3666 ldx #$0002 lbsr L39C5 L3C2B ldx #$0003 lbra L39C5 L3C31 lda >$34AC beq L3C3F lbsr L3E12 ldx #$0003 lbra L39C5 L3C3F lda #$01 lbsr L5A4C lda #$01 sta >$39A4 inc <u00C5 lda <u0015 bne L3C5D lda >$3665 sta >$32D5 inc >$3660 lda #$12 sta >$3661 L3C5D rts L3C5E cmpa #$05 bne L3C6F lda #$05 adda >$39EA sta >$39EA bne L3C6E inc <u00C5 L3C6E rts L3C6F cmpa #$06 bne L3C97 lda #$37 sta <u00A9 lda <u00A7 sta >$3667 lda <u00C9 sta <u00A7 lbsr L14BE lda >$3667 sta <u00A7 ldd <u00AA addd <u00AE std <u00F1 ldd <u00AC addd <u00B0 std <u00F3 lbra L3CD0 L3C97 cmpa #$07 bne L3CAA lda #$FA adda >$39EA sta >$39EA cmpa #$A6 bne L3CA9 inc <u00C5 L3CA9 rts L3CAA cmpa #$08 bne L3CCF lda >$3660 beq L3CCD lda #$01 sta <u00EB sta <u00E9 lda #$FF sta <u00EA lda #$02 sta <u00EF lda <u00F5 bmi L3CC9 cmpa #$05 bhi L3CCD L3CC9 lda #$05 sta <u00F5 L3CCD clr <u0012 L3CCF rts L3CD0 lda >$3660 cmpa #$01 bne L3CDD inc >$3660 lbsr L3DC1 L3CDD ldd <u00BE pshs b,a ldd <u00C0 pshs b,a ldd <u00DC std <u00BE ldd <u00E4 std <u00C0 lbsr L1377 puls b,a std <u00C0 puls b,a std <u00BE lda #$30 sta <u00A9 lda <u0034 bne L3D14 lda <u0035 cmpa <u00A9 bcc L3D14 sta <u00A9 lda >$3662 beq L3D12 lda #$0F sta >$39A3 L3D12 inc <u00C5 L3D14 lda <u00A7 sta >$3667 lda <u0033 sta <u00A7 lbsr L14BE lda >$3667 sta <u00A7 ldd <u00DC addd <u00AA std <u00DC ldd <u00E4 addd <u00AC std <u00E4 rts L3D32 clrb lda <u00FB sta >$3665 ldy #$1F8C lda a,y cmpa #$F0 bne L3D43 incb L3D43 stb >$3662 clr >$3663 lda #$08 sta >$39C4 lda #$37 sta <u00A9 lda <u00A7 sta >$3667 lda <u00C8 sta <u00A7 lbsr L14BE lda >$3667 sta <u00A7 ldd <u00AA addd <u00AE std <u00DC ldd <u00AC addd <u00B0 std <u00E4 lda #$01 sta <u0012 sta <u00C5 clr >$39A4 clr >$3660 lda #$A6 sta >$39EA lda <u00F5 bpl L3D88 lda #$04 sta <u00F5 L3D88 rts L3D89 lda <u000F beq L3D93 lda <u0013 cmpa #$1D bcc L3DBE L3D93 lda <u0010 beq L3D9D lda <u0014 cmpa #$1D bcc L3DBE L3D9D lda <u0012 bne L3DBE lda <u0011 beq L3DBE lda <u0015 bne L3DBE lda >$39A9 cmpa #$03 bcc L3DBE lda >$34B2 suba <u00C8 adda #$14 cmpa #$28 bcc L3DBE orcc #Carry rts L3DBE andcc #^Carry rts L3DC1 ldy #$0006 L3DC5 lda >$3457 lsla lsla lsla lsla ora >$3457 sta >$2888,y sta >$28A0,y sta >$28B8,y sta >$28D0,y sta >$28E8,y sta >$2900,y lda #$EE sta >$2918,y leay -$01,y bne L3DC5 rts L3DF2 lda <u0011 beq L3E11 lda <u0015 beq L3DFF lda #$FF sta >$3661 L3DFF lda >$3661 bmi L3E11 dec >$3661 bne L3E11 lda #$FF sta >$3661 lbsr L3E12 L3E11 rts L3E12 pshs y,b,a ldb >$3665 cmpb <u00FB bne L3E22 lda #$FF sta >$33C8 bra L3E28 L3E22 ldy #$345B clr b,y L3E28 puls y,b,a rts L3E2B lda <u0015 bne L3E68 lda >$3663 beq L3E68 lbsr L3CCD lda #$FF sta >$34AD ldb >$3662 ldy #$1100 lda b,y sta >$39A3 cmpa #$0C beq L3E52 suba #$0D adda #$07 bra L3E53 L3E52 clra L3E53 sta >$3664 inc >$3662 cmpb #$11 bne L3E68 clr >$3663 lda >$34AC beq L3E68 lbsr L3E12 L3E68 rts L3E69 clra ldb <u00A4 lslb tfr d,x stb <u008F ldy >$00D6,x sty <u0083 ldy >$00DE,x sty <u0085 ldy >$39B9,x sty <u00A2 ldb >$39C5,x stb >$0F8E ldb >$39CD,x stb >$0F8F ldb <u00A4 tfr d,x lda >$39C1,x sta >$0F8A lda >$00C2,x sta >$0F8B lda >$39D5,x sta >$0F8C lda >$39F7,x sta <u0033 lda >$33DD,x sta >$335F lbsr L4EBE tst <$13,x beq L3F05 lda <u0033 adda #$83 sbca >$00C6,x cmpa #$06 bcc L3EF6 pshs x tfr x,d lslb tfr d,x ldy >$39EF,x sty <u00AA ldy >$39F3,x sty <u00AC ldd <u0083 addd <u00AA std <u0083 ldd <u0085 addd <u00AC std <u0085 puls x L3EF6 lbsr L4081 bcc L3F02 ldd #$0000 std <u00AA std <u00AC L3F02 lbra L4023 L3F05 lda >$39EB,x beq L3F1E adda >$39E7,x sta >$39E7,x beq L3F1A cmpa #$3C beq L3F1A rts L3F1A clr >$39EB,x L3F1E dec >$0F8A bne L3F4E ldb >$0F8B L3F26 ldu <u00A2 clra leau d,u lda ,u+ sta >$0F8E lda ,u+ sta >$0F8F lda ,u+ bpl L3F42 anda #$7F tfr a,b stb >$0F8B bra L3F26 L3F42 sta >$0F8A lda >$0F8B adda >$0F8C sta >$0F8B L3F4E lda >$0F8E cmpa #$80 lbeq L4023 lda >$0F8E sta <u0087 lda >$0F8F sta <u0088 lda <u00A7 cmpa #$20 bls L3F99 cmpa #$60 bcc L3F78 lda >$0F8F sta <u0087 lda >$0F8E nega sta <u0088 bra L3F99 L3F78 cmpa #$A0 bcc L3F8A lda >$0F8E nega sta <u0087 lda >$0F8F nega sta <u0088 bra L3F99 L3F8A cmpa #$E0 bcc L3F99 lda >$0F8E sta <u0088 lda >$0F8F nega sta <u0087 L3F99 lda <u00AF sta <u00F2 lda <u0087 adda <u00AE sta <u00F1 lda <u00B1 sta <u00F4 lda <u0088 adda <u00B0 sta <u00F3 ldd <u00BE pshs b,a ldd <u00C0 pshs b,a ldd <u0083 std <u00BE ldd <u0085 std <u00C0 lbsr L1377 puls b,a std <u00C0 puls b,a std <u00BE lda >$335F sta <u00A9 lda <u0034 bne L3FDD lda <u0035 cmpa <u00A9 bcc L3FDD ldb >$0F8B lbra L3F26 L3FDD lda <u00A7 sta >$3667 lda <u0033 sta <u00A7 lbsr L14BE lda >$3667 sta <u00A7 ldd <u0083 addd <u00AA std <u0083 ldd <u0085 addd <u00AC std <u0085 lbsr L4081 bcc L4011 ldb <u00A4 ldu #$39E7 lda b,u bne L4023 lda #$03 ldu #$39EB sta b,u bra L4023 L4011 ldb <u00A4 ldu #$39E7 lda b,u cmpa #$3C bne L4023 lda #$FD ldu #$39EB sta b,u L4023 clra ldb <u00A4 lslb stb <u008F tfr d,x ldy <u0083 sty >$00D6,x ldy <u0085 sty >$00DE,x ldy <u00A2 sty >$39B9,x ldy <u00AA sty >$39EF,x ldy <u00AC sty >$39F3,x ldb >$0F8E stb >$39C5,x ldb >$0F8F stb >$39CD,x ldb <u00A4 tfr d,x lda >$0F8A sta >$39C1,x lda >$0F8B sta >$00C2,x lda >$0F8C sta >$39D5,x lda <u0033 sta >$39F7,x rts L4081 lda #$03 sta <u0091 L4085 ldu #$1FA4 stu <u0089 ldb <u0091 lda <u0086 leau >L4140,pcr adda b,u lda <u0085 adca #$00 sta <u0090 lda <u0084 leau >L413C,pcr adda b,u ldb <u0083 adcb #$00 stb <u008F andb #$07 pshs b clra ldb <u008F andb #$3F lsrb lsrb lsrb addd <u0089 std <u0089 lda #$08 ldb <u0090 mul addd <u0089 tfr d,u lda ,u leax >L4110,pcr puls b anda b,x beq L40D0 orcc #Carry rts L40D0 dec <u0091 bpl L4085 ldb <u00A4 cmpb #$01 bne L410D lda <u0083 suba #$07 sta <u008F lda <u0085 suba #$07 sta <u0090 ldb >$1F6B ldu #$345B ldx #$1F6C ldy #$1F74 L40F3 lda b,u beq L410A lda b,x suba <u008F cmpa #$0E bcc L410A lda b,y suba <u0090 cmpa #$0E bcc L410A orcc #Carry rts L410A decb bpl L40F3 L410D andcc #^Carry rts L4110 fcb $80,$40,$20,$10,$08,$04,$02,$01 L4118 clra tfr d,x lda #$01 sta >$39C1,x clr >$00C2,x lda #$03 sta >$39D5,x clra lslb tfr d,x tfr y,d lslb ldu #$0FD6 ldd b,u std >$39B9,x rts L413C fcb $E0,$20,$E0,$20 L4140 fcb $20,$20,$E0,$E0 L4144 sta >$366A tfr x,d stb <u00A4 tfr y,d stb >$399C,x lda <u008F sta >$39A1,x lda <u0090 sta >$0FA1,x lda #$FF sta >$108E,x clr $0F,x clr <u0084 clr <u0086 bsr L41AC lda #$01 sta $0F,x clra ldb >$366A tfr d,y ldb <u00A4 lbsr L4118 ldb <u00A4 clra lslb tfr d,x ldy <u0083 sty >$00D6,x ldy <u0085 sty >$00DE,x ldb <u00A4 tfr d,x clr >$00CE,x clr <$13,x lda #$3C sta >$39E7,x clr >$39EB,x lda #$0A sta >$39E3,x rts L41AC lbsr L36AB anda #$03 adca <u00AE suba #$02 cmpa #$40 bcs L41AC cmpa #$80 bcc L41AC sta <u0083 L41BF lbsr L36AB anda #$03 adca <u00B0 suba #$02 cmpa #$01 bcs L41BF cmpa #$2E bcc L41BF sta <u0085 rts L41D3 fcb $02,$03,$04,$05,$06 ..9..... L41D8 fcb $07,$02,$03 L41DB fcb $B6,$36,$6E,$81,$01 ...66n.. L41E0 fcb $26,$04,$7C,$36,$6E,$39 L41E6 cmpa #$02 lbne L4240 clr >$336B inc <u00A7 lda >$3412 cmpa #$08 bcc L41FB inc >$3412 L41FB adda >$3411 sta >$3411 cmpa #$F0 lbcs L423F lda <u0015 beq L4218 ldb >$3665 ldy #$345B clr b,y clr <u0015 clr <u0011 L4218 clr >$33A3 lbsr L53A9 lda #$FF sta >$33EE lbsr L429B lbsr L20A7 lbsr L56B8 lda >$338C sta <u00ED clr >$366E lda >$3666 beq L423F lbsr L352D clr >$3666 L423F rts L4240 cmpa #$03 bne L4270 ldy >$0374 lbsr L013D inc >$366E lda #$EF sta >$3411 lda #$E1 sta >$3695 lbsr L4950 lbsr L3562 lbsr L0395 lda >$32D2 cmpa >$32D3 beq L426C lbsr L4974 L426C lbsr L0577 rts L4270 cmpa #$04 bne L429A clr >$33EE lbsr L17C4 lda >$330B cmpa >$3411 bcs L4287 clr >$366E bra L429A L4287 lda >$3411 lsra lsra lsra lsra sta <u008F inc <u008F lda >$3411 suba <u008F sta >$3411 L429A rts L429B lbsr L3562 lbsr L0395 L42A1 leax >L42F5,pcr ldu #$4008 lda #$01 lbsr L4A6C ldy >$0372 lbsr L013D lbsr L0395 lbsr L4912 leax >L42FB,pcr ldu #$4008 ldy #$15BE clra lbsr L4A6C leax >L4305,pcr ldu #$3CE4 ldy #$00E8 clra lbsr L4A6C lda #$FF sta >$3371 sta >$3372 sta >$3373 ldd #$0890 std >$3374 ldd #$08CA std >$3376 lbsr L4632 lbra L4694 L42F5 fcc /ULTEK/ fcb C$CR L42FB fcc /ROBOTBUFF/ fcb C$CR L4305 fcc /SINWAVE/ fcb C$CR L430D fcb $B6,$34,$AB,$27,$10,$81,$01,$26,$05,$17,$08,$A3,$20,$07 L431B cmpa #$02 bne L4322 lbsr L4BE0 L4322 lda >$34B6 beq L4328 rts L4328 lda >$33BC beq L4374 sta >$33BD bmi L435D lda >$33B6 beq L433D clr >$33B6 lbsr L43A5 L433D lda >$33BC cmpa #$03 bcc L4348 ldb #$FF bra L4352 L4348 cmpa #$05 bcc L4350 ldb #$00 bra L4352 L4350 ldb #$FF L4352 stb >$33BA lbsr L44BA clr >$33BC bra L4372 L435D anda #$7F sta >$33BC lda >$33BA beq L4372 lda >$33BC adda #$02 lbsr L44BA clr >$33BA L4372 bra L43A4 L4374 lda >$33B7 beq L4391 clr >$33B7 ldb <u00ED lbsr L5243 dec >$32D4 lda >$32D4 beq L4391 cmpa >$32CD bne L4391 dec >$32CD L4391 lda >$33BB beq L43A1 clr >$33BB lda #$0A sta <u00E9 lda #$FF sta <u00EA L43A1 clr >$33BD L43A4 rts L43A5 lbsr L4457 addb #$0C ldx #$30E5 abx lda ,x+ sta >$34B7 lda ,x+ sta >$34B8 anda #$07 sta >$34BD lda ,x sta >$34BC rts lbsr L247B lbcs L2304 lda #$05 sta >$33BC lbsr L4457 addb #$0F ldu #$30E5 clra lda d,u ldy #$000C lbsr L4416 ldb >$32CD ldx #$32C5 abx ldb ,x lslb lslb lslb lslb lslb addb #$10 clra lda d,u ldy #$0017 lbsr L4416 lbsr L4457 addb #$12 clra lda d,u suba >$32D2 bcc L4409 clra L4409 ldy #$0022 lbsr L4416 lda #$FF sta >$33BB rts L4416 pshs u,y,x pshs a leay >$0B15,y cmpa #$FD bcs L4433 lda >$0925 sta ,y lda >$0924 ldb >$0924 std $01,y puls a bra L4455 L4433 ldx #$0924 ldu #$10F0 ldb ,s lda #$20 sta ,y cmpb #$10 bcs L444B lsrb lsrb lsrb lsrb ldb b,u lda b,x L444B puls b andb #$0F ldb b,u ldb b,x std $01,y L4455 puls pc,u,y,x L4457 ldb >$32CD ldy #$32C5 clra lda d,y ldb #$20 mul rts L4465 lbsr L450D lda >$34B6 bne L446E rts L446E cmpa #$05 beq L44AF tst >$34C0 beq L447B dec >$34C0 rts L447B tfr a,b leay >L44B5,pcr lda b,y sta >$366B leay >L44B0,pcr lda b,y adda >$34B9 sta >$34B9 lbsr L4581 lda >$34B9 cmpa >$366B bne L44AF cmpa #$23 bne L44A6 lbsr L4581 bra L44A9 L44A6 lbsr L45B4 L44A9 lbsr L4632 clr >$34B6 L44AF rts L44B0 fcb $00,$02,$FE,$02,$FE L44B5 fcb $00,$23,$23 ......## L44B8 fcb $4F,$FB L44BA fcb $B7,$34,$B6,$34,$02,$48 O.7464.H L44C0 fcb $10,$8E,$08,$78,$AE,$A6,$BF,$33 ...x.&?3 L44C8 fcb $74,$10,$8E,$08,$84,$AE,$A6,$BF t.....&? L44D0 fcb $33,$76,$35,$02,$81,$05,$26,$0E 3v5...&. L44D8 fcb $B6,$34,$B9,$81,$23,$26,$03,$17 649.#&.. L44E0 fcb $03,$0B L44E2 clr >$34B6 rts L44E6 bcc L4507 tfr a,b leay >L4508,pcr lda b,y sta >$34B9 leay >L44B0,pcr lda b,y lbsr L4694 lbsr L4533 lda #$20 sta >$34C0 clr >$03F5 L4507 rts L4508 fcb $00,$FB,$4F,$23,$23 L450D lda >$3379 bne L452C lda #$3A sta >$3379 lda >$366C anda #$03 lsla ldy #$3CE4 ldd a,y addd #$3CE4 lbsr L45C6 inc >$366C L452C clr >$3378 dec >$3379 rts L4533 lda #$EE sta >$3CE2 lda >$34B7 sta <u008F clra ldb >$34BC tfr d,y leax >L4C56,pcr stx <u008B lbsr L3627 ldy #$348A ldx #$0F1C ldb #$1F L4555 lda b,y sta b,x decb bpl L4555 ldb >$34B8 stb <u008F clra ldb >$34BD tfr d,y leax >L5917,pcr stx <u008B lbsr L3627 ldy #$348A ldx #$0F4C ldb #$1F L4579 lda b,y sta b,x decb bpl L4579 rts L4581 pshs b ldb >$34B9 lsrb lsrb lsrb cmpb #$08 bls L458E clrb L458E addb #$28 lbsr L4634 lbsr L4694 puls b lbsr L45B4 lda >$34B9 sta >$03F5 sta >$03D4 inc >$03D4 ldd #$03D1 std <u00A5 lda #$33 lbsr L45DB lbra L36E6 L45B4 ldx #$0280 ldb #$0F lbsr L2180 ldd #$9999 L45BF std ,u++ leax -$01,x bne L45BF rts L45C6 std <u007F lda #$04 sta <u008F lda #$0E sta <u0090 lda #$40 sta <u0091 lda #$32 sta <u0092 lbra L4789 L45DB sta >$3CD7 ldb >$34B9 cmpb #$50 bcc L4631 ldb #$0E lbsr L2180 ldb >$34B9 leau b,u negb addb #$4F cmpb #$0C bcs L45F8 ldb #$0B L45F8 pshs u,b lda >$3CD7 L45FD sta >u0370,u sta >u0320,u sta <u0050,u sta ,u+ decb bpl L45FD ldu $01,s leau >u00A0,u ldb #$08 L4615 sta ,u leau <u0050,u decb bne L4615 puls u,b cmpb #$0B bne L4631 leau >u00A0,u ldb #$08 L4629 sta u000B,u leau <u0050,u decb bne L4629 L4631 rts L4632 ldb #$2C L4634 cmpb >$3371 bne L4640 ldy #$0005 lbra L4840 L4640 stb >$3371 lslb ldx #$07B6 ldd b,x std <u0085 ldd #$2CA5 std <u0087 clr >$3453 ldd #$020F std >$3454 lda #$0E sta >$3456 lbsr L28F0 ldd #$4836 std <u007F lda #$10 sta <u008F lda #$12 sta <u0090 lda #$20 sta <u0091 lda #$50 sta <u0092 lbsr L4789 ldd #$2CFD std <u007F lda #$0B sta <u008F lda #$08 sta <u0090 lda #$22 sta <u0091 ldb #$47 lbsr L2180 lda #$50 lbra L47AB L4694 clr >$3378 ldx >$3374 ldb ,x+ beq L46AC stx >$3374 cmpb >$3372 beq L46AC inc >$3378 stb >$3372 L46AC ldx >$3376 ldb ,x+ beq L46C1 stx >$3376 cmpb >$3373 beq L46C1 inc >$3378 stb >$3373 L46C1 ldy #$0010 tst >$3378 bne L46D0 lbsr L4840 lbra L4763 L46D0 lbsr L4769 ldb >$3372 lslb ldx #$07B6 ldd b,x std <u0085 ldd #$2CA5 std <u0087 lbsr L477C lbsr L28F0 ldb >$3372 subb #$1C lslb lslb ldy #$0818 leay b,y ldd ,y++ sta <u0091 stb <u0092 ldd ,y sta <u008F stb <u0090 mul addd #$2CA5 std <u007F lda #$37 ldu #$577E lbsr L47AB ldb >$3373 lslb ldx #$07B6 ldd b,x std <u0085 ldd #$2CA5 std <u0087 lbsr L477C lbsr L28F0 ldb >$3373 subb #$10 lslb lslb ldy #$0848 leay b,y ldd ,y++ sta <u0091 stb <u0092 ldd ,y sta <u008F stb <u0090 mul addd #$2CA5 std <u007F ldu #$577E lda #$37 lbsr L47AB ldd #$55C6 std <u007F ldd #$3726 sta <u008F stb <u0090 ldd #$0E38 sta <u0091 stb <u0092 lbsr L4789 L4763 clr >$3379 lbra L450D L4769 ldy #$400A ldu #$55C6 ldx #$0415 L4773 ldd ,y++ std ,u++ leax -$01,x bne L4773 rts L477C ldd #$000E std >$3453 ldd #$0D0F std >$3455 rts L4789 ldy <u007F ldb <u0092 lbsr L2180 ldb <u0091 leau b,u L4795 ldb <u008F decb L4798 lda b,y sta b,u decb bpl L4798 lda <u008F leay a,y leau <u0050,u dec <u0090 bne L4795 rts L47AB pshs a ldy <u007F ldb <u0091 leau b,u L47B4 pshs u ldb <u008F decb L47B9 lda ,-y beq L47DB anda #$F0 beq L47CB pshs a lda ,u anda #$0F ora ,s+ sta ,u L47CB lda ,y anda #$0F beq L47DB pshs a lda ,u anda #$F0 ora ,s+ sta ,u L47DB leau u0001,u decb bpl L47B9 puls u lda ,s leau a,u dec <u0090 bne L47B4 puls a rts L47ED lda #$99 lbsr L45DB lda #$20 sta >$366D L47F7 ldb #$10 subb >$366D bcc L47FF negb L47FF lsrb lsrb negb addb #$30 lbsr L4634 lbsr L4694 ldd #$03DC lbsr L36E4 lbsr L483C lbsr L484C ldd #$03E7 lbsr L36E4 lbsr L483C lbsr L484C ldd #$03DC lbsr L36E4 lbsr L483C lbsr L484C ldd #$03E7 lbsr L36E4 dec >$366D bne L47F7 lbra L4581 L483C ldy #$0001 L4840 ldx #$01F4 L4843 leax -$01,x bne L4843 leay -$01,y bne L4840 rts L484C lda >$3404 lbeq L5A4A rts L4854 ldx #$0000 lda #$FF sta <u008F bsr L486E ldx #$0011 bra L486E L4862 ldx #$0000 lda #$99 sta <u008F bsr L486E ldx #$0011 L486E tfr x,d lbsr L2180 ldx #$0028 lda <u008F ldb <u008F L487A std ,u++ leax -$01,x bne L487A rts L4881 lda >$33ED cmpa #$F0 bne L488E lbsr L18CE lbra L48CE L488E lda #$22 sta <u008B L4892 lda <u008B sta >$34AA ldb #$5F stb <u0089 lbsr L2180 ldy #$050A L48A2 ldb #$4F L48A4 lda >$34AA lda a,y sta ,u+ inc >$34AA tst >$34AA bpl L48B8 lda >$3404 bne L48B8 L48B8 decb bpl L48A4 inc >$34AA inc >$34AA inc >$34AA dec <u0089 bne L48A2 dec <u008B dec <u008B bne L4892 L48CE ldx #$0005 L48D1 lbsr L35A6 leax -$01,x cmpx #$0000 bpl L48D1 lbsr L20A7 lbsr L2088 ldb #$5F lbsr L2180 ldx #$0060 clra L48EA ldb #$4F L48EC sta ,u+ decb bpl L48EC leax -$01,x bne L48EA lbsr L49AD ldd #$0980 std <u00A5 lbsr L3762 ldd #$098F std <u00A5 lbsr L3762 ldb #$08 lbsr L1C91 lda #$00 lbra L5A4C L4912 lda #$FF sta >$33EE lbsr L18CE ldd #$2869 std <u0083 lda #$02 sta <u00EB tst >$34AD beq L492D clr >$34AD lda #$0F L492D sta <u00E9 lda #$03 sta <u00EF lda #$FF sta <u00EA lda >$3410 beq L494B lda #$04 sta <u00EB sta <u00E9 lda #$01 sta >$3396 lda #$80 sta <u00F6 L494B lda #$01 sta <u00F7 rts L4950 lda #$02 ora <u00E7 sta >$33FA sta >$33FB sta >$33FC sta >$33FD sta >$33FE sta >$33FF sta >$39A0 lda #$FF sta >$108E sta >$108F clr <u00F7 rts L4974 sta >$32D3 lbsr L4A25 lbra L063A L497D suba >$32D2 bcc L4983 clra L4983 cmpa #$63 bls L498D suba #$63 bsr L497D lda #$63 L498D adda >$32F8 sta >$32F8 cmpa #$64 bcs L49AC suba #$64 sta >$32F8 inc >$32F9 lda >$32F9 cmpa #$64 bcs L49AC clr >$32F9 inc >$32FA L49AC rts L49AD ldd #$098B std <u007F bsr L49BC ldd #$099A std <u007F bsr L49CB rts L49BC clr <u0081 clr >$098B clr >$098C lda >$32D3 inca bsr L49FA rts L49CB clr <u0081 lda #$20 ldb #$07 ldy <u007F L49D4 sta b,y decb bpl L49D4 lda >$32FA bsr L49FA lda >$32F9 bsr L49FA lda <u0081 beq L49F0 lda #$2C sta ,y leay $01,y sty <u007F L49F0 lda >$32F8 bsr L49FA lda #$30 sta ,y rts L49FA bsr L4A19 pshs b bsr L4A05 puls a bsr L4A05 rts L4A05 tst <u0081 bne L4A0E cmpa #$30 bne L4A0E rts L4A0E inc <u0081 ldy <u007F sta ,y+ sty <u007F rts L4A19 ldb #$2F L4A1B incb suba #$0A bcc L4A1B adda #$3A exg a,b rts L4A25 pshs u,y,x inca cmpa #$0A blt L4A3C cmpa #$14 bne L4A36 ldb #$32 suba #$14 bra L4A3E L4A36 ldb #$31 suba #$0A bra L4A3E L4A3C ldb #$30 L4A3E stb >$037F adda #$30 sta >$0380 ldx #$037A clra ldu #$1E69 ldy #$0A00 lbsr L4A6C ldy #$211C ldu #$07C6 ldx #$0008 L4A5E sty ,u++ ldd ,y++ leay d,y leax -$01,x bne L4A5E puls u,y,x rts L4A6C std <u0095 stu <u0099 lsla leau >L4A80,pcr ldd a,u leau d,u pshs u ldd <u0095 ldu <u0099 rts L4A80 neg <u000A neg <u0026 neg <u0043 neg <u0075 neg <u00EA sty <u0095 stu <u0099 lda #READ. os9 I$Open bcs L4AF5 ldy <u0095 L4A99 ldx <u0099 pshs a os9 I$Read puls a os9 I$Close rts stu <u0099 lda #READ. os9 I$Open bcs L4AF5 pshs a ldx #$0347 ldy #$0002 os9 I$Read puls a ldy >$0347 bra L4A99 sty <u0095 stu <u0099 pshs x os9 I$Delete puls x lda #WRITE. ldb #SHARE.+PWRIT.+PREAD.+UPDAT. os9 I$Create bcs L4AEC sta >$336E ldx <u0099 ldy <u0095 os9 I$Write bcs L4AEC lda >$336E os9 I$Close rts L4AEC lda #$12 sta <u00E9 lda #$FF sta <u00EA rts L4AF5 pshs b ldy #$0000 lda >$0100 ldb #SS.DScrn os9 I$SetStt display screen leay >L0254,pcr lbsr L013D bsr L4B4C lda >$0100 ldb #SS.FScrn ldy >$0101 os9 I$SetStt free screen puls b tstb beq L4B33 pshs b leax >L4BAB,pcr ldy #$0008 lda >$0100 os9 I$Write puls a bsr L4B84 bsr L4B5B L4B33 clra tfr a,dp lds #$00FF leax >Shell,pcr ldy #$0000 ldu #$0000 lda #$11 ldb #$03 os9 F$Chain chain to shell L4B4C leax >L4BB9,pcr ldy #$0001 lda >$0100 os9 I$Write rts L4B5B leax >L4BBA,pcr ldy #$0002 lda >$0100 os9 I$Write rts L4B6A ldd #SS.Ready os9 I$GetStt check for ready from stdin bcs L4B83 ldx #$0095 ldy #$0001 lda >$0100 os9 I$Read lda <u0095 andcc #^Carry L4B83 rts L4B84 pshs a lsra lsra lsra lsra bsr L4B90 puls a anda #$0F L4B90 cmpa #$09 bhi L4B98 ora #$30 bra L4B9A L4B98 adda #$37 L4B9A sta >$0347 ldx #$0347 ldy #$0001 lda >$0100 os9 I$Write rts L4BAB fcc /ERROR # / Shell fcc /SHELL/ fcb C$CR L4BB9 fcb $0C L4BBA fcb C$CR,C$LF L4BBC lda #$02 ldu #$0000 ldy #$037A leax >Save1,pcr lbsr L4A6C lda #$02 ldu #$2869 ldy #$1196 L4BD5 leax >Save2,pcr lbsr L4A6C clr >$34AB rts L4BE0 lda >$0371 pshs a lbsr L2088 lbsr L20A7 clra ldu #$0000 ldy #$037A leax >Save1,pcr lbsr L4A6C clra ldu #$2869 ldy #$1196 leax >Save2,pcr lbsr L4A6C ldx #$0005 L4C0C tfr x,d pshs b lda >$31E5,x cmpa #$FF bne L4C1D lbsr L35A6 bra L4C22 L4C1D lda #$EE lbsr L51D1 L4C22 ldb ,s+ clra tfr d,x leax -$01,x decb bpl L4C0C lda #$03 sta <u00EF clr >$34AB clr >$33BA lda >$32D2 lbsr L4A25 lbsr L208C puls a sta >$0371 lbsr L068B lbra L20A3 Save1 fcc /SAVE1/ fcb C$CR Save2 fcc /SAVE2/ fcb C$CR L4C56 fcb $00,$00 SAVE2... L4C58 fcb $00,$00,$00,$00,$00,$00,$FF,$BF .......? L4C60 fcb $01,$0F,$DF,$8F,$07,$FF,$FF,$C3 .._....C L4C68 fcb $BD,$66,$66,$BD,$C3,$FF,$E7,$DB =ff=C.g[ L4C70 fcb $DB,$99,$A5,$24,$42,$FF,$FF,$F7 [.%$B..w L4C78 fcb $FB,$FC,$54,$FC,$FB,$F7,$E7,$FF ..T..wg. L4C80 fcb $E7,$00,$3C,$99,$C3,$E7,$FF,$EF g.<.Cg.o L4C88 fcb $EF,$01,$83,$C7,$AB,$FF,$FF,$83 o..G+... L4C90 fcb $BB,$B9,$B9,$BB,$83,$FF,$FF,$E3 ;99;...c L4C98 fcb $F7,$B6,$88,$B6,$F7,$E3,$FF,$DB w6.6wc.[ L4CA0 fcb $BD,$00,$BD,$DB,$FF,$FF,$00,$7E =.=[...~ L4CA8 fcb $5E,$5A,$7E,$3E,$66,$00,$FF,$FF ^Z~>f... L4CB0 fcb $E7,$81,$7E,$81,$C3,$FF,$7E,$7E g.~.C.~~ L4CB8 fcb $42,$42,$42,$7E,$5A,$7E,$C3,$E7 BBB~Z~Cg L4CC0 fcb $E7,$81,$81,$81,$81,$FF,$34,$04 g.....4. L4CC8 fcb $A6,$89,$32,$57,$B7,$34,$2A,$A6 &.2W74*& L4CD0 fcb $89,$32,$5D,$B7,$34,$28,$1F,$10 .2]74(.. L4CD8 fcb $F7,$34,$26,$35,$84,$7F,$34,$2A w4&5.^?4* L4CE0 fcb $39 L4CE1 clr >$3425 lda >$342A bne L4CF7 lda <u00C8 sta >$3424 lda >$34DF beq L4CF6 inc >$3425 L4CF6 rts L4CF7 cmpa #$01 bne L4D1E ldy #$0008 L4CFF lda >$345A,y beq L4D19 lda >$1F83,y cmpa >$3428 bne L4D19 lda >$34D5,y sta >$3424 inc >$3425 rts L4D19 leay -$01,y bne L4CFF rts L4D1E cmpa #$02 bne L4D2C lda >$3427 sta >$3424 inc >$3425 rts L4D2C inc >$3425 cmpa #$03 beq L4D37 clr >$3425 rts L4D37 clr >$3429 ldx #$0001 L4D3D lda $0E,x beq L4D64 lda <$12,x bne L4D64 clra ldb >$33E0,x tfr d,y ldb >$091E,y addb >$3426 tfr d,y lda >$325D,y beq L4D64 tfr x,d addb >$3429 stb >$3429 L4D64 leax $01,x cmpx #$0003 bne L4D3D lda >$3429 cmpa #$03 bne L4D84 lda #$01 sta >$3429 lda >$39A7 cmpa >$39A5 bls L4D84 lda #$02 sta >$3429 L4D84 ldb >$3429 decb bpl L4D8F clr >$3425 bra L4D99 L4D8F clra tfr d,x lda >$00C6,x sta >$3424 L4D99 rts L4D9A lda >$33B5 beq L4DA6 lda <u00F6 beq L4DA7 clr >$3442 L4DA6 rts L4DA7 inca sta >$3442 clr >$3443 ldu #$00CD ldy #$0012 ldb #$01 L4DB7 ldx #$000E lda b,x beq L4DE4 lda b,u beq L4DE4 lda b,y bne L4DE4 ldx #$33E0 lda b,x ldx #$091E lda a,x adda >$3444 ldx #$3257 lda a,x beq L4DE4 pshs b addb >$3443 stb >$3443 puls b L4DE4 incb cmpb #$03 bne L4DB7 lda >$3443 cmpa #$03 bne L4E00 lda #$01 sta >$3443 lda <u00CB cmpa <u00CA bls L4E00 lda #$02 sta >$3443 L4E00 ldb >$3443 decb bpl L4E08 clra rts L4E08 pshs b ldy #$344E lda b,y lsra pshs a ldu #$00D2 leau b,u ldx #$00CE lda b,x cmpa #$58 bcs L4E29 cmpa #$A8 bcs L4E2B lda #$A8 bra L4E2B L4E29 lda #$58 L4E2B suba #$58 lsla adda ,s+ tfr a,b clra tfr d,y puls a ldx #$3450 ldb a,x lsrb addb ,u subb #$4C clra tfr d,x lda #$80 rts pshs u,y,x,b,a tfr x,d ldx #$3257 lda b,x sta >$3446 ldu #$32F0 ldx #$325D ldy #$32D8 cmpa #$01 bne L4E82 lda b,x leau a,u lda ,u bne L4E74 L4E69 clr >$3446 ldb >$3445 lbsr L50D3 L4E72 puls pc,u,y,x,b,a L4E74 stb >$3445 deca sta ,u lda b,x ldd a,y std <u00F8 bra L4E72 L4E82 cmpa #$02 bne L4E99 lda b,x leay a,y lda ,y ora $01,y beq L4E69 stb >$3445 ldd ,y std <u00F8 bra L4E72 L4E99 stb >$3445 bra L4E72 pshs b lda >$3446 beq L4EBC lda >$3257,x cmpa #$02 bne L4EB9 ldb >$325D,x clra tfr d,y ldd <u00F8 std >$32D8 L4EB9 clr >$3446 L4EBC puls pc,b L4EBE lda >$3446 bne L4EC4 rts L4EC4 ldd <u00F8 bne L4ECE ldb >$3445 lbra L50D3 L4ECE clra ldb >$3445 tfr d,x lda >$323F,x coma ldb >$335F lbsr L1304 sta >$335F rts L4EE3 ldb <u00BE subb #$48 bcc L4EED lda #$FF bra L4EF2 L4EED tfr b,a lsra lsra lsra L4EF2 sta >$3362 andb #$07 stb >$3361 clra ldb <u00C0 subb #$07 stb >$3363 bcc L4F05 clrb L4F05 lslb lslb lslb rola pshs u ldu #$1F9C leau d,u stu <u007D puls u clrb L4F15 stb >$3364 lda >$3363 cmpa #$30 bcc L4F49 ldb >$3362 bsr L4F7C sta >$3365 bsr L4F7C sta >$3366 lda >$3361 beq L4F40 bsr L4F7C ldb >$3361 L4F36 lsla rol >$3366 rol >$3365 decb bne L4F36 L4F40 ldd <u007D addd #$0008 std <u007D bra L4F51 L4F49 lda #$FF sta >$3365 sta >$3366 L4F51 inc >$3363 ldb >$3364 lda >$3365 bsr L4F89 lda >$3366 bsr L4F89 cmpb #$80 bcs L4F15 lda #$00 sta >$1274 lda #$06 sta >$32B8 lda #$FF sta >$32B2 bsr L4FD3 lda #$01 lbsr L36BC rts L4F7C ldu <u007D clra lda d,u cmpb #$08 bcs L4F87 lda #$FF L4F87 incb rts L4F89 sta >$3CE0 ldy #$0004 clra tfr d,x L4F93 lda #$EE lsl >$3CE0 bcc L4F9C lda #$FE L4F9C lsl >$3CE0 bcc L4FA3 ora #$EF L4FA3 sta >$1230,x incb leax $01,x leay -$01,y bne L4F93 rts pshs u,y,x,b,a ldx #$0002 lbsr L18E4 lda #$01 sta >$3447 puls pc,u,y,x,b,a clr >$3447 clr >$32B8 lda #$FF sta >$32B2 pshs u,y,x,b,a ldx #$0002 lbsr L1906 puls pc,u,y,x,b,a L4FD3 ldy #$1230 ldb #$A9 lbsr L218E leau <u0010,u ldx #$0010 L4FE2 ldb #$08 L4FE4 lda ,y+ sta ,u+ decb bne L4FE4 leau <-u0058,u leax -$01,x bne L4FE2 rts L4FF3 fcb $02,$BD,$02,$BE,$03 &p9.=.>. fcb $35,$03,$0C,$03,$26,$03,$74,$FC 5...&.t. fcb $D3,$02,$F1,$03,$7A,$03,$8A,$FF S.q.z... fcb $BC,$FE,$54,$03,$9E,$03,$AC L500F fcb $02 <.T...,. fcb $A1,$02,$CC,$03,$41,$03,$01,$03 !.L.A... fcb $13,$03,$58,$FC,$CE,$02,$E4,$03 ..X.N.d. fcb $67,$03,$7C,$FF,$AF,$FE,$8F,$03 g.|./... fcb $8F,$03,$96,$02,$85,$02,$83 L502F ldu #$32A5 lda b,u lbne L50D3 L5038 pshs u,b,a ldu #$31E5 lda b,u cmpa #$FF bne L5045 puls pc,u,b,a L5045 clra tfr d,x ldu #$32A5 lda b,u bne L5077 ldu #$324B lda b,u beq L5072 lbsr L5120 ldu #$324B lda b,u ldu #$32B7 sta >$32B7,y tfr y,d tfr b,a ldb $01,s ldu #$32AB sta b,u bra L5077 L5072 ldu #$32AB clr b,u L5077 pshs x lbsr L358F puls x lda #$FF sta >$33E7 ldu #$322D lda b,u stb >$33B4 ldu #$33A4 ldb a,u bmi L5099 pshs x,b,a lbsr L50D3 puls x,b,a L5099 ldb >$33B4 ldu #$322D lda b,u ldu #$33A4 stb a,u lda #$01 ldu #$32A5 sta b,u ldu #$31F1 lda b,u sta >$32C3 ldu #$31EB lda b,u sta >$32C2 puls u,b,a stu <u0099 std <u0095 ldd >$32C2 leau >L4FF3,pcr leau d,u pshs u ldd <u0095 ldu <u0099 rts L50D3 pshs b,a clra tfr d,x lda >$31E5,x cmpa #$FF bne L50E2 puls pc,b,a L50E2 lda >$32A5,x beq L511E lbsr L358B lda #$FF sta >$33E7 ldu #$322D ldb b,u lda #$FF ldu #$33A4 sta b,u ldb $01,s ldu #$32A5 clr b,u ldu #$31FD lda b,u sta >$32C3 ldu #$31F7 lda b,u ldb >$32C3 leau >L500F,pcr leau d,u puls b,a pshs u rts L511E puls pc,b,a L5120 pshs b ldb #$05 ldy #$32B7 L5128 lda b,y bne L5131 clra tfr d,y puls pc,b L5131 decb bpl L5128 lbsr L514A ldu #$32AB stb ,s lda b,u sta <u0096 clr <u0095 lbsr L50D3 ldy <u0095 puls pc,b L514A clr >$32BF pshs u,y,x ldb #$05 ldu #$32A5 ldx #$32AB ldy #$3227 L515B lda b,u beq L5170 lda b,x bmi L5170 lda b,y cmpa >$32BF bcs L5170 sta >$32BF stb >$32BE L5170 decb bpl L515B ldb >$32BE puls pc,u,y,x L5178 pshs b ldb #$20 mul ldy #$1E69 leay d,y ldx #$31E5 ldb ,s abx ldb #$20 L518B lda ,y+ sta ,x leax $06,x decb bne L518B puls b L5196 pshs b ldx #$31EB leax b,x ldy #$31F1 leay b,y ldb ,y lslb leau >L4FF3,pcr ldd b,u sta ,x stb ,y ldb ,s ldx #$31F7 leax b,x ldy #$31FD leay b,y ldb ,y lslb leau >L500F,pcr ldd b,u sta ,x stb ,y puls b lda #$EE lbra L51D1 L51D1 pshs b sta >$3CE2 lbsr L35D4 lbsr L36E6 puls b lbsr L35FF lbra L36E6 L51E4 pshs b ldb #$07 ldu #$32CB L51EB lda ,u+ sta ,u leau -u0002,u decb cmpb >$32CD bhi L51EB ldb #$07 ldu #$30E5 L51FC stb >$32CE lda #$20 mul lda d,u cmpa #$FF beq L5211 ldb >$32CE decb bpl L51FC lbra L4AF5 L5211 ldx #$31E5 ldy #$30E5 clra leay d,y ldb ,s abx ldb #$20 L5220 lda ,x sta ,y+ leax $06,x decb bne L5220 ldb >$32CD lda >$32CE ldu #$32C5 sta b,u puls b lda #$FF ldu #$31E5 sta b,u clra tfr d,x lbra L35A6 L5243 pshs y,b ldb >$32CD ldx #$32C5 lda b,x pshs a abx L5250 lda $01,x sta ,x+ incb cmpb #$07 bcs L5250 puls b lda #$20 mul ldy #$30E5 leay d,y pshs y ldx #$31E5 ldb $02,s abx ldb #$20 L526E lda ,y+ sta ,x leax $06,x decb bne L526E puls y lda #$FF sta ,y lda #$FF sta >$32CC puls y,b lda #$EE lbra L51D1 L5289 pshs y,x,b ldb >$32CD ldx #$32C5 abx lda ,x pshs a L5296 lda $01,x sta ,x+ incb cmpb #$07 bcs L5296 puls b lda #$20 mul ldy #$30E5 leay d,y lda #$FF sta ,y puls pc,y,x,b rts pshs x ldx #$3245 lda b,x sta >$3348 ldx #$323F lda b,x sta >$3349 ldx #$3239 lda b,x sta >$33E3 ldx #$08ED lda a,x sta >$334F lda #$FF sta >$33E6 puls x rts lda #$02 sta >$334F clr >$3348 rts ldu #$3245 lda b,u sta >$33C6 cmpa <u00E6 bcc L52F2 sta <u00E6 L52F2 rts lda #$10 sta >$33C6 cmpa <u00E6 bcc L52FE sta <u00E6 L52FE rts ldu #$323F lda b,u sta >$340C ldu #$3245 lda b,u sta >$340B rts lda #$0A sta >$340B sta >$340C rts ldu #$323F lda b,u sta >$3335 rts lda #$40 sta >$3335 rts ldu #$3245 lda b,u sta >$340D ldu #$323F lda b,u sta >$340E pshs y,b ldu #$3257 leau b,u ldy #$3340 ldb #$05 L5345 lda ,u sta ,y+ leau u0006,u decb bpl L5345 puls pc,y,b pshs b,a ldd #$0000 std >$3340 std >$3342 std >$3344 sta >$340D sta >$340E puls b,a rts lda #$FF sta >$33E8 rts lda #$FF sta >$33B5 stb >$3444 rts clr >$33B5 clr >$3442 rts ldu #$323F lda b,u pshs a lsra adda ,s+ sta >$3336 rts lda #$06 sta >$3336 rts pshs u,b ldu #$3257 lda b,u lbsr L5A4C puls u,b rts rts lda #$FF sta >$34AC rts clr >$34AC rts L53A9 ldb #$05 L53AB lbsr L50D3 decb bpl L53AB rts L53B2 lbra L53BB L53B5 lbra L53DD L53B8 lbra L5605 L53BB lda #$04 lbsr L4A6C bcs L53DC cmpa #$03 bne L53CC ldd #$0300 lbra L4A6C L53CC cmpa #$73 bne L53D0 L53D0 cmpa #$20 bne L53DC lda #$FF eora >$33EC sta >$33EC L53DC rts L53DD lda >$33EE beq L53E7 lda <u00F7 bne L53E7 L53E6 rts L53E7 lbsr L4D9A bmi L540E lda >$33A3 bne L53E6 lda >$34B6 bne L53E6 lda #$39 lbsr L36BC lbsr L55C6 lda <u00F6 lbmi L5481 lbne L54ED lda <u00F7 lbne L554E L540E tfr x,d tfr b,a cmpa >$343C bhi L5421 adda #$03 cmpa >$343C bls L5421 lda >$343C L5421 adda >$343C rora sta >$343C cmpa #$5E bcs L542E lda #$5E L542E cmpa #$0B bhi L5434 lda #$0B L5434 sta >$3393 suba >$3438 pshs a tfr y,d tfr b,a cmpa >$343B bhi L544F adda #$03 cmpa >$343B bls L544F lda >$343B L544F adda >$343B rora sta >$343B cmpa #$02 bcc L545C lda #$02 L545C cmpa #$96 bls L5462 lda #$96 L5462 sta >$3390 ldb >$343A suba >$3439 ora ,s+ beq L5471 orb #$81 L5471 stb >$343A lbsr L214A lda #$01 sta >$336B andcc #^Carry lbra L20EA L5481 lda <u00E8 anda #$01 bne L54A0 lda >$3328 bpl L54A0 L548C clra sta <u00F6 sta >$343A lbsr L2088 lbsr L5A4A lda <u00F7 beq L549F lbsr L4854 L549F rts L54A0 lda >$337D cmpa #$28 lbcs L568A lda <u00EF cmpa <u00EC bcc L54BC lbsr L2088 lda <u00EF sta >$3431 sta <u00EC lbsr L208C L54BC leay >L54E9,pcr lda >$337B ldb #$03 L54C5 cmpa b,y bcc L54CC decb bpl L54C5 L54CC cmpb >$3431 bne L54D2 rts L54D2 stb >$3431 cmpb <u00EF bls L54DE ldb <u00EF stb >$3431 L54DE lbsr L2088 ldb >$3431 stb <u00EC lbra L208C L54E9 fcb $00,$04,$40,$7D L54ED lda >$338D beq L54F3 rts L54F3 lda <u00E8 anda #$01 bne L5503 lda <u00F5 bpl L5503 lbsr L56AA lbra L548C L5503 lda <u00F5 bmi L5510 lda >$337D cmpa #$48 lbcc L567A L5510 leay >L56C9,pcr lda >$337B ldb #$05 L5519 cmpa b,y bcc L5520 decb bpl L5519 L5520 cmpb >$337E beq L554D stb >$337E lda <u00F7 beq L5537 lbsr L20A7 ldb >$337E stb <u00ED lbra L20AB L5537 lbsr L56AA ldb >$337E stb >$338C lda <u00ED pshs a stb <u00ED lbsr L20AB puls a sta <u00ED L554D rts L554E lda >$337D cmpa #$50 bcc L5563 lbsr L5A4A lbsr L4862 lda #$80 sta <u00F6 lbsr L208C L5562 rts L5563 lda >$33BC ora >$33BD bne L5562 lda >$32D4 beq L5562 lda <u00E8 anda #$08 bne L5594 lda >$32CD beq L558E lda >$33BA beq L5583 dec >$32CD L5583 lda #$81 sta >$33BC lda #$FF sta >$33B6 rts L558E lda >$33BA beq L5583 rts L5594 lda <u00E8 anda #$04 bne L55C5 lda >$32CD inca cmpa >$32D4 bcc L55B6 lda >$33BA beq L55AB inc >$32CD L55AB lda #$82 sta >$33BC lda #$FF sta >$33B6 rts L55B6 lda >$33BA bne L55C5 lda #$02 sta >$33BC lda #$FF sta >$33B6 L55C5 rts L55C6 ldd #SS.Joy ldx #$0001 os9 I$GetStt get joystick values tfr y,d lslb tfr d,y tfr x,d lda #$05 mul lsra rorb tfr d,x stx >$337A sty >$337C exg x,y lda #$FF cmpx #$007C bls L55EF anda #$FE L55EF cmpx #$0006 bcc L55F6 anda #$FD L55F6 cmpb #$91 bls L55FC anda #$F7 L55FC cmpb #$06 bcc L5602 anda #$FB L5602 sta <u00E8 rts L5605 lda >$33EE beq L560E lda <u00F7 beq L5641 L560E lda >$33BC ora >$33BD bne L5641 ldd #SS.Joy ldx #$0001 os9 I$GetStt get joystick values tsta beq L5624 lda #$01 L5624 eora #$01 beq L5631 lda #$FF sta >$3328 clr >$338D rts L5631 ldb >$3328 bmi L5642 lda >$33A3 bne L5641 lda <u00F6 lbeq L229D L5641 rts L5642 clr >$3328 lda <u00F6 beq L5650 lbmi L22B7 lbra L22D1 L5650 clr >$338D lda >$3393 cmpa #$10 lbhi L229D lbsr L5A4A inc >$338D lda <u00F7 beq L566B lbsr L4862 bra L5676 L566B lbsr L214A clr >$336B lda #$50 sta >$3390 L5676 lda <u00F5 bmi L568D L567A lbsr L214A clr >$336B lda #$80 sta <u00F6 lbsr L56AA lbra L208C L568A lbsr L2088 L568D lbsr L214A clr >$336B lda #$01 sta <u00F6 lbsr L20A3 lda <u00ED cmpa >$338C lbeq L20AB lda <u00F7 lbne L20AB rts L56AA lda <u00F7 bne L56B5 lda <u00ED cmpa >$338C bne L56B8 L56B5 lbra L20A3 L56B8 lda <u00ED pshs a lda >$338C sta <u00ED lbsr L20A7 puls a sta <u00ED rts L56C9 fcb $00,$04,$20,$40,$5F,$7D L56CF fcb $7B 9.. @_}{ fcb $7B,$7B,$7B,$7B,$7B,$72,$6B,$64 {{{{{rkd fcb $5E,$59,$54,$50,$4C,$49,$46,$43 ^YTPLIFC fcb $40,$3E,$3B,$39,$37,$35,$34,$32 @>;97542 fcb $30,$2F,$2E,$2C,$2B,$2A,$29,$28 0/.,+*)( fcb $27,$26,$25,$24,$24,$23,$22,$21 '&%$$#"! fcb $21,$20,$1F,$1F,$1E,$1E,$1D,$1D ! ...... fcb $1C,$1C,$1B,$1B,$1A,$1A,$19,$19 ........ fcb $19,$18,$18,$18,$17,$17,$17,$16 ........ fcb $16,$16,$15,$15,$15,$15,$14,$14 ........ fcb $14,$14,$13,$13,$13,$13,$12,$12 ........ fcb $12,$12,$12,$11,$11,$11,$11,$11 ........ fcb $10,$10,$10,$10,$10,$10,$10,$0F ........ fcb $0F,$0F,$0F,$0F,$0F,$0F,$0E,$0E ........ fcb $0E,$0E,$0E,$0E,$0E,$0E,$0D,$0D ........ fcb $0D,$0D,$0D,$0D,$0D,$0D,$0D,$0D ........ fcb $0C,$0C,$0C,$0C,$0C,$0C,$0C,$0C ........ fcb $0C,$0C,$0C,$0B,$0B,$0B,$0B,$0B ........ fcb $0B,$0B,$0B,$0B,$0B,$0B,$0B,$0B ........ fcb $0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A ........ fcb $0A,$0A,$0A,$0A,$0A,$0A,$0A,$0A ........ fcb $09,$09,$09,$09,$09,$09,$09,$09 ........ fcb $09,$09,$09,$09,$09,$09,$09,$09 ........ fcb $09,$09,$09,$09,$08,$08,$08,$08 ........ fcb $08,$08,$08,$08,$08,$08,$08,$08 ........ fcb $08,$08,$08,$00,$00,$00,$00,$00 ........ fcb $00,$00,$00,$00,$00,$00,$00,$00 ........ fcb $00,$00,$00,$00,$00,$00,$00,$00 ........ fcb $00,$00,$00,$00,$00,$00,$00,$00 ........ fcb $00,$00,$00,$00,$00,$00,$00,$00 ........ fcb $00,$00,$00,$00,$00,$00,$00,$00 ........ fcb $00,$00,$00,$00,$00,$00,$00,$00 ........ fcb $00,$00,$00,$00,$00,$00,$00 L57CF fcb $00 ........ fcb $93,$50,$15,$7C,$1C,$25,$7C,$0C .P.|.%|. fcb $35,$7C,$94,$35,$78,$45,$74,$45 5|.5xEtE fcb $70,$4D,$6C,$4D,$68,$55,$64,$21 pMlMhUd! fcb $0E,$21,$64,$55,$64,$21,$0E,$21 .!dUd!.! fcb $64,$55,$64,$21,$0E,$21,$64,$9A dUd!.!d. fcb $41,$8A,$68,$46,$74,$16,$17,$16 A.hFt... fcb $74,$A5,$96,$1D,$9A,$81,$6C,$A5 t%....l% fcb $0A,$17,$0E,$85,$70,$A5,$96,$1D ....p%.. fcb $9A,$81,$6C,$A5,$0A,$17,$0E,$85 ..l%.... fcb $70,$A5,$96,$1D,$9A,$81,$6C,$A5 p%....l% fcb $96,$1D,$9A,$81,$6C,$A5,$96,$1D ....l%.. fcb $9A,$81,$6C,$A5,$0A,$17,$0E,$85 ..l%.... fcb $78,$36,$7C,$0C,$25,$7C,$14,$9A x6|.%|.. fcb $11,$8A,$7C,$10,$26,$7C,$14,$26 ..|.&|.& fcb $7C,$14,$8A,$10,$8A,$7C,$10,$8A |....|.. fcb $10,$8A,$7C,$10,$85,$10,$85,$7C ..|....| fcb $08,$A5,$96,$90,$A9,$85,$7C,$94 .%..).|. fcb $9A,$81,$A5,$96,$7C,$A0,$82,$8A ..%.| .. fcb $A8,$A0,$82,$38 L5864 fcb $00,$B1,$58,$15 ( .8.1X. fcb $7C,$1C,$25,$7C,$0C,$35,$7C,$94 |.%|.5|. fcb $09,$16,$11,$78,$0D,$26,$0D,$74 ...x.&.t fcb $0D,$26,$0D,$70,$19,$16,$19,$6C .&.p...l fcb $4D,$68,$55,$64,$25,$9A,$21,$64 MhUd%.!d fcb $55,$64,$25,$9A,$21,$64,$55,$64 Ud%.!dUd fcb $25,$9A,$21,$64,$9A,$41,$8A,$68 %.!d.A.h fcb $46,$74,$16,$15,$16,$74,$A5,$96 Ft...t%. fcb $B5,$97,$A5,$96,$74,$A5,$96,$17 5.%.t%.. fcb $A5,$96,$74,$A5,$96,$17,$A5,$96 %.t%..%. fcb $74,$A5,$96,$AF,$BE,$A5,$96,$74 t%./>%.t fcb $A5,$96,$AF,$BE,$A5,$96,$74,$A5 %./>%.t% fcb $96,$AF,$BE,$A5,$96,$74,$A5,$96 ./>%.t%. fcb $AF,$BE,$A5,$96,$74,$A5,$96,$17 />%.t%.. fcb $A5,$96,$7C,$9A,$BD,$0F,$A5,$82 %.|.=.%. fcb $7C,$90,$A9,$AF,$96,$7C,$14,$9A |.)/.|.. fcb $A9,$A5,$82,$7C,$0C,$26,$7C,$14 )%.|.&|. fcb $26,$7C,$14,$8A,$10,$8A,$7C,$10 &|....|. fcb $8A,$10,$8A,$7C,$10,$85,$10,$85 ...|.... fcb $7C,$08,$A5,$96,$90,$A9,$85,$7C |.%..).| fcb $94,$9A,$81,$A5,$96,$7C,$A0,$12 ...%.| . fcb $A0,$12,$7C,$7C,$7C,$7C,$7C,$7C .|||||| fcb $7C,$7C,$7C,$7C,$7C,$7C,$38 L5917 fcb $FF fcb $C7,$AB,$6D,$01,$6D,$AB,$C7,$FF G+m.m+G. fcb $A5,$99,$A5,$A5,$99,$A5,$FF,$FF %.%%.%.. fcb $EB,$C9,$94,$C9,$EB,$FF,$FF,$FF kI.Ik... fcb $AB,$29,$83,$C7,$EF,$EF,$FF,$FF +).Goo.. fcb $EF,$D7,$AB,$D7,$EF,$EF,$FF,$FF oW+Woo.. fcb $A5,$81,$BD,$BD,$DB,$E7,$FF,$FF %.==[g.. fcb $99,$99,$E7,$E7,$99,$99,$FF,$FF ..gg.... fcb $80,$BE,$D5,$EB,$C1,$80,$FF,$FF .>UkA... fcb $CF,$B1,$CF,$F3,$8D,$F3,$FF,$FF O1Os.s.. fcb $81,$F3,$97,$E9,$CF,$81,$FF,$FF .s.iO... fcb $AB,$01,$AB,$C7,$EF,$FF,$FF,$FF +.+Go... fcb $E7,$5A,$3C,$5A,$E7,$FF,$FF,$FF gZ<Zg... fcb $83,$8D,$8D,$B1,$B1,$C1,$FF,$FF ...11A.. fcb $80,$BE,$D5,$EB,$C1,$80,$FF,$FF .>UkA... fcb $9D,$B9,$F3,$E7,$CD,$99,$FF,$FF .9sgM... fcb $FF,$A7,$A3,$81,$B7,$FF,$FF,$FF .'#.7... fcb $BD,$C3,$E7,$BD,$C3,$E7,$FF,$FF =Cg=Cg.. fcb $A5,$99,$A5,$A5,$99,$A5,$FF,$FF %.%%.%.. fcb $E7,$FF,$A5,$81,$A5,$BD,$FF,$FF g.%.%=.. fcb $BD,$89,$A5,$A5,$91,$BD,$FF,$FF =.%%.=.. fcb $BD,$DB,$E7,$E7,$DB,$BD,$FF,$FF =[gg[=.. fcb $C8,$88,$68,$42,$66,$6C,$FF,$FF H.hBfl.. fcb $81,$EF,$85,$A1,$F7,$81,$FF,$FF .o.!w... fcb $FF,$E7,$99,$81,$99,$E7,$FF,$FF .g...g.. fcb $99,$A5,$BD,$BD,$A5,$99,$FF,$FF .%==%... fcb $DB,$AB,$AB,$D5,$D5,$DB,$FF,$FF [++UU[.. fcb $DF,$AF,$A1,$AB,$DB,$F5,$FF,$FF _/!+[u.. fcb $93,$6D,$55,$55,$55,$6D,$93,$FF .mUUUm.. fcb $99,$C3,$A5,$81,$DB,$E7,$FF,$FF .C%.[g.. fcb $E1,$F1,$F9,$BD,$9F,$8F,$FF,$FF aqy=.... fcb $EF,$D7,$AB,$AB,$C7,$EF,$FF,$FF oW++Go.. fcb $E3,$DD,$EF,$F7,$F7,$FF,$F7,$FF c]oww.w. fcb $C7,$AB,$6D,$01,$6D,$AB,$C7 L5A1F pshs a lda >$FF20 anda #$FD sta >$FF20 puls a rts L5A2C pshs a lda >$FF20 ora #$02 sta >$FF20 puls a rts * Needs Label pshs u,y,x,b,a,cc ldy #$0E00 ldx #$2001 ldd #$01*256+SS.Tone os9 I$SetStt play tone puls pc,u,y,x,b,a,cc L5A4A lda #$04 L5A4C pshs u,y,x,b sta >$0346 lsla leay >L5AB2,pcr ldd a,y leau d,y stu >$0349 bra L5A62 L5A5F clr >$0346 L5A62 ldu >$0349 L5A65 tst >$0346 bne L5A7A ldd #SS.Joy ldx #$0001 pshs u os9 I$GetStt get joystick values puls u tsta bne L5AA0 L5A7A ldy ,u beq L5AA2 cmpy #$0001 beq L5AA0 cmpy #$0002 beq L5A5F lda >$036F ldb u0002,u tfr d,x pshs u ldd #$01*256+SS.Tone os9 I$SetStt play tone puls u L5A9C leau u0003,u bra L5A65 L5AA0 puls pc,u,y,x,b L5AA2 ldb u0002,u beq L5A9C L5AA6 ldx #$01F4 L5AA9 leax -$01,x bne L5AA9 decb bne L5AA6 bra L5A9C L5AB2 fcb $00,$B5,$01,$92,$00,$77 j.5...w fcb $00,$12,$01,$77,$01,$7C,$01,$81 ...w.|.. fcb $01,$A9,$01,$AE,$0E,$52,$02,$0E .)...R.. fcb $E1,$02,$0F,$0E,$02,$0E,$52,$02 a.....R. fcb $00,$00,$02,$0E,$E1,$02,$0E,$F1 ....a..q fcb $02,$0E,$96,$02,$0E,$52,$02,$0E .....R.. fcb $E1,$02,$0E,$96,$02,$0E,$52,$02 a.....R. fcb $00,$00,$02,$0E,$E1,$02,$0E,$BD ....a..= fcb $02,$0E,$96,$02,$0E,$52,$02,$0E .....R.. fcb $E1,$02,$0F,$0E,$02,$0E,$52,$02 a.....R. fcb $00,$00,$02,$0E,$E1,$02,$0E,$F1 ....a..q fcb $02,$0E,$96,$02,$0F,$29,$02,$00 .....).. fcb $00,$02,$0F,$0E,$02,$00,$00,$02 ........ fcb $0E,$96,$05,$0E,$96,$02,$00,$00 ........ fcb $05,$0F,$29,$02,$00,$00,$02,$00 ..)..... fcb $01,$0F,$0E,$1E,$0E,$BD,$05,$0F .....=.. fcb $0E,$05,$0F,$40,$14,$0F,$0E,$14 ...@.... fcb $0F,$40,$1E,$0F,$0E,$05,$0F,$40 .@.....@ fcb $05,$0F,$5F,$23,$00,$00,$05,$0F .._#.... fcb $5F,$1E,$0F,$40,$05,$0E,$BD,$05 _..@..=. fcb $0F,$80,$14,$0F,$80,$14,$0F,$40 .......@ fcb $1E,$0F,$00,$05,$0F,$40,$05,$0F .....@.. fcb $5F,$23,$00,$00,$05,$00,$01,$0E _#...... fcb $96,$0A,$0E,$81,$0A,$0E,$52,$0A ......R. fcb $0E,$96,$0A,$0E,$81,$0A,$0E,$52 .......R fcb $0A,$0E,$81,$0A,$0E,$96,$0A,$0E ........ fcb $96,$0A,$0E,$81,$0A,$0E,$52,$0A ......R. fcb $0E,$96,$0A,$0E,$81,$0A,$0E,$52 .......R fcb $0A,$0E,$81,$0A,$0E,$96,$0A,$0E ........ fcb $BD,$0A,$0E,$96,$0A,$0E,$81,$0A =....... fcb $0E,$BD,$0A,$0E,$96,$0A,$0E,$81 .=...... fcb $0A,$0E,$96,$0A,$0E,$BD,$0A,$0E .....=.. fcb $BD,$0A,$0E,$96,$0A,$0E,$81,$0A =....... fcb $0E,$BD,$0A,$0E,$96,$0A,$0E,$81 .=...... fcb $0A,$0E,$96,$0A,$0E,$BD,$0A,$0E .....=.. fcb $96,$0A,$0E,$81,$0A,$0E,$52,$0A ......R. fcb $0E,$96,$0A,$0E,$81,$0A,$0E,$52 .......R fcb $0A,$0E,$81,$0A,$0E,$96,$0A,$0E ........ fcb $96,$0A,$0E,$81,$0A,$0E,$52,$0A ......R. fcb $0E,$96,$0A,$0E,$81,$0A,$0E,$52 .......R fcb $0A,$0E,$81,$0A,$0E,$96,$0A,$0E ........ fcb $E1,$0A,$0E,$BD,$0A,$0E,$96,$0A a..=.... fcb $0E,$E1,$0A,$0E,$BD,$0A,$0E,$96 .a..=... fcb $0A,$0E,$BD,$0A,$0E,$E1,$0A,$0E ..=..a.. fcb $E1,$0A,$0E,$E1,$0A,$0E,$F1,$0A a..a..q. fcb $0E,$E1,$0A,$0E,$BD,$0A,$0E,$96 .a..=... fcb $0A,$0E,$52,$0A,$0E,$81,$0A,$00 ..R..... fcb $02,$0E,$F1,$01,$00,$01,$0D,$2C ..q...., fcb $02,$00,$01,$00,$13,$03,$00,$14 ........ fcb $03,$00,$15,$03,$00,$14,$03,$00 ........ fcb $13,$03,$00,$01,$0F,$46,$02,$0F .....F.. fcb $40,$02,$0F,$5F,$02,$0F,$29,$02 @.._..). fcb $0F,$40,$02,$0F,$70,$02,$0F,$46 .@..p..F fcb $02,$00,$01,$0D,$2C,$02,$00,$01 ....,... fcb $0D,$55,$02,$00,$01 emod eom equ * end