Mercurial > hg > Members > kono > nitros9-code
diff level1/cmds/help.asm @ 322:0d2d4a28c490
cmp.asm and help.asm now assemble correctly
removed cmp and help binaries
Modifed makefile
| author | boisy |
|---|---|
| date | Wed, 24 Jul 2002 04:17:21 +0000 |
| parents | |
| children | c155aac72190 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/cmds/help.asm Wed Jul 24 04:17:21 2002 +0000 @@ -0,0 +1,2479 @@ +******************************************************************** +* help - Show help for commands +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 5 From Tandy OS-9 Level Two Vr. 2.00.01 + + nam help + ttl Show help for commands + +* Disassembled 02/07/23 22:09:55 by Disasm v1.6 (C) 1988 by RML + + ifp1 + use defsfile + endc + +tylg set Prgrm+Objct +atrv set ReEnt+rev +rev set $01 +edition set 5 + +L0000 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 2 +u0008 rmb 2 +u000A rmb 1 +u000B rmb 2 +u000D rmb 4 +u0011 rmb 15 +u0020 rmb 14 +u002E rmb 1 +u002F rmb 38 +u0055 rmb 14 +u0063 rmb 5 +u0068 rmb 10 +u0072 rmb 123 +u00ED rmb 2 +u00EF rmb 2 +u00F1 rmb 2 +u00F3 rmb 2 +u00F5 rmb 2 +u00F7 rmb 2 +u00F9 rmb 2 +u00FB rmb 2 +u00FD rmb 2 +u00FF rmb 337 +u0250 rmb 2 +u0252 rmb 58 +u028C rmb 1 +u028D rmb 3 +u0290 rmb 6036 +size equ . + +name fcs /help/ + fcb edition + +L0012 fcb $A6 & + fcb $A0 + fcb $A7 ' + fcb $C0 @ + fcb $30 0 + fcb $1F + fcb $26 & + fcb $F8 x + fcb $39 9 +start equ * + pshs y + pshs u + clra + clrb +L0021 sta ,u+ + decb + bne L0021 + ldx ,s + leau ,x + leax >$02A4,x + pshs x + leay >L15AA,pcr + ldx ,y++ + beq L003C + bsr L0012 + ldu $02,s +L003C leau >u00FF,u + ldx ,y++ + beq L0047 + bsr L0012 + clra +L0047 cmpu ,s + beq L0050 + sta ,u+ + bra L0047 +L0050 ldu $02,s + ldd ,y++ + beq L005D + leax >L0000,pcr + lbsr L0160 +L005D ldd ,y++ + beq L0066 + leax ,u + lbsr L0160 +L0066 leas $04,s + puls x + stx >u0290,u + sty >u0250,u + ldd #$0001 + std >u028C,u + leay >u0252,u + leax ,s + lda ,x+ +L0082 ldb >u028D,u + cmpb #$1D + beq L00DE +L008A cmpa #$0D + beq L00DE + cmpa #$20 + beq L0096 + cmpa #$2C + bne L009A +L0096 lda ,x+ + bra L008A +L009A cmpa #$22 + beq L00A2 + cmpa #$27 + bne L00C0 +L00A2 stx ,y++ + inc >u028D,u + pshs a +L00AA lda ,x+ + cmpa #$0D + beq L00B4 + cmpa ,s + bne L00AA +L00B4 puls b + clr -$01,x + cmpa #$0D + beq L00DE + lda ,x+ + bra L0082 +L00C0 leax -$01,x + stx ,y++ + leax $01,x + inc >u028D,u +L00CA cmpa #$0D + beq L00DA + cmpa #$20 + beq L00DA + cmpa #$2C + beq L00DA + lda ,x+ + bra L00CA +L00DA clr -$01,x + bra L0082 +L00DE leax >u0250,u + pshs x + ldd >u028C,u + pshs b,a + leay ,u + bsr L00F8 + lbsr L018C + clr ,-s + clr ,-s + lbsr L159E +L00F8 leax >$02A4,y + stx >$029A,y + sts >$028E,y + sts >$029C,y + ldd #$FF82 +L010D leax d,s + cmpx >$029C,y + bcc L011F + cmpx >$029A,y + bcs L0139 + stx >$029C,y +L011F rts +L0120 fcc "**** STACK OVERFLOW ****" + fcb C$CR + +L0139 leax <L0120,pcr + ldb #$CF + pshs b + lda #$02 + ldy #$0064 +L0146 os9 I$WritLn + clr ,-s + lbsr L15A4 +L014E ldd >$028E,y + subd >$029C,y + rts + ldd >$029C,y + subd >$029A,y +L015F rts +L0160 pshs x + leax d,y + leax d,x + pshs x +L0168 ldd ,y++ + leax d,u + ldd ,x + addd $02,s + std ,x + cmpy ,s + bne L0168 + leas $04,s +L0179 rts +L017A pshs u + ldd #$FFBA + lbsr L010D + clra + clrb + pshs b,a + lbsr L159E + lbra L0719 +L018C pshs u + ldd #$FFB6 + lbsr L010D + leas -$02,s + leax >L017A,pcr + pshs x + lbsr L156E + leas $02,s + ldd #$0080 + pshs b,a + ldd #$0001 + pshs b,a + lbsr L0884 + leas $04,s + leax >L077F,pcr + pshs x + leax >L076F,pcr + pshs x + lbsr L09E6 + leas $04,s + std <u0001 + bne L01D0 + leax >L0781,pcr + pshs x + lbsr L04B7 + leas $02,s +L01D0 ldd #$1000 + ldx <u0001 + std $0B,x + clra + clrb + std <u00FD + ldd $06,s + cmpd #$0001 + lbne L02D5 + clra + clrb + std <u00F3 + leax >$010C,y + pshs x + leax >L079C,pcr + pshs x + lbsr L0A38 + leas $04,s +L01FA clra + clrb + std <u00FB + std <u00FD + leax >$010C,y + pshs x + leax >L07AE,pcr + pshs x + lbsr L0A5A + leas $04,s + leax >$0005,y + pshs x + lbsr L0A7A + std ,s++ + lbeq L028C + leax >$0005,y + stx ,s + leau ,x + ldb ,u + cmpb #$3F + beq L0232 + ldb ,u + bne L0238 +L0232 lbsr L0502 + lbra L0293 +L0238 ldb ,u + cmpb #$20 + lbeq L0293 + bra L0286 +L0242 leau u0001,u +L0244 ldb ,u + cmpb #$20 + beq L024E + ldb ,u + bne L0242 +L024E ldb ,u + cmpb #$20 + bne L0273 + ldd <u00FD + addd #$0001 + std <u00FD + clra + clrb + stb ,u + ldd ,s + pshs b,a + lbsr L02E8 + leas $02,s + lbsr L04E9 + leau u0001,u + tfr u,d + std ,s + bra L0286 +L0273 ldd ,s + pshs b,a + lbsr L02E8 + leas $02,s + lbsr L04E9 + ldd <u00FB + addd #$0001 + std <u00FB +L0286 ldd <u00FB + beq L0244 + bra L0293 +L028C ldd <u00F3 + addd #$0001 + std <u00F3 +L0293 ldd <u00F3 + lbeq L01FA + bra L02DE +L029B ldd $06,s + cmpd #$0001 + ble L02AA + ldd <u00FD + addd #$0001 + std <u00FD +L02AA ldx $08,s + leax $02,x + stx $08,s + ldb [,x] + cmpb #$2D + bne L02CC + ldx [<$08,s] + ldb $01,x + cmpb #$3F + bne L02C4 + lbsr L0502 + bra L02D5 +L02C4 leax >L07C0,pcr + pshs x + bra L02D1 +L02CC ldd [<$08,s] + pshs b,a +L02D1 bsr L02E8 + leas $02,s +L02D5 ldd $06,s + addd #$FFFF + std $06,s + bne L029B +L02DE ldd <u0001 + pshs b,a + lbsr L0DF5 + lbra L04B0 +L02E8 pshs u + ldd #$FFB2 + lbsr L010D + leas -$02,s + leax >L07C5,pcr + pshs x + leax >$00A5,y + pshs x + lbsr L1143 + leas $04,s + ldd $06,s + pshs b,a + leax >$00A5,y + pshs x + lbsr L115B + leas $04,s + leax >L07CE,pcr + pshs x + leax >$00A5,y + pshs x + lbsr L115B + leas $04,s + leax >L07D2,pcr + pshs x + leax >$00A5,y + pshs x + lbsr L09E6 + leas $04,s + std <u0003 + beq L0347 + lbsr L0731 + ldd <u0003 + pshs b,a + lbsr L13BA + leas $02,s + lbra L0719 +L0347 clra + clrb + std <u00F9 + clra + clrb + pshs b,a + clra + clrb + pshs b,a + pshs b,a + ldd <u0001 + pshs b,a + lbsr L0B44 + leas $08,s + cmpd #$FFFF + lbne L0463 + leax >L07D4,pcr + lbra L045C +L036D ldu $06,s + leax >$0055,y + stx ,s + clra + clrb + std <u00F5 + ldd #$0040 + ldx ,s + leax $01,x + stx ,s + stb -$01,x + lbeq L0463 + bra L03B0 +L038A ldb ,u+ + sex + pshs b,a + lbsr L0F1B + std ,s + ldx $02,s + leax $01,x + stx $02,s + ldb -$01,x + sex + pshs b,a + lbsr L0F1B + leas $02,s + cmpd ,s++ + beq L03B0 + ldd <u00F5 + addd #$0001 + std <u00F5 +L03B0 ldb ,u + beq L03B8 + ldd <u00F5 + beq L038A +L03B8 ldb [,s] + cmpb #$0D + beq L03C5 + ldd <u00F5 + addd #$0001 + std <u00F5 +L03C5 ldd <u00F5 + lbne L0463 + ldd <u00F9 + addd #$0001 + std <u00F9 + clra + clrb + std <u00F7 + ldd <u00FD + beq L042F + ldu $06,s + bra L03F5 +L03DE leax >$010C,y + pshs x + ldb ,u + sex + pshs b,a + lbsr L0F1B + std ,s + lbsr L0D04 + leas $04,s + leau u0001,u +L03F5 ldb ,u + bne L03DE + leax >$010C,y + pshs x + leax >L07EA,pcr + pshs x + lbsr L0A5A + leas $04,s + lbsr L04E9 + bra L042F +L040F ldb <u0055 + cmpb #$40 + beq L0428 + leax >$010C,y + pshs x + leax >$0055,y + pshs x + lbsr L0A5A + leas $04,s + bra L042F +L0428 ldd <u00F7 + addd #$0001 + std <u00F7 +L042F ldd <u0001 + pshs b,a + ldd #$0050 + pshs b,a + leax >$0055,y + pshs x + lbsr L0AB5 + leas $06,s + std -$02,s + beq L044B + ldd <u00F7 + beq L040F +L044B ldd <u00F7 + bne L0463 + ldx <u0001 + ldd $06,x + clra + andb #$20 + beq L0463 + leax >L07ED,pcr +L045C pshs x + lbsr L04B7 + leas $02,s +L0463 ldd <u0001 + pshs b,a + ldd #$0050 + pshs b,a + leax >$0055,y + pshs x + lbsr L0AB5 + leas $06,s + std -$02,s + beq L0481 + ldd <u00F9 + lbeq L036D +L0481 ldd <u00F9 + bne L04B2 + ldx <u0001 + ldd $06,x + clra + andb #$20 + beq L0498 + leax >L0805,pcr + pshs x + bsr L04B7 + leas $02,s +L0498 leax >$010C,y + pshs x + ldd $08,s + pshs b,a + lbsr L0A5A + leas $04,s + leax >L081D,pcr + pshs x + lbsr L0A38 +L04B0 leas $02,s +L04B2 bsr L04E9 + lbra L0719 +L04B7 pshs u + ldd #$FFB8 + lbsr L010D + leax >$0119,y + pshs x + leax >L0831,pcr + pshs x + lbsr L0A5A + leas $04,s + leax >$0119,y + pshs x + ldd $06,s + pshs b,a + lbsr L0A5A + leas $04,s + clra + clrb + pshs b,a + lbsr L159E + lbra L0719 +L04E9 pshs u + ldd #$FFB8 + lbsr L010D + leax >$010C,y + pshs x + ldd #$000D + pshs b,a + lbsr L0D04 + lbra L06BA +L0502 pshs u + ldd #$FFB0 + lbsr L010D + leas -$04,s + leax >L0838,pcr + pshs x + lbsr L0A38 + leas $02,s + lbsr L071D + std <u00EF + ldd <u00EF + pshs b,a + ldd #$000A + lbsr L1294 + std <u00EF + clra + clrb + pshs b,a + clra + clrb + pshs b,a + pshs b,a + ldd <u0001 + pshs b,a + lbsr L0B44 + leas $08,s + cmpd #$FFFF + lbne L05CF + leax >L084C,pcr + pshs x + lbsr L04B7 + leas $02,s + lbra L05CF +L0551 ldb <u0005 + cmpb #$40 + lbne L05D3 + leau >$0005,y + leax >$00C3,y + stx $02,s + clra + clrb + std <u00ED + bra L057D +L0569 ldb ,u + ldx $02,s + leax $01,x + stx $02,s + stb -$01,x + ldd <u00ED + addd #$0001 + std <u00ED + subd #$0001 +L057D leau u0001,u + ldb ,u + cmpb #$20 + bgt L0569 + clra + clrb + stb [<$02,s] + leax >$010C,y + pshs x + leax >$00C3,y + pshs x + lbsr L0A5A + leas $04,s + ldd <u00F1 + addd #$0001 + std <u00F1 + cmpd <u00EF + bge L05CC + ldd <u00ED + bra L05C0 +L05AB leax >$010C,y + pshs x + ldd #$0020 + pshs b,a + lbsr L0D04 + leas $04,s + ldd ,s + addd #$0001 +L05C0 std ,s + ldd ,s + cmpd #$000A + blt L05AB + bra L05D3 +L05CC lbsr L04E9 +L05CF clra + clrb + std <u00F1 +L05D3 ldd <u0001 + pshs b,a + ldd #$0050 + pshs b,a + leax >$0005,y + pshs x + lbsr L0AB5 + leas $06,s + std -$02,s + lbne L0551 + ldx <u0001 + ldd $06,x + clra + andb #$20 + beq L0601 + leax >L0862,pcr + pshs x + lbsr L04B7 + leas $02,s +L0601 leax >L0882,pcr + pshs x + leax >L087A,pcr + pshs x + lbsr L09E6 + leas $04,s + std <u0003 + lbeq L06B4 + lbra L068C +L061B leax >$00CD,y + pshs x + lbsr L06BE + std ,s++ + lbeq L068C + leau >$00CD,y + clra + clrb + std <u00ED + bra L0653 +L0634 leax >$010C,y + pshs x + ldb ,u+ + sex + pshs b,a + lbsr L0F1B + std ,s + lbsr L0D04 + leas $04,s + ldd <u00ED + addd #$0001 + std <u00ED + subd #$0001 +L0653 ldb ,u + cmpb #$2E + bne L0634 + ldd <u00F1 + cmpd <u00EF + bge L0685 + ldd <u00ED + bra L0679 +L0664 leax >$010C,y + pshs x + ldd #$0020 + pshs b,a + lbsr L0D04 + leas $04,s + ldd ,s + addd #$0001 +L0679 std ,s + ldd ,s + cmpd #$000A + blt L0664 + bra L068C +L0685 lbsr L04E9 + clra + clrb + std <u00F1 +L068C ldd <u0003 + pshs b,a + ldd #$0001 + pshs b,a + ldd #$0020 + pshs b,a + leax >$00CD,y + pshs x + lbsr L0AFE + leas $08,s + std -$02,s + lbne L061B + ldd <u0003 + pshs b,a + lbsr L13BA + leas $02,s +L06B4 lbsr L04E9 + lbsr L04E9 +L06BA leas $04,s + puls pc,u +L06BE pshs u + ldd #$FFBE + lbsr L010D + leas -$02,s + clra + clrb + std ,s + ldb [<$06,s] + beq L0717 + ldu $06,s + bra L06D7 +L06D5 leau u0001,u +L06D7 ldb ,u + cmpb #$2E + bne L06D5 + ldb ,u + lbeq L06D5 + ldb ,u + cmpb #$7E + lbgt L06D5 + ldb ,u+ + cmpb #$2E + bne L0717 + ldb ,u + cmpb #$68 + beq L06FD + ldb ,u + cmpb #$48 + bne L0717 +L06FD leau u0001,u + ldb ,u + clra + andb #$7F + stb ,u + cmpb #$70 + beq L0710 + ldb ,u + cmpb #$50 + bne L0717 +L0710 ldd ,s + addd #$0001 + std ,s +L0717 ldd ,s +L0719 leas $02,s + puls pc,u +L071D pshs y,x + lda #$01 + ldb #$26 + os9 I$GetStt + bcc L072D + ldd #$0050 + bra L072F +L072D tfr x,d +L072F puls pc,y,x +L0731 pshs u + ldd #$FFB6 + lbsr L010D + bra L0752 +L073B ldb <u0005 + cmpb #$40 + beq L0752 + leax >$010C,y + pshs x + leax >$0005,y + pshs x + lbsr L0A5A + leas $04,s +L0752 ldd <u0003 + pshs b,a + ldd #$0050 + pshs b,a + leax >$0005,y + pshs x + lbsr L0AB5 + leas $06,s + std -$02,s + bne L073B + lbsr L04E9 + puls pc,u + +L076F fcc "/dd/sys/helpmsg" + fcb $00 +L077F fcc "r" + fcb $00 +L0781 fcc "can't open /dd/sys/helpmsg" + fcb $00 +L079C fcc "Hit [ESC] to exit" + fcb $00 +L07AE fcc "What Subject(s)? " + fcb $00 +L07C0 fcc "help" + fcb $00 +L07C5 fcc "/dd/sys/" + fcb $00 +L07CE fcc ".hp" + fcb $00 +L07D2 fcc "r" + fcb $00 +L07D4 fcc "can't reset help file" + fcb $00 +L07EA fcc " -" + fcb $00 +L07ED fcc "error reading help file" + fcb $00 +L0805 fcc "error reading help file" + fcb $00 +L081D fcc ": no help available" + fcb $00 +L0831 fcc "help: " + fcb $00 +L0838 fcc "Help available on: " + fcb $00 +L084C fcc "can't reset help file" + fcb $00 +L0862 fcc "error reading help file" + fcb $00 +L087A fcc "/dd/sys" + fcb $00 +L0882 fcc "d" + fcb $00 +L0884 lda $03,s + ldb #$8A + ldx $04,s + os9 I$SetStt + lbra L1599 +L0890 pshs u + leau >$00FF,y +L0896 ldd u0006,u + clra + andb #$03 + lbeq L0907 +L089F leau u000D,u + pshs u + leax >$01CF,y + cmpx ,s++ + bhi L0896 + ldd #$00C8 + std >$029E,y + lbra L090B + puls pc,u +L08B7 pshs u + ldu $08,s + bne L08C1 + bsr L0890 + tfr d,u +L08C1 stu -$02,s + beq L090B + ldd $04,s + std u0008,u + ldx $06,s + ldb $01,x + cmpb #$2B + beq L08D9 + ldx $06,s + ldb $02,x + cmpb #$2B + bne L08DF +L08D9 ldd u0006,u +L08DB orb #$03 + bra L08FD +L08DF ldd u0006,u + pshs b,a + ldb [<$08,s] + cmpb #$72 + beq L08F1 + ldb [<$08,s] + cmpb #$64 + bne L08F6 +L08F1 ldd #$0001 + bra L08F9 +L08F6 ldd #$0002 +L08F9 ora ,s+ + orb ,s+ +L08FD std u0006,u + ldd u0002,u + addd u000B,u + std u0004,u + std ,u +L0907 tfr u,d + puls pc,u +L090B clra + clrb + puls pc,u +L090F pshs u + ldu $04,s + leas -$04,s + clra + clrb + std ,s + ldx $0A,s + ldb $01,x + sex + tfr d,x + bra L0940 +L0922 ldx $0A,s + ldb $02,x + cmpb #$2B + bne L092F + ldd #$0007 + bra L0937 +L092F ldd #$0004 + bra L0937 +L0934 ldd #$0003 +L0937 std ,s + bra L0950 +L093B leax $04,s + lbra L09A8 +L0940 stx -$02,s + beq L0950 + cmpx #$0078 + beq L0922 + cmpx #$002B + beq L0934 + bra L093B +L0950 ldb [<$0A,s] + sex + tfr d,x + lbra L09B5 +L0959 ldd ,s + orb #$01 + bra L099B +L095F ldd ,s + orb #$02 + pshs b,a + pshs u + lbsr L13AB + leas $04,s + std $02,s + cmpd #$FFFF + beq L098A + ldd #$0002 + pshs b,a + clra + clrb + pshs b,a + pshs b,a + ldd $08,s + pshs b,a + lbsr L1481 + leas $08,s + bra L09CF +L098A ldd ,s + orb #$02 + pshs b,a + pshs u + lbsr L13CC + bra L09A2 +L0997 ldd ,s + orb #$81 +L099B pshs b,a + pshs u + lbsr L13AB +L09A2 leas $04,s + std $02,s + bra L09CF +L09A8 leas -$04,x +L09AA ldd #$00CB + std >$029E,y + clra + clrb + bra L09D1 +L09B5 cmpx #$0072 + lbeq L0959 + cmpx #$0061 + lbeq L095F + cmpx #$0077 + beq L098A + cmpx #$0064 + beq L0997 + bra L09AA +L09CF ldd $02,s +L09D1 leas $04,s + puls pc,u + pshs u + clra + clrb + pshs b,a + ldd $08,s + pshs b,a + ldd $08,s + pshs b,a + lbra L0A31 +L09E6 pshs u + ldd $06,s + pshs b,a + ldd $06,s + pshs b,a + lbsr L090F + leas $04,s + tfr d,u + cmpu #$FFFF + bne L0A01 + clra + clrb + bra L0A36 +L0A01 clra + clrb + bra L0A29 + pshs u + ldd $08,s + pshs b,a + lbsr L0DF5 + leas $02,s + ldd $06,s + pshs b,a + ldd $06,s + pshs b,a + lbsr L090F + leas $04,s + tfr d,u + stu -$02,s + bge L0A27 + clra + clrb + bra L0A36 +L0A27 ldd $08,s +L0A29 pshs b,a + ldd $08,s + pshs b,a + pshs u +L0A31 lbsr L08B7 + leas $06,s +L0A36 puls pc,u +L0A38 pshs u + leax >$010C,y + pshs x + ldd $06,s + pshs b,a + bsr L0A5A + leas $04,s + leax >$010C,y + pshs x + ldd #$000D + pshs b,a + lbsr L0D04 + leas $04,s + puls pc,u +L0A5A pshs u + ldu $04,s + leas -$01,s + bra L0A70 +L0A62 ldd $07,s + pshs b,a + ldb $02,s + sex + pshs b,a + lbsr L0D04 + leas $04,s +L0A70 ldb ,u+ + stb ,s + bne L0A62 + leas $01,s + puls pc,u +L0A7A pshs u,b,a + ldu $06,s + bra L0A84 +L0A80 ldd ,s + stb ,u+ +L0A84 leax >$00FF,y + pshs x + lbsr L0F4E + leas $02,s + std ,s + cmpd #$000D + beq L0A9F + ldd ,s + cmpd #$FFFF + bne L0A80 +L0A9F ldd ,s + cmpd #$FFFF + bne L0AAB + clra + clrb + bra L0AB1 +L0AAB clra + clrb + stb ,u + ldd $06,s +L0AB1 leas $02,s + puls pc,u +L0AB5 pshs u + ldu $06,s + leas -$04,s + ldd $08,s + std ,s + bra L0ACF +L0AC1 ldd $02,s + ldx ,s + leax $01,x + stx ,s + stb -$01,x + cmpb #$0D + beq L0AE8 +L0ACF tfr u,d + leau -u0001,u + std -$02,s + ble L0AE8 + ldd $0C,s + pshs b,a + lbsr L0F4E + leas $02,s + std $02,s + cmpd #$FFFF + bne L0AC1 +L0AE8 clra + clrb + stb [,s] + ldd $02,s + cmpd #$FFFF + bne L0AF8 + clra + clrb + bra L0AFA +L0AF8 ldd $08,s +L0AFA leas $04,s + puls pc,u +L0AFE pshs u + ldu $04,s + leas -$06,s + clra + clrb + bra L0B35 +L0B08 ldd $0C,s + std $04,s + bra L0B24 +L0B0E ldd <$10,s + pshs b,a + lbsr L0F4E + leas $02,s + std ,s + cmpd #$FFFF + beq L0B3E + ldd ,s + stb ,u+ +L0B24 ldd $04,s + addd #$FFFF + std $04,s + subd #$FFFF + bgt L0B0E + ldd $02,s + addd #$0001 +L0B35 std $02,s + ldd $02,s + cmpd $0E,s + blt L0B08 +L0B3E ldd $02,s + leas $06,s + puls pc,u +L0B44 pshs u + ldu $04,s + leas -$06,s + cmpu #$0000 + beq L0B57 + ldd u0006,u + clra + andb #$03 + bne L0B5D +L0B57 ldd #$FFFF + lbra L0C80 +L0B5D ldd u0006,u + anda #$80 + clrb + std -$02,s + bne L0B70 + pshs u + lbsr L10A2 + leas $02,s + lbra L0C46 +L0B70 ldd u0006,u + anda #$01 + clrb + std -$02,s + beq L0B8F + pshs u + lbsr L0E2F + leas $02,s + ldd u0006,u + anda #$FE + std u0006,u + ldd u0002,u + addd u000B,u + std u0004,u + lbra L0C44 +L0B8F ldd ,u + cmpd u0004,u + lbcc L0C46 + leax $02,s + pshs x + leax $0E,s + lbsr L1247 + ldx <$10,s + lbra L0C13 +L0BA7 leax $02,s + pshs x + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + pshs u + lbsr L0C9B + leas $02,s + lbsr L11CE + lbsr L1247 +L0BC0 ldd u000B,u + lbsr L122E + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + leax $06,s + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + bsr L0BDD + neg <u0000 + neg <u0000 +L0BDD puls x + lbsr L11E3 + bge L0BEB + leax $06,s + lbsr L1207 + bra L0BED +L0BEB leax $06,s +L0BED lbsr L11E3 + blt L0C20 + ldd $04,s + addd ,u + std ,s + cmpd u0002,u + bcs L0C20 + ldd ,s + cmpd u0004,u + bcc L0C20 + ldd ,s + std ,u + ldd u0006,u + andb #$EF + std u0006,u + lbra L0C7E + bra L0C20 +L0C13 stx -$02,s + lbeq L0BA7 + cmpx #$0001 + lbeq L0BC0 +L0C20 ldd <$10,s + cmpd #$0001 + bne L0C42 + leax $0C,s + pshs x + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + ldd u0004,u + subd ,u + lbsr L122E + lbsr L11CE + lbsr L1247 +L0C42 ldd u0004,u +L0C44 std ,u +L0C46 ldd u0006,u + andb #$EF + std u0006,u + ldd <$10,s + pshs b,a + leax $0E,s + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + ldd u0008,u + pshs b,a + lbsr L1481 + leas $08,s + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + fcb $8D,$04 + fcb $FF,$FF,$FF + fcb $FF,$35,$10 +L0C72 lbsr L11E3 + bne L0C7E + ldd #$FFFF + bra L0C80 +L0C7E clra + clrb +L0C80 leas $06,s + puls pc,u + pshs u + clra + clrb + pshs b,a + clra + clrb + pshs b,a + pshs b,a + ldd $0A,s + pshs b,a + lbsr L0B44 + leas $08,s + puls pc,u +L0C9B pshs u + ldu $04,s + beq L0CA8 + ldd u0006,u + clra + andb #$03 + bne L0CBB +L0CA8 fdb $8d04 + fcb $FF,$FF + fdb $FFFF,$3510 +L0CAE leau >$0292,y + pshs u + lbsr L1247 + puls pc,u +L0CBB ldd u0006,u + anda #$80 + clrb + std -$02,s + bne L0CCB + pshs u + lbsr L10A2 + leas $02,s +L0CCB ldd #$0001 + pshs b,a + clra + clrb + pshs b,a + pshs b,a + ldd u0008,u + pshs b,a + lbsr L1481 + leas $08,s + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + ldd u0006,u + anda #$01 + clrb + std -$02,s + beq L0CF4 + ldd u0002,u + bra L0CF6 +L0CF4 ldd u0004,u +L0CF6 pshs b,a + ldd ,u + subd ,s++ + lbsr L122E + lbsr L11B9 + puls pc,u +L0D04 pshs u + ldu $06,s + ldd u0006,u + anda #$80 + andb #$22 + cmpd #$8002 + beq L0D28 + ldd u0006,u + clra + andb #$22 + cmpd #$0002 + lbne L0E40 + pshs u + lbsr L10A2 + leas $02,s +L0D28 ldd u0006,u + clra + andb #$04 + beq L0D64 + ldd #$0001 + pshs b,a + leax $07,s + pshs x + ldd u0008,u + pshs b,a + ldd u0006,u + clra + andb #$40 + beq L0D49 + leax >L1471,pcr + bra L0D4D +L0D49 leax >L1458,pcr +L0D4D tfr x,d + tfr d,x + jsr ,x + leas $06,s + cmpd #$FFFF + bne L0DA5 + ldd u0006,u + orb #$20 + std u0006,u + lbra L0E40 +L0D64 ldd u0006,u + anda #$01 + clrb + std -$02,s + bne L0D74 + pshs u + lbsr L0E5D + leas $02,s +L0D74 ldd ,u + addd #$0001 + std ,u + subd #$0001 + tfr d,x + ldd $04,s + stb ,x + ldd ,u + cmpd u0004,u + bcc L0D9A + ldd u0006,u + clra + andb #$40 + beq L0DA5 + ldd $04,s + cmpd #$000D + bne L0DA5 +L0D9A pshs u + lbsr L0E5D + std ,s++ + lbne L0E40 +L0DA5 ldd $04,s + puls pc,u + pshs u + ldu $04,s + ldd $06,s + pshs b,a + pshs u + ldd #$0008 + lbsr L130A + pshs b,a + lbsr L0D04 + leas $04,s + ldd $06,s + pshs b,a + pshs u + lbsr L0D04 + lbra L0F17 +L0DCC pshs u,b,a + leau >$00FF,y + clra + clrb + std ,s + bra L0DE2 +L0DD8 tfr u,d + leau u000D,u + pshs b,a + bsr L0DF5 + leas $02,s +L0DE2 ldd ,s + addd #$0001 + std ,s + subd #$0001 + cmpd #$0010 + blt L0DD8 + lbra L0E59 +L0DF5 pshs u + ldu $04,s + leas -$02,s + cmpu #$0000 + beq L0E05 + ldd u0006,u + bne L0E0B +L0E05 ldd #$FFFF + lbra L0E59 +L0E0B ldd u0006,u + clra + andb #$02 + beq L0E1A + pshs u + bsr L0E2F + leas $02,s + bra L0E1C +L0E1A clra + clrb +L0E1C std ,s + ldd u0008,u + pshs b,a + lbsr L13BA + leas $02,s + clra + clrb + std u0006,u + ldd ,s + bra L0E59 +L0E2F pshs u + ldu $04,s + beq L0E40 + ldd u0006,u + clra + andb #$22 + cmpd #$0002 + beq L0E45 +L0E40 ldd #$FFFF + puls pc,u +L0E45 ldd u0006,u + anda #$80 + clrb + std -$02,s + bne L0E55 + pshs u + lbsr L10A2 + leas $02,s +L0E55 pshs u + bsr L0E5D +L0E59 leas $02,s + puls pc,u +L0E5D pshs u + ldu $04,s + leas -$04,s + ldd u0006,u + anda #$01 + clrb + std -$02,s + bne L0E8F + ldd ,u + cmpd u0004,u + beq L0E8F + clra + clrb + pshs b,a + pshs u + lbsr L0C9B + leas $02,s + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + ldd u0008,u + pshs b,a + lbsr L1481 + leas $08,s +L0E8F ldd ,u + subd u0002,u + std $02,s + lbeq L0F07 + ldd u0006,u + anda #$01 + clrb + std -$02,s + lbeq L0F07 + ldd u0006,u + clra + andb #$40 + beq L0EDE + ldd u0002,u + bra L0ED6 +L0EAF ldd $02,s + pshs b,a + ldd ,u + pshs b,a + ldd u0008,u + pshs b,a + lbsr L1471 + leas $06,s + std ,s + cmpd #$FFFF + bne L0ECC + leax $04,s + bra L0EF6 +L0ECC ldd $02,s + subd ,s + std $02,s + ldd ,u + addd ,s +L0ED6 std ,u + ldd $02,s + bne L0EAF + bra L0F07 +L0EDE ldd $02,s + pshs b,a + ldd u0002,u + pshs b,a + ldd u0008,u + pshs b,a + lbsr L1458 + leas $06,s + cmpd $02,s + beq L0F07 + bra L0EF8 +L0EF6 leas -$04,x +L0EF8 ldd u0006,u + orb #$20 + std u0006,u + ldd u0004,u + std ,u + ldd #$FFFF + bra L0F17 +L0F07 ldd u0006,u + ora #$01 + std u0006,u + ldd u0002,u + std ,u + addd u000B,u + std u0004,u + clra + clrb +L0F17 leas $04,s + puls pc,u +L0F1B pshs u + ldd $04,s + leax >$01D0,y + leax d,x + ldb ,x + clra + andb #$04 + beq L0F4A + ldd $04,s + clra + andb #$DF + bra L0F4C + pshs u + ldd $04,s + leax >$01D0,y + leax d,x + ldb ,x + clra + andb #$02 + beq L0F4A + ldd $04,s + orb #$20 + bra L0F4C +L0F4A ldd $04,s +L0F4C puls pc,u +L0F4E pshs u + ldu $04,s + beq L0F9A + ldd u0006,u + anda #$01 + clrb + std -$02,s + bne L0F9A + ldd ,u + cmpd u0004,u + bcc L0F76 + ldd ,u + addd #$0001 + std ,u + subd #$0001 + tfr d,x + ldb ,x + clra + lbra L10A0 +L0F76 pshs u + lbsr L0FE9 + lbra L109E + pshs u + ldu $06,s + beq L0F9A + ldd u0006,u + clra + andb #$01 + beq L0F9A + ldd $04,s + cmpd #$FFFF + beq L0F9A + ldd ,u + cmpd u0002,u + bhi L0F9F +L0F9A ldd #$FFFF + puls pc,u +L0F9F ldd ,u + addd #$FFFF + std ,u + tfr d,x + ldd $04,s + stb ,x + ldd $04,s + puls pc,u + pshs u + ldu $04,s + leas -$04,s + pshs u + lbsr L0F4E + leas $02,s + std $02,s + cmpd #$FFFF + beq L0FD4 + pshs u + lbsr L0F4E + leas $02,s + std ,s + cmpd #$FFFF + bne L0FD9 +L0FD4 ldd #$FFFF + bra L0FE5 +L0FD9 ldd $02,s + pshs b,a + ldd #$0008 + lbsr L1321 + addd ,s +L0FE5 leas $04,s + puls pc,u +L0FE9 pshs u + ldu $04,s + leas -$02,s + ldd u0006,u + anda #$80 + andb #$31 + cmpd #$8001 + beq L100F + ldd u0006,u + clra + andb #$31 + cmpd #$0001 + lbne L1088 + pshs u + lbsr L10A2 + leas $02,s +L100F leax >$00FF,y + pshs x + cmpu ,s++ + bne L102C + ldd u0006,u + clra + andb #$40 + beq L102C + leax >$010C,y + pshs x + lbsr L0E2F + leas $02,s +L102C ldd u0006,u + clra + andb #$08 + beq L1058 + ldd u000B,u + pshs b,a + ldd u0002,u + pshs b,a + ldd u0008,u + pshs b,a + ldd u0006,u + clra + andb #$40 + beq L104C + leax >L1448,pcr + bra L1050 +L104C leax >L1427,pcr +L1050 tfr x,d + tfr d,x + jsr ,x + bra L106A +L1058 ldd #$0001 + pshs b,a + leax u000A,u + stx u0002,u + pshs x + ldd u0008,u + pshs b,a + lbsr L1427 +L106A leas $06,s + std ,s + ldd ,s + bgt L108D + ldd u0006,u + pshs b,a + ldd $02,s + beq L107F + ldd #$0020 + bra L1082 +L107F ldd #$0010 +L1082 ora ,s+ + orb ,s+ + std u0006,u +L1088 ldd #$FFFF + bra L109E +L108D ldd u0002,u + addd #$0001 + std ,u + ldd u0002,u + addd ,s + std u0004,u + ldb [<u0002,u] + clra +L109E leas $02,s +L10A0 puls pc,u +L10A2 pshs u + ldu $04,s + ldd u0006,u + clra + andb #$C0 + bne L10DA + leas <-$20,s + leax ,s + pshs x + ldd u0008,u + pshs b,a + clra + clrb + pshs b,a + lbsr L133C + leas $06,s + ldd u0006,u + pshs b,a + ldb $02,s + bne L10CE + ldd #$0040 + bra L10D1 +L10CE ldd #$0080 +L10D1 ora ,s+ + orb ,s+ + std u0006,u + leas <$20,s +L10DA ldd u0006,u + ora #$80 + std u0006,u + clra + andb #$0C + beq L10E7 + puls pc,u +L10E7 ldd u000B,u + bne L10FC + ldd u0006,u + clra + andb #$40 + beq L10F7 + ldd #$0080 + bra L10FA +L10F7 ldd #$0100 +L10FA std u000B,u +L10FC ldd u0002,u + bne L1111 + ldd u000B,u + pshs b,a + lbsr L1541 + leas $02,s + std u0002,u + cmpd #$FFFF + beq L1119 +L1111 ldd u0006,u + orb #$08 + std u0006,u + bra L1128 +L1119 ldd u0006,u + orb #$04 + std u0006,u + leax u000A,u + stx u0002,u + ldd #$0001 + std u000B,u +L1128 ldd u0002,u + addd u000B,u + std u0004,u + std ,u + puls pc,u + pshs u + ldu $04,s +L1136 ldb ,u+ + bne L1136 + tfr u,d + subd $04,s + addd #$FFFF + puls pc,u +L1143 pshs u + ldu $06,s + leas -$02,s + ldd $06,s + std ,s +L114D ldb ,u+ + ldx ,s + leax $01,x + stx ,s + stb -$01,x + bne L114D + bra L1182 +L115B pshs u + ldu $06,s + leas -$02,s + ldd $06,s + std ,s +L1165 ldx ,s + leax $01,x + stx ,s + ldb -$01,x + bne L1165 + ldd ,s + addd #$FFFF + std ,s +L1176 ldb ,u+ + ldx ,s + leax $01,x + stx ,s + stb -$01,x + bne L1176 +L1182 ldd $06,s + leas $02,s + puls pc,u + pshs u + ldu $04,s + bra L119E +L118E ldx $06,s + leax $01,x + stx $06,s + ldb -$01,x + bne L119C + clra + clrb + puls pc,u +L119C leau u0001,u +L119E ldb ,u + sex + pshs b,a + ldb [<$08,s] + sex + cmpd ,s++ + beq L118E + ldb [<$06,s] + sex + pshs b,a + ldb ,u + sex + subd ,s++ + puls pc,u +L11B9 ldd $04,s + addd $02,x + std >$0294,y + ldd $02,s + adcb $01,x + adca ,x + std >$0292,y + lbra L125D +L11CE ldd $04,s + subd $02,x + std >$0294,y + ldd $02,s + sbcb $01,x + sbca ,x + std >$0292,y + lbra L125D +L11E3 ldd $02,s + cmpd ,x + bne L11FC + ldd $04,s + cmpd $02,x + beq L11FC + bcs L11F9 + lda #$01 + andcc #$FE + bra L11FC +L11F9 clra + cmpa #$01 +L11FC pshs cc + ldd $01,s + std $05,s + puls cc + leas $04,s + rts +L1207 lbsr L126C + ldd #$0000 + subd $02,x + std $02,x + ldd #$0000 + sbcb $01,x + sbca ,x + std ,x + rts + ldd ,x + coma + comb + std >$0292,y + ldd $02,x + coma + comb + leax >$0292,y + std $02,x + rts +L122E leax >$0292,y + std $02,x + tfr a,b + sex + tfr a,b + std ,x + rts + leax >$0292,y + std $02,x + clr ,x + clr $01,x + rts +L1247 pshs y + ldy $04,s + ldd ,x + std ,y + ldd $02,x + std $02,y + puls x + exg y,x + puls b,a + std ,s + rts +L125D tfr cc,a + puls x + stx $02,s + leas $02,s + leax >$0292,y + tfr a,cc + rts +L126C ldd ,x + std >$0292,y + ldd $02,x + leax >$0292,y + std $02,x + rts + subd #$0000 + beq L128A + pshs b,a + leas -$02,s + clr ,s + clr $01,s + bra L12B8 +L128A puls b,a + std ,s + ldd #$002D + lbra L132D +L1294 subd #$0000 + beq L128A + pshs b,a + leas -$02,s + clr ,s + clr $01,s + tsta + bpl L12AC + nega + negb + sbca #$00 + inc $01,s + std $02,s +L12AC ldd $06,s + bpl L12B8 + nega + negb + sbca #$00 + com $01,s + std $06,s +L12B8 lda #$01 +L12BA inca + lsl $03,s + rol $02,s + bpl L12BA + sta ,s + ldd $06,s + clr $06,s + clr $07,s +L12C9 subd $02,s + bcc L12D3 + addd $02,s + andcc #$FE + bra L12D5 +L12D3 orcc #$01 +L12D5 rol $07,s + rol $06,s + lsr $02,s + ror $03,s + dec ,s + bne L12C9 + std $02,s + tst $01,s + beq L12EF + ldd $06,s + nega + negb + sbca #$00 + std $06,s +L12EF ldx $04,s + ldd $06,s + std $04,s + stx $06,s + ldx $02,s + ldd $04,s + leas $06,s + rts + tstb + beq L1314 +L1301 asr $02,s + ror $03,s + decb + bne L1301 + bra L1314 +L130A tstb + beq L1314 +L130D lsr $02,s + ror $03,s + decb + bne L130D +L1314 ldd $02,s + pshs b,a + ldd $02,s + std $04,s + ldd ,s + leas $04,s + rts +L1321 tstb + beq L1314 +L1324 lsl $03,s + rol $02,s + decb + bne L1324 + bra L1314 +L132D std >$029E,y + pshs y,b + os9 F$ID + puls y,b + os9 F$Send + rts +L133C lda $05,s + ldb $03,s + beq L136F + cmpb #$01 + beq L1371 + cmpb #$06 + beq L1371 + cmpb #$02 + beq L1357 + cmpb #$05 + beq L1357 + ldb #$D0 + lbra L1590 +L1357 pshs u + os9 I$GetStt + bcc L1363 + puls u + lbra L1590 +L1363 stx [<$08,s] + ldx $08,s + stu $02,x + puls u + clra + clrb + rts +L136F ldx $06,s +L1371 os9 I$GetStt + lbra L1599 + lda $05,s + ldb $03,s + beq L1386 + cmpb #$02 + beq L138E + ldb #$D0 + lbra L1590 +L1386 ldx $06,s + os9 I$SetStt + lbra L1599 +L138E pshs u + ldx $08,s + ldu $0A,s + os9 I$SetStt + puls u + lbra L1599 + ldx $02,s + lda $05,s + os9 I$Open + bcs L13A8 + os9 I$Close +L13A8 lbra L1599 +L13AB ldx $02,s + lda $05,s + os9 I$Open + lbcs L1590 + tfr a,b + clra + rts +L13BA lda $03,s + os9 I$Close + lbra L1599 + ldx $02,s + ldb $05,s + os9 I$MakDir + lbra L1599 +L13CC ldx $02,s + lda $05,s + tfr a,b + andb #$24 + orb #$0B + os9 I$Create + bcs L13DF +L13DB tfr a,b + clra + rts +L13DF cmpb #$DA + lbne L1590 + lda $05,s + bita #$80 + lbne L1590 + anda #$07 + ldx $02,s + os9 I$Open + lbcs L1590 + pshs u,a + ldx #$0000 + leau ,x + ldb #$02 + os9 I$SetStt + puls u,a + bcc L13DB + pshs b + os9 I$Close + puls b + lbra L1590 + ldx $02,s + os9 I$Delete + lbra L1599 + lda $03,s + os9 I$Dup + lbcs L1590 + tfr a,b + clra + rts +L1427 pshs y + ldx $06,s + lda $05,s + ldy $08,s + pshs y + os9 I$Read +L1435 bcc L1444 + cmpb #$D3 + bne L143F + clra + clrb + puls pc,y,x +L143F puls y,x + lbra L1590 +L1444 tfr y,d + puls pc,y,x +L1448 pshs y + lda $05,s + ldx $06,s + ldy $08,s + pshs y + os9 I$ReadLn + bra L1435 +L1458 pshs y + ldy $08,s + beq L146D + lda $05,s + ldx $06,s + os9 I$Write +L1466 bcc L146D + puls y + lbra L1590 +L146D tfr y,d + puls pc,y +L1471 pshs y + ldy $08,s + beq L146D + lda $05,s + ldx $06,s + os9 I$WritLn + bra L1466 +L1481 pshs u + ldd $0A,s + bne L148F + ldu #$0000 + ldx #$0000 + bra L14C3 +L148F cmpd #$0001 + beq L14BA + cmpd #$0002 + beq L14AF + ldb #$F7 +L149D clra + std >$029E,y + ldd #$FFFF + leax >$0292,y + std ,x + std $02,x + puls pc,u +L14AF lda $05,s + ldb #$02 + os9 I$GetStt + bcs L149D + bra L14C3 +L14BA lda $05,s + ldb #$05 + os9 I$GetStt + bcs L149D +L14C3 tfr u,d + addd $08,s + std >$0294,y + tfr d,u + tfr x,d + adcb $07,s + adca $06,s + bmi L149D + tfr d,x + std >$0292,y + lda $05,s + os9 I$Seek + bcs L149D + leax >$0292,y + puls pc,u + ldd >$0290,y + pshs b,a + ldd $04,s + cmpd >$02A0,y + bcs L151E + addd >$0290,y + bcs L150A + pshs y + subd ,s + os9 F$Mem + tfr y,d + puls y + bcc L1510 +L150A ldd #$FFFF + leas $02,s + rts +L1510 std >$0290,y + addd >$02A0,y + subd ,s + std >$02A0,y +L151E leas $02,s + ldd >$02A0,y + pshs b,a + subd $04,s + std >$02A0,y + ldd >$0290,y + subd ,s++ + pshs b,a + clra + ldx ,s +L1537 sta ,x+ + cmpx >$0290,y + bcs L1537 + puls pc,b,a +L1541 ldd $02,s + addd >$029A,y + bcs L156A + cmpd >$029C,y + bcc L156A + pshs b,a + ldx >$029A,y + clra +L1557 cmpx ,s + bcc L155F + sta ,x+ + bra L1557 +L155F ldd >$029A,y + puls x + stx >$029A,y + rts +L156A ldd #$FFFF + rts +L156E pshs u + tfr y,u + ldx $04,s + stx >$02A2,y + leax >L1584,pcr + os9 F$Icpt + puls u + lbra L1599 +L1584 tfr u,y + clra + pshs b,a + jsr [>$02A2,y] + leas $02,s + rti +L1590 clra + std >$029E,y + ldd #$FFFF + rts +L1599 bcs L1590 + clra + clrb + rts +L159E lbsr L15A9 + lbsr L0DCC +L15A4 ldd $02,s + os9 F$Exit +L15A9 rts +L15AA fdb $0001,$0001,$5100 + fdb $0000,$0000,$0000,$0100,$0000,$0000,$0000,$0000 + fdb $0000,$0002,$0001,$0000,$0000,$0000,$0000,$0000 + fdb $4200,$0200,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000 + fdb $0101,$0101,$0101,$0101,$0111,$1101,$1111,$0101 + fdb $0101,$0101,$0101,$0101,$0101,$0101,$0101,$0101 + fdb $3020,$2020,$2020,$2020,$2020,$2020,$2020,$2020 + fdb $4848,$4848,$4848,$4848,$4848,$2020,$2020,$2020 + fdb $2042,$4242,$4242,$4202,$0202,$0202,$0202,$0202 + fdb $0202,$0202,$0202,$0202,$0202,$0220,$2020,$2020 + fdb $2044,$4444,$4444,$4404,$0404,$0404,$0404,$0404 + fdb $0404,$0404,$0404,$0404,$0404,$0420,$2020,$2001 + fdb $0000,$0000 + fcc "help" + fcb $00 + + emod +eom equ * + end