Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/pascal/cmds/support1.asm @ 9:3008afb231a2
Checked in Pascal 2.0
| author | roug |
|---|---|
| date | Fri, 05 Apr 2002 08:23:28 +0000 |
| parents | |
| children |
line wrap: on
line source
******************************************************************** * progname - program module * * $Id$ * * Ed. Comments Who YY/MM/DD * ------------------------------------------------------------------ * - Original Pascal 2.0 distribution version * * $Log$ * Revision 1.1 2002/04/05 08:23:28 roug * Checked in Pascal 2.0 * * nam Support ttl subroutine module * Disassembled 02/04/05 10:06:56 by Disasm v1.6 (C) 1988 by RML ifp1 use /dd/defs/os9defs endc tylg set Sbrtn+Objct atrv set ReEnt+rev rev set $06 mod eom,name,tylg,atrv,start,size u0000 rmb 0 size equ . fcb $31 1 fcb $64 d fcb $31 1 fcb $28 ( fcb $43 C fcb $29 ) fcb $20 fcb $31 1 fcb $39 9 fcb $38 8 fcb $31 1 fcb $20 fcb $42 B fcb $59 Y fcb $20 fcb $4D M fcb $49 I fcb $43 C fcb $52 R fcb $4F O fcb $57 W fcb $41 A fcb $52 R fcb $45 E fcb $20 fcb $53 S fcb $59 Y fcb $53 S fcb $54 T fcb $45 E fcb $4D M fcb $53 S fcb $20 fcb $43 C fcb $4F O fcb $52 R fcb $50 P fcb $2E . fcb $20 fcb $41 A fcb $4C L fcb $4C L fcb $20 fcb $52 R fcb $49 I fcb $47 G fcb $48 H fcb $54 T fcb $53 S fcb $20 fcb $52 R fcb $45 E fcb $53 S fcb $45 E fcb $52 R fcb $56 V fcb $45 E fcb $44 D fcb $2E . fcb $52 R fcb $45 E fcb $53 S fcb $45 E fcb $52 R fcb $56 V fcb $45 E fcb $44 D fcb $2E . fcb $20 name equ * fcs /Support/ fcb $06 fcb $16 fcb $00 fcb $D8 X fcb $16 fcb $1B fcb $3E > fcb $16 fcb $10 fcb $C1 A fcb $16 fcb $11 fcb $14 fcb $16 fcb $11 fcb $EA j fcb $16 fcb $13 fcb $35 5 fcb $16 fcb $1D fcb $42 B fcb $16 fcb $02 fcb $62 b fcb $16 fcb $02 fcb $95 fcb $16 fcb $04 fcb $CD M fcb $16 fcb $06 fcb $1E fcb $16 fcb $09 fcb $BB ; fcb $16 fcb $0A fcb $49 I fcb $16 fcb $0A fcb $4A J fcb $16 fcb $0A fcb $4B K fcb $16 fcb $0B fcb $A8 ( fcb $16 fcb $0A fcb $47 G fcb $16 fcb $01 fcb $7F ÿ fcb $16 fcb $08 fcb $F1 q fcb $16 fcb $0D fcb $06 fcb $16 fcb $1A fcb $78 x fcb $16 fcb $09 fcb $CF O fcb $16 fcb $09 fcb $F6 v fcb $16 fcb $04 fcb $F1 q fcb $16 fcb $1A fcb $94 fcb $16 fcb $02 fcb $28 ( fcb $16 fcb $0D fcb $03 fcb $16 fcb $0E fcb $56 V fcb $16 fcb $0E fcb $7D ý fcb $16 fcb $0E fcb $9C fcb $16 fcb $0E fcb $B7 7 fcb $16 fcb $0C fcb $4E N fcb $16 fcb $0B fcb $FC fcb $16 fcb $03 fcb $A6 & fcb $16 fcb $07 fcb $5E ^ fcb $16 fcb $04 fcb $E8 h start equ * lbra L0670 lbra L06BA lbra L078A lbra L07E7 lbra L09DB lbra L0CC7 lbra L14FC lbra L1508 lbra L1559 lbra L155D lbra L163D lbra L1640 lbra L191A lbra L1A5D lbra L1A6F lbra L1A76 lbra L1A7D lbra L1A84 lbra L1A8B lbra L1BFD lbra L0FD3 lbra L0F7D lbra L1050 lbra L1070 lbra L02CC lbra L1C8B lbra L1CC2 lbra L10E9 lbra L10EC lbra L10BB lbra L1D55 lbra L1DB1 lbra L1DB1 lbra L1DB1 lbra L1DB1 lbra L1DB1 lbra L0182 pshs y ldx $04,s ldb $0F,x bne L0151 ldd $0A,x bitb #$0C bne L0147 ldb #$47 bra L014D L0147 bitb #$04 bne L015B ldb #$46 L014D clra lbsr L0B5C L0151 clr $05,s L0153 puls y ldx ,s leas $03,s jmp ,x L015B bita #$80 beq L017C bitb #$82 bne L0169 L0163 ldb #$01 stb $05,s bra L0153 L0169 lda $0C,x ldb #$01 os9 I$GetStt bcc L0163 cmpb #$F6 beq L0151 stb <u002E ldb #$43 bra L014D L017C bitb #$01 bne L0151 bra L0163 L0182 pshs y ldx $04,s ldb $0F,x bne L01C5 ldd $0A,x bitb #$0C bne L0194 ldb #$47 bra L01C1 L0194 bitb #$04 bne L019C ldb #$46 bra L01C1 L019C bita #$80 bne L01B3 L01A0 leay $05,s pshs y,x lbsr L09DB bra L01AB L01A9 sta $05,s L01AB puls y ldx ,s leas $03,s jmp ,x L01B3 bitb #$80 beq L01BB andb #$FC stb $0B,x L01BB bitb #$01 beq L01CB ldb #$45 L01C1 clra lbsr L0B5C L01C5 lda #$20 sta $0E,x bra L01A9 L01CB bitb #$80 bne L01D9 bitb #$02 beq L01A0 orb #$80 stb $0B,x bra L01C5 L01D9 lda $0C,x ldy #$0001 leax $0E,x os9 I$Read ldx $04,s bcc L01FA cmpb #$D3 beq L01F2 stb <u002E ldb #$43 bra L01C1 L01F2 lda $0B,x ora #$03 sta $0B,x bra L01C5 L01FA lbsr L0510 ldb $0B,x orb #$80 andb #$FD lda $0E,x cmpa #$0D bne L020B orb #$02 L020B stb $0B,x bra L01A9 puls x stx <u001E ldd <u0000 std <u0032 subd <u0046 std <u0012 std <u0034 std <u004C subd #$01C5 tfr d,y leas ,y leau ,s stu <u0014 stu <u004A leax $08,y stx <u001C leax <$12,y stx ,y ldd #$0080 std $04,x ldd #$0014 std $0A,x clra clrb stb <u0020 std <u00CE stb <u00D0 stb $0C,x std ,x std $02,x stb $0F,x std $06,x std $08,x ldb #$D0 stb $0D,x leas <-$20,s clrb leax ,s os9 I$GetStt ldx ,y bcc L026C stb <u002E ldd #$0060 lbsr L0B5C L026C lda ,s leas <$20,s bne L0281 ldd $0A,x ora #$80 orb #$C0 std $0A,x lda #$20 sta $0E,x bra L0286 L0281 pshs x lbsr L0821 L0286 leax >$00A3,y stx $02,y ldd #$0080 std $04,x ldd #$0018 std $0A,x lda #$01 sta $0C,x clra clrb pshs x,b,a pshs b,a bsr L02D4 leax >$0134,y stx $04,y ldd #$0080 std $04,x ldd #$0018 std $0A,x lda #$02 sta $0C,x clra clrb pshs x,b,a pshs b,a bsr L02D4 ldb #$01 stb <u0040 stb <u003B ldd <u004E std $06,y ldx <u001E jmp ,x L02CC lda #$18 bra L02D6 lda #$8C bra L02D6 L02D4 lda #$08 L02D6 pshs u,y,a ldx $0B,s lbsr L0530 ldb $0B,x ldy $09,s bne L02EB bitb #$0C bne L02F8 ldy $07,s L02EB bitb #$0C beq L02F8 pshs x lbsr L0C32 ldx $0B,s ldb $0B,x L02F8 andb #$3D orb #$01 stb $0B,x lda ,s bsr L0351 puls u,y,a puls x leas $06,s jmp ,x pshs u,y ldx $0A,s lbsr L0530 ldb $0B,x ldy $08,s bne L031F bitb #$0C bne L032C ldy $06,s L031F bitb #$0C beq L032C pshs x lbsr L0C32 ldx $0A,s ldb $0B,x L032C andb #$3C stb $0B,x lda #$04 bsr L0351 ldb $0B,x bitb #$40 beq L0344 orb #$80 stb $0B,x lda #$20 sta $0E,x bra L0349 L0344 pshs x lbsr L0821 L0349 puls u,y puls x leas $06,s jmp ,x L0351 pshs u,y,x,b,a clra clrb stb $0F,x std $06,x std $08,x ldb #$D0 stb $0D,x ldd $0A,x anda #$40 sta $0A,x bitb #$0C beq L0396 lda $0C,x ldx #$0000 leau ,x os9 I$Seek bcc L03BD L0375 stb <u002E ldb #$63 L0379 clra ldx $02,s ldu $06,s lbsr L0B5C ldb $0B,x bitb #$0C pshs cc andb #$F3 stb $0B,x puls cc beq L0394 lda $0C,x os9 I$Close L0394 puls pc,u,y,x,b,a L0396 leax ,y lda ,s bita #$08 beq L03B2 ldd #$0303 os9 I$Create bcc L03B9 cmpb #$DA beq L03B0 L03AA stb <u002E ldb #$62 bra L0379 L03B0 ldx $04,s L03B2 lda #$03 os9 I$Open bcs L03AA L03B9 ldx $02,s sta $0C,x L03BD ldx $02,s ldb $0B,x andb #$F3 orb ,s stb $0B,x bsr L0433 leas <-$20,s lda $0C,x clrb leax ,s os9 I$GetStt bcc L03DF L03D6 stb <u002E leas <$20,s ldb #$60 bra L0379 L03DF ldx <$22,s lda ,s bne L03F6 lda $05,s anda #$01 ora #$80 ora $0A,x ldb $0B,x orb #$40 std $0A,x bra L042E L03F6 cmpa #$01 bne L042E ldb <$20,s bitb #$04 bne L042E lda $0C,x bitb #$10 beq L0422 ldb #$02 os9 I$GetStt bcs L03D6 stx <u000C ldx <$22,s lda $0C,x ldx <u000C os9 I$Seek bcc L042E leas <$20,s lbra L0375 L0422 ldx #$0000 leau ,x ldb #$02 os9 I$SetStt bcs L03D6 L042E leas <$20,s puls pc,u,y,x,b,a L0433 pshs b,a lda $0B,x bita #$10 beq L0441 clra clrb std ,x bra L0443 L0441 ldd $04,x L0443 std $02,x puls pc,b,a L0447 pshs x ldy $02,x beq L0463 lda $0C,x ldb $0B,x leax <$10,x bitb #$10 bne L045E os9 I$Write puls pc,x L045E os9 I$WritLn puls pc,x L0463 clrb puls pc,x L0466 pshs y ldx $04,s ldb $0B,x bitb #$0C bne L0474 ldb #$5F bra L048C L0474 bitb #$08 bne L047C ldb #$5E bra L048C L047C bitb #$80 beq L0486 andb #$7F orb #$01 stb $0B,x L0486 bitb #$01 bne L0492 ldb #$5D L048C clra lbsr L0B5C bra L04FF L0492 lda $0F,x bne L0505 bitb #$30 bne L04A4 L049A bsr L0447 bcc L0503 L049E stb <u002E ldb #$5C bra L048C L04A4 bitb #$10 beq L049A lda $0D,x cmpa #$D0 beq L04CD lda $0A,x bita #$80 beq L04CD ldd $02,x L04B6 beq L04D2 std $02,x leay <$10,x subd #$0001 lda d,y cmpa #$20 bne L04CD ldd $02,x subd #$0001 bra L04B6 L04CD lbsr L0447 bcs L049E L04D2 lda $0D,x bne L04DE lda #$0D bsr L0521 bcs L049E bra L04FF L04DE cmpa #$31 bne L04FB lda #$0C bsr L0521 L04E6 lda #$0D pshs x,a lda $0C,x leax ,s ldy #$0001 os9 I$Write puls x,a bcs L049E bra L04FF L04FB cmpa #$2B beq L04E6 L04FF ldb #$D0 stb $0D,x L0503 bsr L0510 L0505 lbsr L0433 puls y puls x leas $02,s jmp ,x L0510 ldd $08,x addd #$0001 std $08,x bcc L0520 ldd $06,x addd #$0001 std $06,x L0520 rts L0521 pshs x,a lda $0C,x leax ,s ldy #$0001 os9 I$WritLn puls pc,x,a L0530 pshs x,b,a lda $0B,x anda #$1D cmpa #$19 bne L0543 ldd ,x beq L0543 pshs x lbsr L0466 L0543 puls pc,x,b,a L0545 pshs y ldx $04,s lda $0B,x bita #$0C bne L0553 ldb #$5F bra L0561 L0553 bita #$08 bne L055B ldb #$5E bra L0561 L055B bita #$01 bne L0567 ldb #$5D L0561 clra lbsr L0B5C bra L058B L0567 ldb $0F,x bne L058B ldd $02,x cmpd $04,x bcs L0577 pshs x lbsr L0466 L0577 ldx $04,s leay <$10,x ldd ,x leay d,y addd #$0001 std ,x std $02,x lda $0E,x sta ,y L058B puls y puls x leas $02,s jmp ,x puls x stx <u001E ldx #$0001 ldd ,s pshs x,b,a ldd $06,s std $04,s leax $08,s stx $06,s bsr L05B6 leas $01,s ldx <u001E jmp ,x L05AE ldx $06,s cmpx $04,s bcc L05B6 stx $04,s L05B6 pshs y lda <u0038 lsra bcc L05D7 ldd $08,s L05BF subd $06,s ble L05D7 ldx $04,s lda #$20 sta $0E,x pshs x lbsr L0545 ldd $08,s subd #$0001 std $08,s bra L05BF L05D7 ldx $04,s ldd $06,s beq L05F4 ldy $0A,s L05E0 std <u0025 ldb ,y+ ldx $04,s stb $0E,x pshs x lbsr L0545 ldd <u0025 subd #$0001 bne L05E0 L05F4 ldd $08,s subd $06,s ble L060E L05FA std <u0025 ldx $04,s lda #$20 sta $0E,x pshs x lbsr L0545 ldd <u0025 subd #$0001 bne L05FA L060E puls y puls x leas $08,s jmp ,x L0616 pshs y,x,b,a leax <L0666,pcr clr <u0023 clr <u0025 clr <u0026 tsta bpl L0632 tst <u0024 bne L0632 lda #$2D sta ,y+ inc <u0026 clra clrb subd ,s L0632 std <u000A L0634 ldd <u000A clr <u0027 L0638 subd ,x bcs L0640 inc <u0027 bra L0638 L0640 addd ,x std <u000A lda <u0027 bne L064C tst <u0023 beq L0654 L064C inc <u0023 ora #$30 sta ,y+ inc <u0026 L0654 leax $02,x tst ,x bpl L0634 lda <u000B ora #$30 ldb #$0D std ,y inc <u0026 puls pc,y,x,b,a L0666 beq L0678 com <u00E8 neg <u0064 neg <u000A stu >$FF34 bra L0683 ldx <u001C ldd $08,s clr <u0024 bsr L0616 ldx $06,s ldd <u0025 pshs y,x,b,a ldx $0A,s L0683 pshs x lbsr L05B6 puls y puls x leas $06,s jmp ,x L0690 lsrb fcb $52 R fcb $55 U fcb $45 E L0694 rora fcb $41 A inca comb fcb $45 E ldd #$0004 leax <L0690,pcr lsr $06,s bcs L06A7 leax <L0694,pcr incb L06A7 pshs x ldx $06,s pshs x,b,a ldx $08,s pshs x lbsr L05AE puls x leas $05,s jmp ,x L06BA ldx $02,s clr <u0025 clr <u0026 lda $0B,x bita #$0C bne L06CA ldb #$42 bra L06D8 L06CA bita #$04 bne L06D2 ldb #$41 bra L06D8 L06D2 bita #$01 beq L06DB L06D6 ldb #$40 L06D8 lbra L077B L06DB ldb $0F,x lbne L077F bita #$80 beq L06F2 L06E5 pshs x lbsr L078A ldx $02,s ldb $0F,x lbne L077F L06F2 lda $0B,x bita #$01 bne L06D6 ldb $0E,x cmpb #$20 beq L06E5 clr <u0028 clr <u002D cmpb #$2D bne L070A inc <u0028 bra L070E L070A cmpb #$2B bne L0712 L070E pshs x bsr L078A L0712 ldx $02,s ldb $0E,x subb #$30 bcs L076B cmpb #$09 bhi L076B inc <u002D stb <u0027 ldd <u0025 lslb rola bcs L074A std <u000A lslb rola bcs L074A lslb rola bcs L074A addd <u000A bcs L074A addb <u0027 adca #$00 bcs L074A std <u0025 cmpd #$8000 bcs L070E bhi L074A tst <u0028 bne L070E L074A ldd #$7FFF tst <u0028 beq L0754 ldd #$8000 L0754 std <u0025 L0756 pshs x bsr L078A ldx $02,s ldb $0E,x cmpb #$30 bcs L0766 cmpb #$39 bls L0756 L0766 ldd #$004F bra L077B L076B tst <u0028 beq L0775 clra clrb subd <u0025 std <u0025 L0775 tst <u002D bne L077F ldb #$4E L077B clra lbsr L0B5C L077F ldd <u0025 std [<$04,s] puls x leas $04,s jmp ,x L078A pshs y ldx $04,s lda $0B,x bita #$0C bne L0798 ldb #$47 bra L07A6 L0798 bita #$04 bne L07A0 ldb #$46 bra L07A6 L07A0 bita #$01 beq L07AC ldb #$45 L07A6 clra lbsr L0B5C bra L07C1 L07AC ldb $0F,x bne L07C7 bita #$82 beq L07BA pshs x bsr L0821 bra L07DF L07BA ldd ,x cmpd $02,x bcs L07CD L07C1 lda $0B,x ora #$02 sta $0B,x L07C7 ldb #$20 stb $0E,x bra L07DF L07CD leay <$10,x ldb d,y cmpb #$0D beq L07C1 stb $0E,x ldd ,x addd #$0001 std ,x L07DF puls y puls x leas $02,s jmp ,x L07E7 ldx $02,s lda $0B,x bita #$0C bne L07F3 ldb #$42 bra L0801 L07F3 bita #$04 bne L07FB ldb #$41 bra L0801 L07FB bita #$01 beq L0807 ldb #$40 L0801 clra lbsr L0B5C bra L081B L0807 ldb $0F,x bne L081B bita #$40 beq L0817 ora #$80 anda #$FD sta $0B,x bra L081B L0817 pshs x bsr L0821 L081B puls x leas $02,s jmp ,x L0821 pshs y ldx $04,s ldb $0B,x bitb #$0C bne L082F ldb #$47 bra L0845 L082F bitb #$04 bne L0837 ldb #$46 bra L0845 L0837 bitb #$80 beq L083F andb #$7E stb $0B,x L083F bitb #$01 beq L085B ldb #$45 L0845 clra lbsr L0B5C ldb $0B,x bra L088C L084D cmpy $02,x lbeq L08D5 sty $02,x ldb #$44 bra L0845 L085B lda $0F,x bne L088C bitb #$30 beq L086D bitb #$10 bne L0898 lda $0A,x bita #$80 bne L0898 L086D lda $0C,x ldy $02,x leax <$10,x os9 I$Read ldx $04,s bcc L084D L087C cmpb #$D3 beq L0886 stb <u002E ldb #$43 bra L0845 L0886 ldb $0B,x orb #$03 stb $0B,x L088C bitb #$10 beq L08D8 clra clrb std ,x std $02,x bra L08D8 L0898 lda $0C,x ldy $04,x leax <$10,x os9 I$ReadLn ldx $04,s bcs L087C tfr y,d addd #$000F lda d,x cmpa #$0D bne L08B4 leay -$01,y L08B4 ldb $0B,x bitb #$20 bne L08E0 sty $02,x lda <$10,x cmpa #$0D bne L08CA orb #$02 lda #$20 bra L08CC L08CA andb #$FD L08CC sta $0E,x stb $0B,x ldd #$0001 std ,x L08D5 lbsr L0510 L08D8 puls y puls x leas $02,s jmp ,x L08E0 pshs y ldd ,s leay <$10,x leay d,y ldd $04,x std $02,x subd ,s++ tfr d,x lda #$20 L08F3 sta ,y+ leax -$01,x bne L08F3 ldx $04,s bra L08D5 bra L091F bra L0921 bra L0923 bra L0951 clr $03,s oim #$6C,-$03,y bra L092C bra L092E fcb $45 E lsl >$7465 jmp $04,s eim #$64,-$03,y bra L095A com -$0C,s eim #$61,>$6C20 L091F lsl $05,s L0921 oim #$70,-$03,y fcb $41 A com -$0C,s eim #$61,>$6C20 com >$7461 L092E com $0B,s mul bra L0953 rora aim #$65,>$6520 com >$7461 com $0B,s mul bra L0960 bra L0988 aim #$65,>$6520 lsl $05,s oim #$70,-$03,y bra L096D bra L096F bra L0971 L0951 bra L0973 L0953 comb asr >$6170 mul L0958 stu >$A500 tst <u0000 fcb $42 B stu >$B200 tst <u0000 lsra stu >$F300 tst <u0000 lsla stu >$BF00 L096D tst <u0000 L096F inca stu >$CC00 L0973 tst <u0000 sexw stu >$D900 tst <u0000 deca stu >$E600 tst <u0000 fcb $3E > neg <u0000 ldy <u0014 lda <u0040 beq L09DA ldx $02,y lbsr L0530 ldx $04,y lbsr L0530 lda <u0039 beq L09DA ldb #$01 stb <u0024 lbsr L0C08 ldd <u0002 addd <u003E subd <u004C std <u003E ldd <u004C subd <u0034 std <u004C ldd <u0014 subd <u004A std <u0014 ldd <u004A subd <u0018 bcc L09BC clra clrb L09BC std <u004A leau <L0958,pcr L09C1 ldd ,u++ beq L09DA leax <L0958,pcr leax d,x ldd ,u++ lbsr L0C19 ldx <u0002 ldd ,u++ ldd d,x lbsr L0C23 bra L09C1 L09DA rts L09DB ldx $02,s lda $0B,x bita #$0C bne L09E7 ldb #$42 bra L09F5 L09E7 bita #$04 bne L09EF ldb #$41 bra L09F5 L09EF bita #$01 beq L09FB ldb #$40 L09F5 clra lbsr L0B5C bra L0A10 L09FB ldb $0F,x bne L0A10 bita #$80 beq L0A17 pshs x lbsr L0821 ldx $02,s lda $0B,x bita #$01 beq L0A17 L0A10 ldb #$20 stb [<$04,s] bra L0A33 L0A17 ldb $0E,x stb [<$04,s] ldd $0A,x bitb #$02 beq L0A2E bita #$80 beq L0A2E andb #$FD orb #$80 stb $0B,x bra L0A33 L0A2E pshs x lbsr L078A L0A33 ldx ,s leas $06,s jmp ,x pshs y ldd <u0012 std [<$06,s] addd $04,s std <u0012 cmpd <u004C bls L0A4B std <u004C L0A4B cmpd <u0032 bls L0A63 cmpd <u0000 bhi L0A59 tst <u0036 bne L0A63 L0A59 subd <u0002 os9 F$Mem bcs L0ABC sty <u0000 L0A63 puls y puls x leas $04,s jmp ,x pshs y ldx $04,s cmpx <u0012 bhi L0AC2 cmpx <u0034 bcs L0AC2 stx <u0012 lda <u0036 bne L0A8D cmpx <u0032 bls L0A8D ldd <u0012 subd <u0002 os9 F$Mem bcs L0AB6 sty <u0000 L0A8D puls y ldx ,s leas $04,s jmp ,x ldx ,s pshs b,a ldd $04,s pshs u cmpd ,s++ bhi L0AC6 subd ,s++ bcs L0AC6 cmpd <u004A bcc L0AAD std <u004A L0AAD subd <u0018 bcs L0AC6 lds $02,s jmp ,x L0AB6 stb <u002E ldb #$E4 bra L0AD6 L0ABC stb <u002E ldb #$B6 bra L0AD6 L0AC2 ldb #$BA bra L0AD6 L0AC6 ldb #$BB bra L0AD6 ldb #$C0 bra L0AD4 ldb #$C1 bra L0AD4 ldb #$C2 L0AD4 ldx $02,s L0AD6 clra lbra L0B5C L0ADA negb fcb $41 A comb coma fcb $41 A inca fcb $45 E fcb $52 R fcb $52 R addd <u0034 rora lda <u0022 bgt L0AFA blt L0B21 leax <L0ADA,pcr lda #$21 os9 I$Open bcs L0B21 sta <u0021 inc <u0022 L0AFA ldx #$0000 leau ,x lda <u0021 os9 I$Seek bcs L0B1F L0B06 leax $06,s ldy #$0050 lda <u0021 os9 I$ReadLn bcs L0B1F ldd ,s subd #$0001 std ,s bne L0B06 leax $06,s clrb L0B1F puls pc,u,b,a L0B21 lda #$80 sta <u0022 comb puls pc,u,b,a L0B28 inca rol $0E,s eim #$20,$0E,s eim #$6D,>$6265 aim #$3D,>$5061 com >$6361 inc $00,y eim #$72,-$0E,s clr -$0E,s bra L0B65 L0B42 negb com $0F,s lsr $05,s bra L0BB5 clr $03,s oim #$74,$09,s clr $0E,s mul L0B51 negb aim #$6F,>$6365 lsr -$0B,s aim #$65,>$2023 L0B5C pshs u,y,x,b,a cmpd #$0064 bcc L0B7C lda $0A,x bita #$40 beq L0B7C lda $0F,x bne L0B7A ldb <u002E beq L0B76 clr <u002E bra L0B78 L0B76 ldb $01,s L0B78 stb $0F,x L0B7A puls pc,u,y,x,b,a L0B7C lbsr L0C08 leax <L0B34,pcr ldd #$000E lbsr L0C19 ldb #$01 stb <u0024 ldd ,s lbsr L0C23 ldd ,s leas <-$51,s lbsr L0AE4 bcs L0BA2 lda #$02 os9 I$WritLn bcs L0C05 L0BA2 leas <$51,s ldb <u002E beq L0BB0 lda #$02 os9 F$PErr clr <u002E L0BB0 ldb <u0040 beq L0C01 leax <L0B51,pcr ldd #$000B bsr L0C19 clra ldb <u0020 bsr L0C23 L0BC1 cmpu <u0014 bcc L0BD7 leax <L0B51,pcr ldd #$000B bsr L0C19 clra ldb $02,u bsr L0C23 ldu ,u bra L0BC1 L0BD7 ldd <u00CE beq L0BE8 leax >L0B28,pcr ldd #$000C bsr L0C19 ldd <u00CE bsr L0C23 L0BE8 ldx ,s cmpx #$00BE bcs L0C01 cmpx #$00C7 bhi L0C01 leax >L0B42,pcr ldd #$000F bsr L0C19 ldd $02,s bsr L0C23 L0C01 ldx <u0008 jmp ,x L0C05 os9 F$Exit L0C08 pshs y,x,b,a clra ldb #$0D pshs b leax ,s bsr L0C19 leas $01,s puls pc,y,x,b,a L0C17 leax ,y L0C19 tfr d,y lda #$02 os9 I$WritLn bcs L0C05 rts L0C23 pshs y,x,b,a ldy <u001C lbsr L0616 ldd <u0025 incb bsr L0C17 puls pc,y,x,b,a L0C32 ldx $02,s lda $0B,x bita #$0C beq L0C58 lbsr L0530 clr $0F,x lda $0C,x os9 I$Close bcc L0C50 stb <u002E ldx $02,s ldd #$003F lbsr L0B5C L0C50 ldx $02,s lda $0B,x anda #$F3 sta $0B,x L0C58 puls x leas $02,s jmp ,x L0C5E std $02,x ldb #$B7 stb <u00D0 lda <u003A beq L0C6C clra lbsr L0B5C L0C6C rts L0C6D ldd ,x beq L0C5E cmpd #$0002 bne L0C86 ldd $02,x beq L0C83 asra rorb std $02,x ldd #$0000 rolb L0C83 std ,x rts L0C86 ldd $02,x beq L0C83 tsta bne L0C95 exg a,b std <u000A ldb #$08 bra L0C99 L0C95 std <u000A ldb #$10 L0C99 stb <u0025 ldd #$0000 L0C9E lsl <u000B rol <u000A rolb rola subd ,x bmi L0CAC inc <u000B bra L0CAE L0CAC addd ,x L0CAE dec <u0025 bne L0C9E std ,x ldd <u000A std $02,x rts leax $02,s bsr L0CED bsr L0C6D ldb <u0028 beq L0D2C ldd $02,x bra L0D26 L0CC7 leax $02,s lda <u0037 beq L0CD1 ldd ,x bmi L0CDD L0CD1 bsr L0CED bsr L0C6D ldd ,x tst <u0037 beq L0D22 bra L0D2A L0CDD ldb #$BC stb <u00D0 lda <u003A beq L0CE9 clra lbsr L0B5C L0CE9 clra clrb bra L0D2A L0CED clr <u0028 ldd $02,x bpl L0CFB nega negb sbca #$00 std $02,x com <u0028 L0CFB ldd ,x bpl L0D07 nega negb sbca #$00 std ,x com <u0028 L0D07 rts leax $02,s bsr L0CED bsr L0D42 ldd <u0029 bne L0D32 ldd <u002B cmpd #$8000 bcs L0D22 bhi L0D32 tst <u0028 bne L0D2A bra L0D32 L0D22 tst <u0028 beq L0D2A L0D26 nega negb sbca #$00 L0D2A std $04,s L0D2C ldx ,s leas $04,s jmp ,x L0D32 ldb #$B8 stb <u00D0 lda <u003A beq L0D3E clra lbsr L0B5C L0D3E ldd <u002B bra L0D22 L0D42 ldd ,x beq L0D67 cmpd #$0002 bne L0D50 ldd $02,x bra L0D5C L0D50 ldd $02,x beq L0D67 cmpd #$0002 bne L0D6C ldd ,x L0D5C lslb rola std <u002B ldd #$0000 rolb std <u0029 rts L0D67 std <u002B std <u0029 rts L0D6C ldd #$0000 std <u0029 ldb $01,x lda $03,x mul std <u002B ldb $01,x lda $02,x mul addd <u002A std <u002A bcc L0D85 inc <u0029 L0D85 ldb ,x lda $03,x mul addd <u002A std <u002A bcc L0D92 inc <u0029 L0D92 ldb ,x lda $02,x mul addd <u0029 std <u0029 rts leax $02,s bsr L0D42 ldd <u0029 bne L0DA8 ldd <u002B bra L0D2A L0DA8 ldd #$00B9 lbra L0B5C ldb #$01 stb <u0038 stb <u0037 clr <u0036 stb <u003A clr <u0039 ldx <u004E L0DBC cmpx <u0050 lbcc L0E77 lda ,x+ L0DC4 cmpa #$3A lbeq L0E77 cmpa #$20 beq L0DBC cmpa #$2C beq L0DBC cmpa #$61 bcs L0DDC cmpa #$7A bhi L0DDC suba #$20 L0DDC leau >L0EE7,pcr L0DE0 cmpa ,u beq L0DFE leau $03,u ldb ,u bne L0DE0 leau >L0EF7,pcr L0DEE cmpa ,u beq L0E1A leau $03,u ldb ,u bne L0DEE ldd #$00C8 lbra L0B5C L0DFE ldu $01,u ldd <u0002 leau d,u lda #$01 sta ,u lda ,x+ cmpx <u0050 bhi L0E77 cmpa #$2B beq L0DBC cmpa #$2D bne L0DC4 clr ,u bra L0DBC L0E1A ldu $01,u ldd <u0002 leay d,u clra clrb std ,y L0E24 lda ,x+ cmpx <u0050 bhi L0E77 cmpa #$6B beq L0E5C cmpa #$4B beq L0E5C cmpa #$30 bcs L0E6E cmpa #$39 bhi L0E6E anda #$0F sta <u0027 ldd ,y lslb rola bcs L0E71 std <u000A lslb rola bcs L0E71 lslb rola bcs L0E71 addd <u000A bcs L0E71 addb <u0027 adca #$00 bcs L0E71 std ,y bra L0E24 L0E5C ldd ,y cmpd #$0040 bcc L0E71 lda $01,y clrb lsla lsla std ,y lbra L0DBC L0E6E lbra L0DC4 L0E71 ldd #$00C9 lbra L0B5C L0E77 ldu <u0002 leau <$7E,u stu <u004E ldb #$50 stb <u000A L0E82 cmpx <u0050 bcc L0E90 lda ,x+ sta ,u+ dec <u000A bne L0E82 bra L0E98 L0E90 lda #$20 L0E92 sta ,u+ dec <u000A bne L0E92 L0E98 ldd #$0800 cmpd <u0048 bls L0EA2 std <u0048 L0EA2 ldd <u0042 bne L0EC1 ldx <u0016 beq L0EE0 ldb <u003C stb <u000A clra clrb L0EB0 addd $02,x bcs L0EE1 pshs b ldb <u00D1 abx puls b dec <u000A bne L0EB0 std <u0042 L0EC1 ldd <u0044 bne L0EE0 ldx <u0016 beq L0EE0 ldb <u003C stb <u000A clra clrb L0ECF addd $04,x bcs L0EE1 pshs b ldb <u00D1 abx puls b dec <u000A bne L0ECF std <u0044 L0EE0 rts L0EE1 ldd #$00CA lbra L0B5C L0EE7 deca neg <u0038 tsta neg <u0037 fcb $52 R neg <u0036 rola neg <u0039 fcb $41 A neg <u003A neg <u0045 neg <u0044 lsla neg <u0046 inca neg <u0042 comb neg <u0048 neg <u00DF subr v,cc leax ,s os9 F$Time bcc L0F17 clra clrb std ,s std $02,s std $04,s L0F17 leau <$14,s ldx #$0006 clra L0F1E puls b std [,--u] leax -$01,x bne L0F1E ldu <u0010 ldx ,s leas $0E,s jmp ,x ldx $03,s lda $0A,x lsr $02,s bcs L0F3C ora #$40 sta $0A,x bra L0F4A L0F3C anda #$BF sta $0A,x ldb $0F,x beq L0F4A ldd #$002D lbsr L0B5C L0F4A ldx ,s leas $05,s jmp ,x clr $04,s ldx $02,s ldb $0B,x bitb #$0C bne L0F62 ldd #$005B lbsr L0B5C bra L0F68 L0F62 bitb #$40 beq L0F68 inc $04,s L0F68 ldx ,s leas $04,s jmp ,x ldx $02,s clra ldb $0F,x std $04,s sta $0F,x ldx ,s leas $04,s jmp ,x L0F7D ldx $04,s cmpx #$0010 bcc L0FAF ldx $02,s leax -$01,x cmpx #$0010 bcc L0FAF stx $02,s leax <L0FB3,pcr ldd $06,s std <u000A ldb $03,s lslb ldd b,x pshs b,a lda $05,s ldb $07,s bsr L1020 anda ,s+ andb ,s+ L0FA7 std $08,s ldx ,s leas $08,s jmp ,x L0FAF clra clrb bra L0FA7 L0FB3 neg <u0001 neg <u0003 neg <u0007 neg <u000F neg <u001F neg <u003F neg <u007F neg <u00FF oim #$FF,<u0003 stu >$07FF clr <u00FF tfr f,f swi fcb $FF clr >$FFFF stu >$AE66 cmpx #$0010 bcc L101A ldx $04,s leax -$01,x cmpx #$0010 bcc L101A stx $04,s leax <L0FB3,pcr ldd [<$08,s] std <u000A ldb $05,s lslb ldd b,x coma comb pshs b,a lda $07,s ldb $09,s bsr L1020 anda ,s+ andb ,s+ std <u000A ldb $05,s lslb ldd b,x anda $02,s andb $03,s ora <u000A orb <u000B std <u000A lda $07,s ldb $05,s bsr L1020 std [<$08,s] L101A ldx ,s leas $0A,s jmp ,x L1020 pshs x,a subb ,s+ beq L1047 sex tfr d,x bmi L1039 ldd <u000A L102D lsra rorb bcc L1033 ora #$80 L1033 leax -$01,x bne L102D puls pc,x L1039 ldd <u000A L103B lslb rola bcc L1041 orb #$01 L1041 leax $01,x bne L103B puls pc,x L1047 ldd <u000A puls pc,x L104B comb lsla fcb $45 E inca ldd #$3460 leax <L104B,pcr ldy $06,s ldu $08,s ldd #$1101 os9 F$Fork bcs L1065 os9 F$Wait L1065 clra std $0A,s puls u,y ldx ,s leas $06,s jmp ,x L1070 pshs y ldx $06,s ldb $0B,x bitb #$0C bne L107E ldb #$5F bra L1084 L107E bitb #$08 bne L108A ldb #$5E L1084 clra lbsr L0B5C bra L10B3 L108A bitb #$01 bne L1092 ldb #$5D bra L1084 L1092 lda $0F,x bne L10B3 ldd $04,s leas <-$51,s lbsr L0AE4 bcs L10B0 pshs x leay -$01,y pshs y pshs y ldd <$5D,s pshs b,a lbsr L05B6 L10B0 leas <$51,s L10B3 puls y ldx ,s leas $06,s jmp ,x L10BB ldx $04,s ldb $0B,x bitb #$0C bne L10C8 ldd #$0061 bra L10DC L10C8 lda $0F,x bne L10E3 ldd $02,s blt L10D5 cmpd $04,x ble L10E1 L10D5 ldd $04,x std $02,x ldd #$0028 L10DC lbsr L0B5C bra L10E3 L10E1 std $02,x L10E3 ldx ,s leas $06,s jmp ,x L10E9 clra bra L10EE L10EC lda #$01 L10EE sta <u000A ldx $04,s ldb $0B,x bitb #$0C bne L10FD ldd #$0055 bra L111B L10FD lda $0F,x bne L111E lda $0C,x clrb ldx $02,s tst <u000A beq L110F os9 I$SetStt bra L1112 L110F os9 I$GetStt L1112 bcc L111E stb <u002E ldx $04,s ldd #$0057 L111B lbsr L0B5C L111E ldx ,s leas $06,s jmp ,x pshs u,y leay $06,s ldb $04,y eorb #$01 stb $04,y bra L117E L1130 suba #$10 bcs L114E suba #$08 bcs L113F pshs a clra ldb $01,x bra L1145 L113F adda #$08 pshs a ldd $01,x L1145 ldx #$0000 tst ,s beq L1177 bra L116B L114E adda #$08 bcc L1161 pshs a clra ldb $01,x ldx $02,x tst ,s bne L116D exg d,x bra L1177 L1161 adda #$08 pshs a ldd $01,x ldx $03,x bra L116D L116B exg d,x L116D lsra rorb exg d,x rora rorb dec ,s bne L116B L1177 leas $01,s rts L117A pshs u,y leay $06,s L117E lda $01,y lbeq L1398 lda $06,y bne L1197 L1188 ldd ,y std $05,y ldd $02,y std $07,y lda $04,y sta $09,y lbra L1398 L1197 lda $05,y suba ,y bvc L11A2 bpl L1188 lbra L1398 L11A2 bmi L11AB cmpa #$1F ble L11B3 lbra L1398 L11AB cmpa #$E1 blt L1188 ldb ,y stb $05,y L11B3 ldb $09,y andb #$01 stb <u0028 eorb $04,y andb #$01 stb ,y ldb $09,y andb #$FE stb $09,y ldb $04,y andb #$FE stb $04,y tsta beq L1201 bpl L11F8 nega leax $05,y lbsr L1130 tst ,y beq L1209 L11DA subd $03,y exg d,x sbcb $02,y sbca $01,y bcc L121F coma comb exg d,x coma comb addd #$0001 exg d,x bcc L11F4 addd #$0001 L11F4 dec <u0028 bra L121F L11F8 leax ,y lbsr L1130 stx $01,y std $03,y L1201 ldx $06,y ldd $08,y tst ,y bne L11DA L1209 addd $03,y exg d,x adcb $02,y adca $01,y bcc L121F rora rorb exg d,x rora rorb inc $05,y bvs L126E exg d,x L121F tsta bmi L1230 L1222 dec $05,y bvs L125F exg d,x lslb rola exg d,x rolb rola bpl L1222 L1230 exg d,x addd #$0001 exg d,x bcc L1243 addd #$0001 bcc L1243 rora inc $05,y bvs L126E L1243 std $06,y tfr x,d andb #$FE tst <u0028 beq L124E incb L124E std $08,y lbra L1398 L1253 pshs u,y leay $06,s lda $01,y bpl L125F lda $06,y bmi L1266 L125F clra clrb std $05,y lbra L1398 L1266 lda ,y adda $05,y bvc L1284 L126C bpl L125F L126E lda <u003B bne L1276 coma lbra L1399 L1276 ldb #$D0 stb <u00D0 lda <u003A beq L125F ldu $02,s clra lbra L0B5C L1284 sta $05,y ldb $09,y eorb $04,y andb #$01 stb <u0028 lda $09,y anda #$FE sta $09,y ldb $04,y andb #$FE stb $04,y mul sta ,-s clr ,-s clr ,-s lda $09,y ldb $03,y mul addd $01,s std $01,s bcc L12AE inc ,s L12AE lda $08,y ldb $04,y mul addd $01,s std $01,s bcc L12BB inc ,s L12BB clr ,-s lda $09,y ldb $02,y mul addd $01,s std $01,s bcc L12CA inc ,s L12CA lda $08,y ldb $03,y mul addd $01,s std $01,s bcc L12D7 inc ,s L12D7 lda $07,y ldb $04,y mul addd $01,s std $01,s bcc L12E4 inc ,s L12E4 clr ,-s lda $09,y ldb $01,y mul addd $01,s std $01,s bcc L12F3 inc ,s L12F3 lda $08,y ldb $02,y mul addd $01,s std $01,s bcc L1300 inc ,s L1300 lda $07,y ldb $03,y mul addd $01,s std $01,s bcc L130D inc ,s L130D lda $06,y ldb $04,y mul addd $01,s std $01,s bcc L131A inc ,s L131A clr ,-s lda $08,y ldb $01,y mul addd $01,s std $01,s bcc L1329 inc ,s L1329 lda $07,y ldb $02,y mul addd $01,s std $01,s bcc L1336 inc ,s L1336 lda $06,y ldb $03,y mul addd $01,s std $01,s bcc L1343 inc ,s L1343 clr ,-s lda $07,y ldb $01,y mul addd $01,s std $01,s bcc L1352 inc ,s L1352 lda $06,y ldb $02,y mul addd $01,s std $01,s bcc L135F inc ,s L135F lda $06,y ldb $01,y mul addd ,s bmi L1374 lsl $04,s rol $03,s rol $02,s rolb rola dec $05,y bvs L138B L1374 std $06,y ldd $02,s addd #$0001 bcc L1390 inc $07,y bne L1392 inc $06,y bne L1392 ror $06,y inc $05,y bvc L1392 L138B leas $07,s lbra L126C L1390 andb #$FE L1392 orb <u0028 std $08,y leas $07,s L1398 clra L1399 puls u,y ldx ,s leas $07,s jmp ,x L13A1 pshs u,y leay $06,s lda $01,y bne L13B5 ldb #$D1 stb <u00D0 lda <u003A beq L13B7 clra lbra L0B5C L13B5 lda $06,y L13B7 lbeq L125F lda $05,y suba ,y lbvs L126C sta $05,y lda #$21 ldb $04,y eorb $09,y andb #$01 std <u000A lsr $01,y ror $02,y ror $03,y ror $04,y ldd $06,y ldx $08,y lsra rorb exg d,x rora rorb clr $09,y bra L13E7 L13E5 exg d,x L13E7 subd $03,y exg d,x bcc L13F0 subd #$0001 L13F0 subd $01,y beq L1423 bmi L141F L13F6 orcc #$01 L13F8 dec <u000A beq L1470 rol $09,y rol $08,y rol $07,y rol $06,y exg d,x lslb rola exg d,x rolb rola bcc L13E5 exg d,x addd $03,y exg d,x bcc L1419 addd #$0001 L1419 addd $01,y beq L1423 bpl L13F6 L141F andcc #$FE bra L13F8 L1423 leax ,x bne L13F6 ldb <u000A decb subb #$10 blt L1445 subb #$08 blt L143A stb <u000A lda $09,y ldb #$80 bra L1463 L143A addb #$08 stb <u000A ldd #$8000 ldx $08,y bra L1465 L1445 addb #$08 blt L1453 stb <u000A ldx $07,y lda $09,y ldb #$80 bra L1465 L1453 addb #$07 stb <u000A ldx $06,y ldd $08,y orcc #$01 L145D rolb rola exg d,x rolb rola L1463 exg d,x L1465 andcc #$FE dec <u000A bpl L145D exg d,x tsta bra L1474 L1470 ldx $08,y ldd $06,y L1474 bmi L1484 exg d,x rolb rola exg d,x rolb rola dec $05,y lbvs L125F L1484 exg d,x addd #$0001 exg d,x bcc L1499 addd #$0001 bcc L1499 rora inc $05,y lbvs L126C L1499 std $06,y tfr x,d andb #$FE orb <u000B std $08,y inc $05,y lbvs L126C lbra L1398 L14AC pshs u,y leay $08,s andcc #$F0 lda $06,y bne L14C6 lda $01,y beq L14C4 L14BA lda $04,y L14BC anda #$01 bne L14C4 L14C0 andcc #$F0 orcc #$08 L14C4 puls pc,u,y L14C6 lda $01,y bne L14D0 lda $09,y eora #$01 bra L14BC L14D0 lda $09,y eora $04,y anda #$01 bne L14BA leau $05,y lda $04,y anda #$01 beq L14E2 exg u,y L14E2 ldd ,u cmpd ,y bne L14C4 ldd $02,u cmpd $02,y bne L14F6 lda $04,u cmpa $04,y beq L14C4 L14F6 bcs L14C0 andcc #$F0 puls pc,u,y L14FC stu <u0010 ldx ,s stx <u001E leas -$01,s leau ,s bra L151E L1508 stu <u0010 ldx ,s stx <u001E leas -$01,s ldd $03,s std ,s ldd $05,s std $02,s lda $07,s sta $04,s leau $05,s L151E bsr L1526 ldu <u0010 ldx <u001E jmp ,x L1526 ldx $03,u clra clrb std $03,u std $01,u stb ,u leax ,x beq L1558 tfr x,d ldx #$0010 tsta bpl L1542 nega negb sbca #$00 inc $04,u L1542 tsta bne L1549 leax -$08,x exg a,b L1549 tsta bmi L1552 L154C leax -$01,x lslb rola bpl L154C L1552 std $01,u tfr x,d stb ,u L1558 rts L1559 ldb #$01 bra L155E L155D clrb L155E stb <u0052 ldb $02,s bgt L1572 bmi L156E lda <u0052 beq L156E lda $03,s bmi L15C8 L156E clra clrb bra L15D3 L1572 subb #$10 bhi L15BC bcs L158E lsr $06,s bcc L15BC ldd $03,s cmpd #$8000 bne L15BC tst <u0052 beq L15D3 tst $05,s bmi L15BC bra L15D3 L158E cmpb #$F8 bhi L15A0 stb <u000A ldd $03,s std $04,s clr $03,s ldb <u000A addb #$08 beq L15A9 L15A0 lsr $03,s ror $04,s ror $05,s incb bne L15A0 L15A9 ldd $03,s tst <u0052 beq L15CB tst $05,s bpl L15CB addd #$0001 bvc L15CB lsr $06,s bcs L15D3 L15BC ldb #$DD stb <u00D0 lda <u003A beq L156E clra lbra L0B5C L15C8 ldd #$0001 L15CB lsr $06,s bcc L15D3 nega negb sbca #$00 L15D3 std $05,s ldx ,s leas $05,s jmp ,x L15DB lda <u0058 beq L15F4 ldx $02,y ldd <u0025 addd #$0001 std <u0025 leax d,x cmpd ,y bhi L15F2 lda -$01,x rts L15F2 clra rts L15F4 ldx ,y lda $0B,x bita #$0C bne L1600 ldb #$42 bra L160E L1600 bita #$04 bne L1608 ldb #$41 bra L160E L1608 bita #$01 beq L1619 L160C ldb #$40 L160E clra ldu -$04,y lbsr L0B5C L1614 leas $02,s lbra L1713 L1619 ldb $0F,x bne L1614 bita #$80 bne L1625 ldb <u0026 beq L1636 L1625 pshs x lbsr L078A ldx ,y lda $0B,x bita #$01 bne L160C ldb $0F,x bne L1614 L1636 lda $0E,x ldb #$01 stb <u0026 rts L163D clrb bra L1642 L1640 ldb #$01 L1642 stb <u0058 pshs u,y leay $06,s clra clrb stb <u0053 stb <u0054 stb <u002D stb <u0055 stb <u0056 stb <u0057 stb <u003B std <u0025 pshs b,a pshs b,a pshs b L1660 lbsr L15DB cmpa #$20 beq L1660 cmpa #$2B beq L1671 cmpa #$2D bne L1674 inc <u0053 L1671 lbsr L15DB L1674 cmpa #$2E bne L168F ldb <u0055 beq L1681 ldd #$0048 bra L16FD L1681 inc <u0055 clra clrb pshs b,a pshs b,a pshs b stb <u0057 bra L1671 L168F cmpa #$45 beq L1697 cmpa #$65 bne L16CC L1697 ldb <u002D beq L16F5 clr <u002D lbsr L15DB cmpa #$2B beq L16AA cmpa #$2D bne L16AD inc <u0054 L16AA lbsr L15DB L16AD cmpa #$30 bcs L16F1 cmpa #$39 bhi L16F1 sta <u002D anda #$0F pshs a lda #$0A ldb <u0056 mul addb ,s+ adca #$00 beq L16C8 ldb #$FF L16C8 stb <u0056 bra L16AA L16CC cmpa #$30 bcs L16F1 cmpa #$39 bhi L16F1 sta <u002D lda #$01 clrb lbsr L1764 bcs L16FA ldb <u002D andb #$0F clra pshs b,a lbsr L14FC lbsr L117A bcs L16FA inc <u0057 bra L1671 L16F1 lda <u002D bne L1728 L16F5 ldd #$0049 bra L16FD L16FA ldd #$004A L16FD tst <u0058 bne L170A ldx ,y L1703 ldu -$04,y lbsr L0B5C bra L1713 L170A addd #$0098 stb <u00D0 tst <u003A bne L1703 L1713 lda <u0058 beq L171B leax $04,y bra L171D L171B ldx $02,y L171D ldb #$05 L171F clr ,x+ decb bne L171F leas -$06,y bra L175A L1728 lda <u0055 beq L1739 lda <u0057 ldb #$01 bsr L1764 bcs L16FA lbsr L117A bcs L16FA L1739 lda <u0056 ldb <u0054 bsr L1764 bcs L16FA lda $04,s ora <u0053 sta $04,s lda <u0058 beq L174F leax $04,y bra L1751 L174F ldx $02,y L1751 ldb #$05 L1753 puls a sta ,x+ decb bne L1753 L175A puls u,y ldx ,s leas $06,s inc <u003B jmp ,x L1764 stx <u000C puls u tsta beq L1798 L176B leax <L179D,pcr std <u000E cmpa #$13 bls L1776 lda #$13 L1776 ldb #$05 mul leax d,x ldb #$05 L177D lda ,-x pshs a decb bne L177D ldb <u000F bne L178D lbsr L1253 L178B bra L1790 L178D lbsr L13A1 L1790 bcs L1799 ldd <u000E suba #$13 bhi L176B L1798 clrb L1799 ldx <u000C jmp ,u L179D lsr <u00A0 neg <u0000 neg <u0007 eorb #$00 neg <u0000 dec <u00FA neg <u0000 neg <u000E cmpx <u0040 neg <u0000 fcb $11 addd #$5000 neg <u0014 andb >$2400 neg <u0018 eora <u0096 suba #$00 fcb $1B ldx >$BC20 neg <u001E ldu $0B,s bvc L17CA L17CA bhi L1761 aim #$F9,<u0000 bcs L178B coma sta >$4028 eorb [,u] bita -$10,x bge L176C anda #$E7 bpl L180E bita >$E620 andb >$32E3 clrb adca -$0E,y pshu pc,dp,b,a fcb $1B adcb #$C0 rts cmpa >$A2BC bgt L182F ldu <u000B tim #u003A,$00,u ora #$C7 bls L1800 L17FC pshs u,y,x clr <u0054 L1800 clr <u0053 clr <u000A clr <u000B clr <u0056 clr <u0057 leau ,x ldd #$0A30 L180F stb ,u+ deca bne L180F ldb $01,y lbeq L18E9 ldb #$04 L181C lda b,y pshs a decb bpl L181C leay ,s ldb $04,y bitb #$01 beq L1831 inc <u0053 andb #$FE L182F stb $04,y L1831 ldd ,y bpl L1839 inc <u0054 nega inca L1839 ldb #$9A mul lsra beq L185A sta <u0056 ldb <u0054 beq L1847 neg <u0056 L1847 eorb #$01 lbsr L1764 lda ,y cmpa #$03 ble L185A inc <u0056 ldd #$0101 lbsr L1764 L185A ldd $01,y tst ,y beq L1886 bpl L1872 L1862 lsra rorb ror $03,y ror $04,y ror <u000A inc ,y bne L1862 std $01,y bra L1886 L1872 lsl $04,y rol $03,y rolb rola rol <u000B dec ,y bne L1872 std $01,y inc <u0056 lda <u000B bsr L18EB L1886 ldd $01,y ldu $03,y L188A clr <u000B bsr L18F2 std $01,y stu $03,y pshs a lda <u000B sta <u000A puls a bsr L18F2 bsr L18F2 exg d,u addd $03,y exg d,u adcb $02,y adca $01,y pshs a lda <u000B adca <u000A bsr L18EB lda <u0057 cmpa #$09 puls a beq L18C4 cmpd #$0000 bne L188A cmpu #$0000 bne L188A L18C4 sta ,y lda <u0057 cmpa #$09 bcs L18E5 ldb ,y bpl L18E5 L18D0 lda ,-x inca sta ,x cmpa #$39 bls L18E5 lda #$30 sta ,x cmpx $05,s bne L18D0 inc ,x inc <u0056 L18E5 dec <u0056 leas $05,s L18E9 puls pc,u,y,x L18EB ora #$30 sta ,x+ inc <u0057 rts L18F2 exg d,u lslb rola exg d,u rolb rola rol <u000B rts L18FD lda b,x adda #$05 bra L1909 L1903 decb bmi L1915 lda b,x inca L1909 sta b,x cmpa #$39 bls L1919 lda #$30 sta b,x bra L1903 L1915 inc ,x inc <u0056 L1919 rts L191A pshs u,y leay $0C,s ldx <u001C lbsr L17FC ldd $08,s lbpl L19B9 ldd #$0008 cmpd $0A,s bgt L1939 ldd #$0052 cmpd $0A,s bgt L193B L1939 std $0A,s L193B ldd $0A,s cmpd #$0010 bge L1947 subb #$06 bsr L18FD L1947 lda #$20 ldb <u0053 beq L194F lda #$2D L194F leas <-$52,s leay ,s sta ,y+ lda ,x+ ldb #$2E std ,y++ lda ,x+ sta ,y+ ldd <$5C,s subb #$08 lda #$07 std <u0025 tstb beq L1980 L196C lda ,x+ sta ,y+ dec <u0026 beq L1980 dec <u0025 bne L196C L1978 lda #$30 sta ,y+ dec <u0026 bne L1978 L1980 lda #$45 sta ,y+ lda #$2B ldb <u0056 bpl L198D lda #$2D negb L198D sta ,y+ lda #$30 L1991 subb #$0A bcs L1998 inca bra L1991 L1998 addb #$3A std ,y++ leau ,s ldx <$5C,s leay ,x L19A3 ldd <$58,s pshs u,y,x,b,a ldu <$5C,s lbsr L05B6 leas <$52,s puls u,y ldx ,s leas $0D,s jmp ,x L19B9 cmpd #$002A bls L19C1 ldb #$2A L19C1 stb <u000A incb addb <u0056 cmpb #$09 bhi L19CD lbsr L18FD L19CD ldb <u0056 incb lda #$09 std <u0025 leas <-$52,s leay ,s lda <u0053 beq L19E1 lda #$2D sta ,y+ L19E1 cmpb #$00 ble L1A2A L19E5 lda ,x+ sta ,y+ dec <u0026 beq L19F9 dec <u0025 bne L19E5 L19F1 lda #$30 sta ,y+ dec <u0026 bne L19F1 L19F9 lda <u000A beq L1A19 lda #$2E sta ,y+ lda <u0025 beq L1A11 L1A05 lda ,x+ sta ,y+ dec <u000A beq L1A19 dec <u0025 bne L1A05 L1A11 lda #$30 sta ,y+ dec <u000A bne L1A11 L1A19 leau ,s tfr y,d pshs u subd ,s++ tfr d,x ldy <$5C,s lbra L19A3 L1A2A lda #$30 sta ,y+ lda <u000A beq L1A19 lda #$2E sta ,y+ negb stb <u0026 beq L1A47 L1A3B lda #$30 sta ,y+ dec <u000A beq L1A19 dec <u0026 bne L1A3B L1A47 lda ,x+ sta ,y+ dec <u000A beq L1A19 dec <u0025 bne L1A47 L1A53 lda #$30 sta ,y+ dec <u000A bne L1A53 bra L1A19 L1A5D lbsr L14AC beq L1A65 L1A62 clrb bra L1A67 L1A65 ldb #$01 L1A67 ldx ,s leas $0B,s stb ,s jmp ,x L1A6F lbsr L14AC bne L1A65 bra L1A62 L1A76 lbsr L14AC bgt L1A65 bra L1A62 L1A7D lbsr L14AC bge L1A65 bra L1A62 L1A84 lbsr L14AC blt L1A65 bra L1A62 L1A8B lbsr L14AC ble L1A65 bra L1A62 L1A92 ldb ,y bgt L1AA8 bmi L1A9C lda $01,y bmi L1A9F L1A9C clrb bra L1AA1 L1A9F ldb #$01 L1AA1 clra std $02,u clrb std ,u rts L1AA8 subb #$20 bhi L1AD9 stb <u0025 ldd $01,y std ,u ldd $03,y bitb #$01 bne L1AD9 tst <u0025 beq L1AD5 L1ABC lsr ,u ror $01,u rora rorb inc <u0025 bne L1ABC bcc L1AD5 addd #$0001 bne L1AD5 inc $01,u bne L1AD5 inc ,u beq L1AD9 L1AD5 std $02,u clrb rts L1AD9 bsr L1A9C comb rts L1ADD ldd ,u beq L1AEB std $01,y ldd $02,u std $03,y ldb #$20 bra L1AF8 L1AEB std $03,y ldd $02,u bne L1AF4 std ,y rts L1AF4 std $01,y ldb #$10 L1AF8 stb ,y tst $01,y bmi L1B0A L1AFE dec ,y lsl $04,y rol $03,y rol $02,y rol $01,y bpl L1AFE L1B0A ldb $04,y andb #$FE stb $04,y rts pshs u,y ldx $06,s ldb $0B,x bitb #$0C bne L1B27 ldd #$0058 lbsr L0B5C L1B21 clra clrb std $08,s bra L1B31 L1B27 lda $0F,x bne L1B21 leay $08,s leau $06,x bsr L1ADD L1B31 puls u,y ldx ,s leas $04,s jmp ,x pshs u,y ldx $0B,s ldb $0B,x bitb #$0C bne L1B4D ldb #$56 L1B45 clra ldu $02,s lbsr L0B5C bra L1B96 L1B4D lda $0F,x bne L1B96 ldb $0B,x andb #$FE orb #$80 stb $0B,x leay $06,s leau $06,x lbsr L1A92 bcs L1B92 leas -$05,s leay ,s lbsr L1ADD ldd $04,x pshs b,a lbsr L14FC lbsr L1253 ldu <u0002 leau <$29,u lbsr L1A92 leas $05,s bcs L1B92 ldx $0B,s lda $0C,x ldx <u0029 ldu <u002B os9 I$Seek bcc L1B96 stb <u002E ldb #$53 bra L1B45 L1B92 ldb #$54 bra L1B45 L1B96 puls u,y ldx ,s leas $09,s jmp ,x pshs u,y leas -$05,s ldx $0B,s ldb $0B,x andb #$0C bne L1BAF ldd #$0059 bra L1BEE L1BAF cmpb #$04 bne L1BB8 ldd #$004D bra L1BEE L1BB8 lda $0F,x bne L1BF3 leau $06,x leay ,s lbsr L1ADD ldd $04,x pshs b,a lbsr L14FC lbsr L1253 ldu <u0002 leau <$29,u lbsr L1A92 bcc L1BDC ldd #$004B bra L1BEE L1BDC ldx $0B,s lda $0C,x ldx <u0029 ldu <u002B ldb #$02 os9 I$SetStt bcc L1BF3 ldd #$004C L1BEE ldu $07,s lbsr L0B5C L1BF3 leas $05,s puls u,y ldx ,s leas $04,s jmp ,x L1BFD pshs u,y leas -$05,s ldx $0B,s ldb $0B,x bitb #$0C bne L1C0E ldd #$0052 bra L1C74 L1C0E lda $0F,x bne L1C79 orb #$80 stb $0B,x lda $0C,x ldb #$02 os9 I$GetStt bcs L1C4B stx <u0029 stu <u002B ldu <u0002 leau <$29,u leay ,s lbsr L1ADD ldx $0B,s ldd $04,x pshs b,a leau $06,x lbsr L14FC lbsr L13A1 lbsr L1A92 ldx $0B,s lda $0C,x ldx <u0029 ldu <u002B os9 I$Seek bcc L1C52 L1C4B stb <u002E ldd #$0051 bra L1C74 L1C52 ldx $0B,s ldd $04,x pshs b,a lbsr L14FC lbsr L1253 ldu <u0002 leau $0A,u lbsr L1A92 ldx <u000A cmpx <u0029 bne L1C71 ldx <u000C cmpx <u002B beq L1C79 L1C71 ldd #$0050 L1C74 ldu $07,s lbsr L0B5C L1C79 leas $05,s puls u,y ldx ,s leas $04,s jmp ,x L1C83 neg <u0080 subb #$E0 subb >$F8FC ldu >$A662 ble L1CBD cmpa #$1F bge L1CA9 leax <L1C83,pcr anda #$07 ldb a,x lda $02,s lsra lsra lsra cmpa #$03 bne L1CAA L1CA3 orb #$01 andb $06,s stb $06,s L1CA9 rts L1CAA adda #$03 andb a,s stb a,s clrb cmpa #$04 bhi L1CA3 beq L1CB9 stb $04,s L1CB9 stb $05,s bra L1CA3 L1CBD clra clrb std $02,s rts L1CC2 lda $02,s ble L1CCE cmpa #$1F blt L1CCF clra clrb std $02,s L1CCE rts L1CCF clr <u0028 ldb $06,s bitb #$01 beq L1CD9 inc <u0028 L1CD9 andb #$FE stb $06,s clr $02,s suba #$10 bcs L1CFD suba #$08 bcs L1CEE sta <u0025 lda $06,s clrb bra L1CF4 L1CEE adda #$08 sta <u0025 ldd $05,s L1CF4 ldx #$0000 tst <u0025 beq L1D24 bra L1D18 L1CFD adda #$08 bcc L1D10 sta <u0025 ldx $04,s lda $06,s clrb tst <u0025 bne L1D1A exg d,x bra L1D24 L1D10 adda #$08 sta <u0025 ldx $05,s ldd $03,s L1D18 exg d,x L1D1A lslb rola exg d,x rolb rola dec <u0025 bne L1D18 L1D24 tsta bmi L1D4C leax ,x bne L1D40 tstb bne L1D38 tsta beq L1D4C L1D31 dec $02,s lsla bpl L1D31 bra L1D4C L1D38 dec $02,s lslb rola bpl L1D38 bra L1D4C L1D40 dec $02,s exg d,x lslb rola exg d,x rolb rola bpl L1D40 L1D4C std $03,s tfr x,d orb <u0028 std $05,s rts L1D55 pshs u,y leas -$05,s ldx $0B,s ldb $0B,x bitb #$0C bne L1D66 ldd #$0029 bra L1DA4 L1D66 lda $0F,x bne L1DAB lda $0C,x ldb #$02 os9 I$GetStt bcs L1D9F stx <u0029 stu <u002B ldu <u0002 leau <$29,u leay ,s lbsr L1ADD ldx $0B,s ldd $04,x pshs b,a lbsr L14FC lbsr L13A1 lbsr L1A92 leay $0D,s lbsr L1ADD L1D95 leas $05,s puls u,y ldx ,s leas $04,s jmp ,x L1D9F stb <u002E ldd #$002A L1DA4 ldx $0B,s ldu $07,s lbsr L0B5C L1DAB clra clrb std $0D,s bra L1D95 L1DB1 clra clrb std $02,s ldb #$70 stb <u00D0 tst <u003A bne L1DBE rts L1DBE lbra L0B5C emod eom equ *