# HG changeset patch # User boisy # Date 1027372203 0 # Node ID f15de6a06ad6d9ad8b908a671b6af45b71306493 # Parent d1d725215c013f20dd2fc40358c1dd22006c3257 Added config.asm diff -r d1d725215c01 -r f15de6a06ad6 level1/cmds/config Binary file level1/cmds/config has changed diff -r d1d725215c01 -r f15de6a06ad6 level1/cmds/config.asm --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level1/cmds/config.asm Mon Jul 22 21:10:03 2002 +0000 @@ -0,0 +1,4377 @@ +******************************************************************** +* Config - Boot configurator +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 4 From Tandy OS-9 Level One VR 02.00.00 + + nam Config + ttl Boot configurator + +* Disassembled 02/07/22 07:36: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 4 + +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 2 +u0007 rmb 2 +u0009 rmb 1 +u000A rmb 3 +u000D rmb 2 +u000F rmb 2 +u0011 rmb 14 +u001F rmb 1 +u0020 rmb 1 +u0021 rmb 2 +u0023 rmb 6 +u0029 rmb 2 +u002B rmb 2 +u002D rmb 1 +u002E rmb 1 +u002F rmb 2 +u0031 rmb 1 +u0032 rmb 1 +u0033 rmb 1 +u0034 rmb 1 +u0035 rmb 2 +u0037 rmb 2 +u0039 rmb 2 +u003B rmb 2 +u003D rmb 2 +u003F rmb 2 +u0041 rmb 1 +u0042 rmb 1 +u0043 rmb 1 +u0044 rmb 1 +u0045 rmb 2 +u0047 rmb 1 +u0048 rmb 1 +u0049 rmb 2 +u004B rmb 2 +u004D rmb 2 +u004F rmb 1 +u0050 rmb 1 +u0051 rmb 1 +u0052 rmb 1 +u0053 rmb 1 +u0054 rmb 3 +u0057 rmb 4 +u005B rmb 8 +u0063 rmb 1 +u0064 rmb 11 +u006F rmb 4 +u0073 rmb 25 +u008C rmb 2 +u008E rmb 86 +u00E4 rmb 21 +u00F9 rmb 1168 +u0589 rmb 1084 +size equ . + +name fcs /config/ + fcb edition + +L0014 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 +L0023 sta ,u+ + decb + bne L0023 + ldx ,s + leau ,x + leax >$0645,x + pshs x + leay >L2918,pcr + ldx ,y++ + beq L003E + bsr L0014 + ldu $02,s +L003E leau >u008E,u + ldx ,y++ + beq L0049 + bsr L0014 + clra +L0049 cmpu ,s + beq L0052 + sta ,u+ + bra L0049 +L0052 ldu $02,s + ldd ,y++ + beq L005F + leax >L0000,pcr + lbsr L0151 +L005F ldd ,y++ + beq L0068 + leax ,u + lbsr L0151 +L0068 leas $04,s + puls x + stx >u0589,u + pshs y + ldy #$0001 + leax $02,s +L0078 lda ,x+ + cmpa #$0D + beq L00BC + cmpa #$20 + beq L0078 + cmpa #$2C + beq L0078 + cmpa #$22 + beq L00A6 + cmpa #$27 + beq L00A6 + leax -$01,x + pshs x + leay $01,y +L0094 lda ,x+ + beq L00B6 + cmpa #$0D + beq L00B6 + cmpa #$20 + beq L00B6 + cmpa #$2C + beq L00B6 + bra L0094 +L00A6 pshs x,a + leay $01,y +L00AA lda ,x+ + cmpa #$0D + beq L00B4 + cmpa ,s + bne L00AA +L00B4 puls b +L00B6 clr -$01,x + cmpa #$0D + bne L0078 +L00BC tfr y,d + leax ,s + pshs x,b,a + lslb + rola + leay d,x + pshs u + bra L00D2 +L00CA ldd ,x + ldu ,y + std ,y + stu ,x++ +L00D2 leay -$02,y + pshs y + cmpx ,s++ + bcs L00CA + puls y + bsr L00E8 + puls b,a + lbsr L018D + clra + clrb + lbsr L2844 +L00E8 leax >$0645,y + stx >$0593,y + sts >$0587,y + sts >$0595,y + ldd #$FF82 +L00FD leax d,s + cmpx >$0595,y + bcc L010F + cmpx >$0593,y + bcs L0129 + stx >$0595,y +L010F rts +L0110 fcc "**** STACK OVERFLOW ****" + fcb C$CR +L0129 leax $0587,y + subd >$0595,y + rts + ldd >$0595,y + subd >$0593,y + rts +L0151 pshs x + leax d,y + leax d,x + pshs x +L0159 ldd ,y++ + leax d,u + ldd ,x + addd $02,s + std ,x + cmpy ,s + bne L0159 + leas $04,s + rts +L016B pshs u,b,a + ldd #$FFBA + lbsr L00FD + ldd ,s + cmpd #$0002 + bne L0189 + lbsr L12C9 + lbsr L0258 + lbsr L197A + ldd ,s + lbsr L2844 +L0189 leas $02,s + puls pc,u +L018D pshs u + ldd #$FFBC + lbsr L00FD + bsr L01B9 + lbsr L07BB + lbsr L071D + lbsr L02D1 + lbsr L03F9 + lbsr L1709 + lbsr L19FB + lbsr L1B13 + lbsr L12C9 + lbsr L0258 + clra + clrb + lbsr L2844 + puls pc,u +L01B9 pshs u + ldd #$FFB4 + lbsr L00FD + leas -$04,s + leax >$05BB,y + stx $02,s + leax >$0599,y + pshs x + clra + clrb + pshs b,a + lbsr L2574 + leas $04,s + ldd $02,s + pshs b,a + clra + clrb + pshs b,a + lbsr L2574 + leas $04,s + clra + clrb + ldx $02,s + stb $05,x + stb $04,x + pshs x,b,a + lbsr L25AE + leas $04,s + leax >L016B,pcr + tfr x,d + lbsr L281A + bsr L0244 + std ,s + ldx ,s + bra L021A +L0205 ldd #$0018 + std $004F,y + pshs x + clra + clrb + lbsr L2659 + leas $04,s + ldb $0599,y + bra L02C4 +L02B8 pshs u + ldd #$FFB8 + lbsr L00FD + leax >$05BB,y +L02C4 pshs x + clra + clrb + pshs b,a + lbsr L25AE +L02CD leas $04,s + puls pc,u +L02D1 pshs u + ldd #$FFB6 + lbsr L00FD + leas -$02,s + leax >$008E,y + tfr x,d + lbsr L2715 + ldd $004F,y + pshs x + clra + clrb + lbsr L2659 + leas $04,s + ldb $00B6,y + tfr x,d + lbsr L2715 + lbra L07A2 +L03F9 pshs u + ldd #$FFBC + lbsr L00FD + ldd #$0001 + std $00B9,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + bsr L043A + puls pc,u +L043A pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$0001 + pshs b,a + ldd #$0006 + lbsr L1248 + leas $02,s + ldd #$0014 + pshs b,a + leax >$00CE,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s +L0462 ldd #$0001 + pshs b,a + leax >$004F,y + pshs x + clra + clrb + lbsr L2659 + leas $04,s + ldb $006F,y + pshs x +L04FD ldd #$0001 + lbsr L2681 + leas $04,s + ldd ,u + beq L050F + ldd #$0001 + lbsr L127C +L050F ldd $006F,y + ldd $04,s + addd #$0002 + std $02,s + clra + clrb + bra L05AA +L05A5 ldd ,s + addd #$0001 +L05AA std ,s + ldx $02,s + leax $01,x + stx $02,s + ldb -$01,x + stb ,u+ + cmpb #$2E + bne L05A5 + clra + clrb + stb ,-u + ldd ,s + leas $06,s + puls pc,u +L05C4 pshs u + ldd #$FFC0 + lbsr L00FD + ldd $00B2,y + pshs x + leax >$006F,y + tfr x,d + lbsr L2435 + leas $02,s + clra + clrb + pshs b,a + leax >$006F,y + bra L06F8 +L06EF ldd L07A6,pcr +L06F8 tfr x,d + lbsr L1398 + lbra L0769 +L0700 ldu L07AE,pcr + tfr x,d + bsr L073F + leax >L07B1,pcr + tfr x,d + bsr L073F + leax >L07B6,pcr + tfr x,d + bsr L0776 + puls pc,u +L073F pshs u,b,a + ldd #$FFB6 + lbsr L00FD + ldu $008E,y + tfr x,d + lbsr L25E1 + leas $02,s + std <$20,s + cmpd #$FFFF + bne L07EF + ldd #$001B + pshs b,a + leax >L0BC3,pcr + tfr x,d + lbsr L168D + leas $02,s +L07EF clra + clrb + pshs b,a + ldd #$0040 + pshs b,a + clra + clrb + pshs b,a + ldd <$26,s + lbsr L26AA + leas $06,s + ldd $02,x + pshs b,a + ldd ,x + pshs b,a + bsr L0812 + fdb $FFFF,$FFFF +L0812 fdb $3510 +L0814 lbsr L2888 + lbne L08B0 + ldd #$001B + pshs b,a + leax >L0BDF,pcr + tfr x,d + lbsr L168D + leas $02,s + lbra L08B0 +L082E ldb ,s + lbeq L08B0 + leax ,s + pshs x + leax >$006F,y + tfr x,d + lbsr L2553 + leas $02,s + leax >$006F,y + tfr x,d + lbsr L0AD5 + std -$02,s + beq L0880 + ldd $006F,y + tfr x,d + lbsr L08D2 + leas $02,s + std $006F,y + tfr x,d + lbsr L08D2 + leas $02,s + std $006F,y + tfr x,d + lbsr L0B02 + std -$02,s + beq L08B0 + ldd $006F,y + tfr x,d + lbsr L094E + std $006F,y + tfr x,d + lbsr L094E + ldx <$22,s + std <$23,x +L08AD std <$22,s +L08B0 ldd #$0020 + pshs b,a + leax $02,s + pshs x + ldd <$24,s + lbsr L2659 + leas $04,s + std -$02,s + lbgt L082E + ldd <$20,s + lbsr L25EE + leas <$24,s + puls pc,u +L08D2 pshs u,b,a + ldd #$FFB6 + lbsr L00FD + leas -$02,s + ldd $08,s + pshs b,a + ldd $04,s + lbsr L0A9C + leas $02,s + tfr d,u + ldd $008E,y + tfr x,d + lbsr L2715 + ldd #$0001 + pshs b,a + ldd $04,s + lbsr L25E1 + leas $02,s + std ,s + cmpd #$FFFF + beq L092A + ldd ,s + lbsr L0970 + std L0BFB,pcr + tfr x,d + lbsr L1661 + leas $02,s + lbsr L12FD + lbsr L0DC6 +L0940 leax >$00B6,y + tfr x,d + lbsr L2715 + tfr u,d + lbra L0B5A +L094E pshs u,b,a + ldd #$FFB8 + lbsr L00FD + clra + clrb + pshs b,a + ldd $02,s + lbsr L0A9C + leas $02,s + tfr d,u + ldd $00AA,y + pshs x + leax >$0052,y + tfr x,d + lbsr L2435 + leas $02,s + ldu $0052,y + pshs x + pshs u + ldd #$0002 + addd ,s++ + lbsr L2462 + std ,s++ + lbeq L0AD0 + ldu $0052,y + tfr x,d + lbsr L0A9C + leas $02,s + std $00AE,y + pshs x + leax >$0052,y + tfr x,d + lbsr L2435 + leas $02,s + ldu $0052,y + pshs x + pshs u + ldd #$0002 + addd ,s++ + lbsr L2462 + std ,s++ + lbeq L0AD0 + ldu $0052,y + tfr x,d + lbsr L0A9C + leas $02,s + std $0052,y + bra L0A79 +L0A75 ldb $02,s + stb ,u+ +L0A79 ldd #$0001 + pshs b,a + leax $04,s + pshs x + ldd $07,s + lbsr L2659 + leas $04,s + ldb $02,s + cmpb #$7F + bls L0A75 + clra + andb #$7F + stb ,u+ + clra + clrb + stb ,u + leas $05,s + puls pc,u +L0A9C pshs u,b,a + ldd #$FFB6 + lbsr L00FD + ldu $009A,y + pshs x + tfr u,d + lbsr L0B5E + std ,s++ + bne L0AFD + leax >$009E,y + pshs x + tfr u,d + lbsr L0B5E + std ,s++ + beq L0B2D +L0AFD ldd #$0001 + bra L0B2F +L0B02 pshs u + tfr d,u + ldd #$FFBA + lbsr L00FD + leax >$00A2,y + pshs x + tfr u,d + bsr L0B5E + std ,s++ + bne L0B28 + leax >$00A6,y + pshs x + tfr u,d + bsr L0B5E + std ,s++ + beq L0B2D +L0B28 ldd #$0001 + bra L0B2F +L0B2D clra + clrb +L0B2F puls pc,u +L0B31 pshs u,b,a + ldd #$FFB6 + lbsr L00FD + leas -$02,s + ldd $02,s + lbsr L2725 + std ,s + cmpd #$FFFF + bne L0B58 + ldd #$000D + pshs b,a + leax >L0C1A,pcr + tfr x,d + lbsr L168D + leas $02,s +L0B58 ldd ,s +L0B5A leas $04,s + puls pc,u +L0B5E pshs u + tfr d,u + ldd #$FFB8 + lbsr L00FD + leas -$02,s + ldd #$0001 + std ,s + addd #$FFFF + leau d,u + bra L0B8F +L0B76 ldd $06,s + pshs b,a + tfr u,d + leau u0001,u + bsr L0B95 + std ,s++ + beq L0B88 + ldd ,s + bra L0BBF +L0B88 ldd ,s + addd #$0001 + std ,s +L0B8F ldb ,u + bne L0B76 + bra L0BB4 +L0B95 pshs u,b,a + ldd #$FFBC + lbsr L00FD + ldu $06,s + bra L0BB8 +L0BA1 ldx ,s + leax $01,x + stx ,s + ldb -$01,x + sex + pshs b,a + ldb ,u+ + sex + cmpd ,s++ + beq L0BB8 +L0BB4 clra + clrb + bra L0BBF +L0BB8 ldb ,u + bne L0BA1 + ldd #$0001 +L0BBF leas $02,s + puls pc,u + +L0BC3 fcc "Can't open module directory" + fcb $00 +L0BDF fcc "Error seeking past . and .." + fcb $00 +L0BFB fcc "Can't open the descriptor file" + fcb $00 +L0C1A fcc "Out of memory" + fcb $00 + +L0C28 fcb $34,$40 + ldd #$FFB8 + lbsr L00FD + lbsr L0CE6 + ldd #$0001 + pshs b,a + ldd #$0006 + lbsr L1248 + leas $02,s + ldd #$0013 + pshs b,a + leax >$0428,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0002 +L0C56 pshs b,a + ldd #$0007 + lbsr L1248 + leas $02,s + ldd #$0011 + pshs b,a + leax >$043C,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0003 + pshs b,a + ldd #$0005 +L0C7B lbsr L1248 + leas $02,s + ldd #$0017 + pshs b,a + leax >$044E,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0004 + pshs b,a + lbsr L1248 + leas $02,s + ldd #$0018 + pshs b,a + leax >$0466,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0005 + pshs b,a + ldd #$0009 + lbsr L1248 + leas $02,s + ldd #$000E + pshs b,a + leax >$047F,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0006 + pshs b,a + lbsr L1248 + leas $02,s + ldd #$0013 + pshs b,a + leax >$048E,y + lbra L138D +L0CE6 pshs u + ldd #$FFB8 + lbsr L00FD + clra + clrb + pshs b,a + ldd #$000D + lbsr L1248 + leas $02,s + ldd #$0006 + pshs b,a + leax >$00E3,y + lbra L138D +L0D06 pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$0003 + pshs b,a + ldd #$0008 + lbsr L1248 + leas $02,s + ldd #$0010 + pshs b,a + leax >$01CC,y + lbra L138D +L0D27 pshs u + ldd #$FFB8 + lbsr L00FD + bsr L0CE6 + ldd #$0001 + pshs b,a + ldd #$0003 + lbsr L1248 + leas $02,s + ldd #$001A + pshs b,a + leax >$00EA,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0002 + pshs b,a + clra + clrb + lbsr L1248 + leas $02,s + ldd #$001F + pshs b,a + leax >$0105,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0003 + pshs b,a + ldd #$0007 + lbsr L1248 + leas $02,s + ldd $0139,y + bra L0DA4 +L0D8C ldd $014D,y + bra L0DA4 +L0D9B ldd #$0013 + pshs b,a + leax >$0125,y +L0DA4 pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0004 + pshs b,a + clra + clrb + lbsr L1248 + leas $02,s + ldd #$001F + pshs b,a + leax >$0161,y + lbra L138D +L0DC6 pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0004 + lbsr L1248 + leas $02,s + ldd #$0018 + pshs b,a + leax >$01B3,y + lbra L0FC2 +L0DEA pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0006 + lbsr L1248 + leas $02,s + ldd #$0012 + pshs b,a + leax >$01DD,y + lbra L0FC2 +L0E0E pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0016 + pshs b,a + leax >$0206,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0003 + pshs b,a + ldd #$0007 + lbsr L1248 + leas $02,s + ldd #$0011 + pshs b,a + leax >$021D,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0004 + pshs b,a + lbsr L1248 + leas $02,s + ldd #$0018 + pshs b,a + leax >$019A,y + lbra L138D +L0E6F pshs u + ldd #$FFB8 + lbsr L00FD + ldd $01F0,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + lbsr L0D06 + ldd #$0007 + pshs b,a + clra + clrb + lbsr L1248 + leas $02,s + puls pc,u +L0EBA pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L12C9 + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0009 + lbsr L1248 + leas $02,s + ldd #$0012 + pshs b,a + leax >$022F,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0003 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0017 + pshs b,a + leax >$0242,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0004 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0013 + pshs b,a + leax >$025A,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0005 + pshs b,a + lbsr L1248 + leas $02,s + ldd #$0012 + pshs b,a + leax >$026E,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0006 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0016 + pshs b,a + leax >$0281,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0007 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0010 + pshs b,a + leax >$0298,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0008 + pshs b,a + ldd #$0007 + lbsr L1248 + leas $02,s + ldd #$0015 + pshs b,a + leax >$02A9,y + lbra L138D +L0F9E pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L12C9 + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0004 + lbsr L1248 + leas $02,s + ldd #$0018 + pshs b,a + leax >$0377,y +L0FC2 pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + lbsr L0D06 + puls pc,u +L0FD1 pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L12C9 + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0016 + pshs b,a + leax >$02BF,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0003 + pshs b,a + ldd #$0008 + lbsr L1248 + leas $02,s + ldd #$0011 + pshs b,a + leax >$02D6,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0004 + pshs b,a + lbsr L1248 + leas $02,s + ldd #$0018 + pshs b,a + leax >$019A,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0001 + pshs b,a + leax >$004F,y + pshs x + clra + clrb + lbsr L2659 + leas $04,s + ldd $03D5,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0003 + pshs b,a + lbsr L1248 + leas $02,s + ldd #$001A + pshs b,a + leax >$03F2,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0004 + pshs b,a + ldd #$0003 + lbsr L1248 + leas $02,s + ldd #$001A + pshs b,a + leax >$040D,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0005 + lbra L1133 +L10C8 pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$0008 + pshs b,a + ldd #$0004 + lbsr L1248 + leas $02,s + ldd #$001C + pshs b,a + leax >$02E8,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0009 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0012 + pshs b,a + leax >$0305,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$000A + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0016 + pshs b,a + leax >$0318,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$000B +L1133 pshs b,a + ldd #$0008 + lbsr L1248 + leas $02,s + ldd #$0010 + pshs b,a + leax >$032F,y + lbra L138D +L1149 pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L12C9 + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0003 + lbsr L1248 + leas $02,s + ldd #$0019 + pshs b,a + leax >$0340,y + bra L1193 +L116F pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L12C9 + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0003 + lbsr L1248 + leas $02,s + ldd #$0019 + pshs b,a + leax >$035A,y +L1193 pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0003 + pshs b,a + ldd #$0004 + lbsr L1248 + leas $02,s + ldd #$0018 + pshs b,a + leax >$019A,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0001 + pshs b,a + leax >$004F,y + pshs x + clra + clrb + lbsr L2659 + lbra L165D +L11D0 pshs u + ldd #$FFB8 + lbsr L00FD + lbsr L12C9 + lbsr L0CE6 + ldd #$0002 + pshs b,a + ldd #$0005 + lbsr L1248 + leas $02,s + ldd #$0016 + pshs b,a + leax >$0390,y + lbra L138D +L11F7 pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$0003 + pshs b,a + ldd #$0006 + bsr L1248 + leas $02,s + ldd #$0014 + pshs b,a + leax >$03A7,y + bra L1233 +L1216 pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$0003 + pshs b,a + ldd #$0004 + bsr L1248 + leas $02,s + ldd #$0018 + pshs b,a + leax >$03BC,y +L1233 pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0005 + pshs b,a + clra + clrb + bsr L1248 + bra L1278 +L1248 pshs u,b,a + ldd #$FFB6 + lbsr L00FD + ldd #$0002 + stb $004F,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s +L1278 leas $02,s + puls pc,u +L127C pshs u + tfr d,u + ldd #$FFB8 + lbsr L00FD + ldd $004F,y + lbra L138D +L12C9 pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$000C + bra L12ED +L12D6 pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$0005 + pshs b,a + clra + clrb + lbsr L1248 + leas $02,s + ldd #$000B +L12ED stb $004F,y + pshs x + lbra L1392 +L12FD pshs u + ldd #$FFB7 + lbsr L00FD + leas -$01,s + ldd #$0004 + stb ,s + ldu #$0000 + bra L132A +L1311 pshs u + clra + clrb + lbsr L1248 + leas $02,s + ldd #$0001 + pshs b,a + leax $02,s + pshs x + lbsr L2681 + leas $04,s + leau u0001,u +L132A cmpu #$0003 + ble L1311 + leas $01,s + puls pc,u +L1334 pshs u + ldd #$FFB8 + lbsr L00FD + ldd #$0007 + stb $004F,y + pshs x + ldd #$0002 + bra L1392 +L1351 pshs u + tfr d,u + ldd #$FFB8 + lbsr L00FD + pshs u + ldd #$0003 + lbsr L1248 + leas $02,s + ldd #$0002 + pshs b,a + leax >$0001,y + bra L138D +L1370 pshs u + tfr d,u + ldd #$FFB8 + lbsr L00FD + pshs u + ldd #$0003 + lbsr L1248 + leas $02,s + ldd #$0002 + pshs b,a + leax >$0004,y +L138D pshs x + ldd #$0001 +L1392 lbsr L2681 + lbra L165D +L1398 pshs u,b,a + ldd #$FF67 + lbsr L00FD + leas <-$4D,s + ldd #$0001 + pshs b,a + ldd <$4F,s + lbsr L25E1 + leas $02,s + std <$49,s + cmpd #$FFFF + bne L13CC + ldd #$0014 + pshs b,a + leax >L16D3,pcr + tfr x,d + lbsr L1661 + leas $02,s + lbra L1596 +L13CC lbsr L12FD + clra + clrb + std <$47,s + std <$45,s + pshs b,a + lbsr L1248 + leas $02,s + ldd L16E8,pcr + tfr x,d + lbsr L1661 + leas $02,s + lbsr L12FD + lbsr L0D27 + bra L1588 +L1585 leas <-$4F,x +L1588 lbsr L161C + bra L1590 +L158D leas <-$4F,x +L1590 ldd <$49,s + lbsr L25EE +L1596 lbsr L12FD + lbsr L0D27 + leas <$4F,s + puls pc,u +L15A1 pshs u + ldd #$FFB8 + lbsr L00FD + ldd $0181,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s +L15D2 ldd #$0001 + pshs b,a + leax >$004F,y + pshs x + clra + clrb + lbsr L2659 + leas $04,s + ldb $019A,y + pshs x + ldd #$0001 + lbsr L2681 + leas $04,s + ldd #$0001 + pshs b,a + leax >$004F,y + pshs x + clra + clrb + lbsr L2659 +L165D leas $04,s + puls pc,u +L1661 pshs u + tfr d,u + ldd #$FFB8 + lbsr L00FD + lbsr L1334 + lbsr L12FD + clra + clrb + pshs b,a + lbsr L1248 + leas $02,s + ldd $04,s + pshs b,a + pshs u + ldd #$0002 + lbsr L2681 + leas $04,s + lbsr L161C + puls pc,u +L168D pshs u + tfr d,u + ldd #$FFB8 + lbsr L00FD + lbsr L1334 + lbsr L12C9 + clra + clrb + pshs b,a + lbsr L1248 + leas $02,s + ldd #$0008 + pshs b,a + leax >L1700,pcr + pshs x + ldd #$0002 + lbsr L2681 + leas $04,s + ldd $04,s + pshs b,a + pshs u + ldd #$0002 + lbsr L2681 + leas $04,s + lbsr L0258 + ldd >$0597,y + lbsr L2844 + puls pc,u + +L16D3 fcc "Can't open help file" + fcb $00 +L16E8 fcc "Error reading help file" + fcb $00 +L1700 fcc "CONFIG: " + fcb $00 + +L1709 pshs u + ldd #$FFBA + lbsr L00FD + lbsr L197A + ldd #$0003 + pshs b,a + leax >$0007,y + tfr x,d + lbsr L2600 + leas $02,s + std L19B0,pcr + tfr x,d + lbsr L168D + leas $02,s +L173C lbsr L1871 + bsr L1754 + bsr L1762 + bsr L1770 + lbsr L17DA + lbsr L187F + ldd $0010,y + bra L177C +L1762 pshs u + ldd #$FFBC + lbsr L00FD + leax >$0017,y + bra L177C +L1770 pshs u + ldd #$FFBC + lbsr L00FD + leax >$001E,y +L177C tfr x,d + bsr L17A7 + puls pc,u +L1782 pshs u + ldd #$FFBC + lbsr L00FD + leax >$0029,y + tfr x,d + lbsr L1950 + leax >$0033,y + tfr x,d + lbsr L1950 + leax >$0031,y + tfr x,d + lbsr L1950 + puls pc,u +L17A7 pshs u,b,a + ldd #$FFB6 + lbsr L00FD + ldu L19C9,pcr + bra L1896 +L187F pshs u + ldd #$FFBC + lbsr L00FD + bsr L18CE + leax >L19CF,pcr + tfr x,d + lbsr L191E + leax >L19D5,pcr +L1896 tfr x,d + lbsr L191E + puls pc,u +L189D pshs u,b,a + ldd #$FFB8 + lbsr L00FD + leax >L19DB,pcr + pshs x + ldd $02,s + lbsr L0B5E + std ,s++ + bne L18C3 + leax >L19E0,pcr + pshs x + ldd $02,s + lbsr L0B5E + std ,s++ + beq L18C9 +L18C3 ldd #$0001 + lbra L194C +L18C9 clra + clrb + lbra L194C +L18CE pshs u + ldd #$FFB7 + lbsr L00FD + leas -$01,s + lbsr L105A +L18DB ldd #$0001 + pshs b,a + leax $02,s + pshs x + clra + clrb + lbsr L2659 + leas $04,s + ldb ,s + sex + tfr d,x + bra L1907 +L18F2 leax >L19E5,pcr + bra L18FC +L18F8 leax >L19F0,pcr +L18FC tfr x,d + bsr L191E + bra L191A +L1902 lbsr L1334 + bra L18DB +L1907 cmpx #$000D + beq L18F2 + cmpx #$0031 + lbeq L18F2 + cmpx #$0032 + beq L18F8 + bra L1902 +L191A leas $01,s + puls pc,u +L191E pshs u + tfr d,u + ldd #$FFB6 + lbsr L00FD + leas -$02,s + stu ,s + bra L1935 +L192E ldd ,s + addd #$0001 + std ,s +L1935 ldb [,s] + bne L192E + ldd #$000D + stb [,s] + ldd #$001D + pshs b,a + pshs u + ldd $0007,y + tfr x,d + lbsr L2646 + puls pc,u +L198D pshs u + ldd #$FFBA + lbsr L00FD + ldu $004F,y + pshs x + clra + clrb + lbsr L2659 + leas $04,s + bra L1A26 +L1A23 lbsr L02AA +L1A26 lbsr L0E6F + leax >$008E,y + tfr x,d + lbsr L2715 + ldd $04C2,y + pshs x + tfr x,d + lbsr L240A + pshs b,a + leax >L1AD1,pcr + tfr x,d + lbsr L27FE + leas $0A,s + std $02,s + cmpd #$FFFF + bne L1AA7 + ldd #$0019 + pshs b,a + leax >L1AD7,pcr + bra L1AA0 +L1A6C clra + clrb + pshs b,a + ldd #$0001 + pshs b,a + pshs b,a + leax >$04A2,y + pshs x + tfr x,d + lbsr L240A + pshs b,a + leax >L1AF0,pcr + tfr x,d + lbsr L27FE + leas $0A,s + std $02,s + cmpd #$FFFF + bne L1AA7 + ldd #$0019 + pshs b,a + leax >L1AF6,pcr +L1AA0 tfr x,d + lbsr L168D + leas $02,s +L1AA7 leax ,s + tfr x,d + lbsr L27C0 + ldd ,s + beq L1ABA + lbsr L0258 + ldd ,s + lbsr L2844 +L1ABA ldd L1B0F,pcr + tfr x,d + lbsr L2715 + leas $04,s + puls pc,u + +L1AD1 fcc "Shell" + fcb $00 +L1AD7 fcc "Can't execute the OS9Gen" + fcb $00 +L1AF0 fcc "Shell" + fcb $00 +L1AF6 fcc "Can't execute the OS9gen" + fcb $00 + +L1B0F fcc "/d0" + fcb $00 + +L1B13 pshs u + ldd #$FFB5 + lbsr L00FD + leas -$03,s + ldd #$0001 + pshs b,a + pshs b,a + leax >L21D2,pcr + tfr x,d + lbsr L286B + leas $04,s + std ,s + leax >$008E,y + tfr x,d + lbsr L2715 + lbsr L0EBA +L1B3D ldd #$0001 + pshs b,a + leax $04,s + pshs x + clra + clrb + lbsr L2659 + leas $04,s + ldb $02,s + sex + tfr d,x + bra L1B73 +L1B54 ldd #$0001 + bra L1B5B +L1B59 clra + clrb +L1B5B lbsr L1BBF + bra L1BBB +L1B60 lbsr L1BFE + bra L1BBB +L1B65 lbsr L1C74 + lbsr L0EBA + bra L1B3D +L1B6D lbsr L1334 + lbra L1B3D +L1B73 cmpx #$004E + beq L1BBB + cmpx #$006E + beq L1BBB + cmpx #$0042 + beq L1B54 + cmpx #$0062 + lbeq L1B54 + cmpx #$0046 + beq L1B59 + cmpx #$0066 + lbeq L1B59 + cmpx #$0049 + beq L1B60 + cmpx #$0069 + lbeq L1B60 + cmpx #$003F + beq L1B65 + bra L1B6D + ldd L21D7,pcr + tfr x,d + lbsr L2715 +L1BBB leas $03,s + puls pc,u +L1BBF pshs u,b,a + ldd #$FFBA + lbsr L00FD + ldd ,s + lbsr L1E28 + ldu L21DB,pcr + pshs x + pshs u + ldd #$0002 + addd ,s++ + lbsr L2462 + std ,s++ + bne L1C6B + ldd ,u + beq L1C67 + ldd #$0001 + puls pc,u +L1C67 clra + clrb + puls pc,u +L1C6B ldu $04FC,y + tfr x,d + lbsr L25E1 + leas $02,s + std <$20,s + cmpd #$FFFF + bne L1CB3 + ldd #$0014 + pshs b,a + leax >L21DF,pcr + tfr x,d + lbsr L1661 + leas $02,s + lbsr L12FD + lbsr L0D27 + lbra L1D1A +L1CB3 lbsr L12C9 + ldu #$0000 + bra L1CF1 +L1CBB ldd #$0020 + pshs b,a + leax $02,s + pshs x + ldd <$24,s + lbsr L266F + leas $04,s + std -$02,s + bne L1CD5 + leax <$22,s + bra L1D05 +L1CD5 pshs u + clra + clrb + lbsr L1248 + leas $02,s + ldd #$0020 + pshs b,a + leax $02,s + pshs x + ldd #$0001 + lbsr L2696 + leas $04,s + leau u0001,u +L1CF1 cmpu #$000E + ble L1CBB + lbsr L15A1 + cmpd #$0002 + bne L1CB3 + leax <$22,s + bra L1D0D +L1D05 leas <-$22,x + lbsr L161C + bra L1D10 +L1D0D leas <-$22,x +L1D10 ldd <$20,s + lbsr L25EE + clra + clrb + std $04E6,y + tfr x,d + lbsr L25F6 + leas $02,s + tfr d,u + stu -$02,s + beq L1D54 + ldd #$001B + pshs b,a + leax >L21F4,pcr + tfr x,d + lbsr L168D + leas $02,s +L1D54 ldd #$007F + pshs b,a + leax >$04EB,y + tfr x,d + lbsr L25F6 + leas $02,s + tfr d,u + stu -$02,s + beq L1D7A + ldd #$001A + pshs b,a + leax >L2210,pcr + tfr x,d + lbsr L168D +L1D78 leas $02,s +L1D7A puls pc,u +L1D7C pshs u + ldd #$FFBA + lbsr L00FD + ldd $04EF,y + tfr x,d + lbsr L25F6 + leas $02,s + tfr d,u + stu -$02,s + beq L1DB1 + ldd #$001B + pshs b,a + leax >L222B,pcr + tfr x,d + lbsr L168D + leas $02,s +L1DB1 leax >$04EF,y + tfr x,d + lbsr L2715 + leax >L2258,pcr + pshs x + leax >L2247,pcr + tfr x,d + lbsr L2066 + leas $02,s + leax >L2271,pcr + pshs x + leax >L2260,pcr + tfr x,d + lbsr L2066 + leas $02,s + leax >L228A,pcr + pshs x + leax >L2279,pcr + tfr x,d + lbsr L2066 + leas $02,s + leax >L22A3,pcr + pshs x + leax >L2292,pcr + tfr x,d + lbsr L2066 + leas $02,s + leax >L22BD,pcr + pshs x + leax >L22AB,pcr + lbra L2055 +L1E0B pshs u + ldd #$FFBC + lbsr L00FD + ldd L22C6,pcr + lbra L205F +L1E21 leax >L22CA,pcr + lbra L205F +L1E28 pshs u,b,a + ldd #$FFB0 + lbsr L00FD + leas -$06,s + ldd #$0001 + pshs b,a + leax >$04F4,y + tfr x,d + lbsr L25E1 + leas $02,s + std $04,s + cmpd #$FFFF + bne L1E5A + ldd #$0018 + pshs b,a + leax >L22CE,pcr + tfr x,d + lbsr L168D + leas $02,s +L1E5A clra + clrb + std $04E4,y + pshs b,a + ldd $08,s + lbsr L2659 + leas $04,s + std $02,s + bgt L1E84 + ldd #$001B + pshs b,a + leax >L22E7,pcr + tfr x,d + lbsr L168D + leas $02,s +L1E84 ldd $06,s + beq L1EB4 + ldx >$04E4,y + ldd $0A,x + beq L1EB2 + clra + clrb + pshs b,a + tfr x,d + lbsr L0A9C + leas $02,s + std $0037,y] + ldd $04E4,y + lbsr L0A9C + leas $02,s + std $04E4,y + ldd $0A,x + beq L1EDE + ldd #$0001 + std [>$0037,y] +L1EDE ldd $04E4,y + ldd $0A,x + lbeq L1F45 + clra + clrb + pshs b,a + tfr x,d + lbsr L0A9C + leas $02,s + ldx ,s + std <$23,x + std ,s + ldd $04E4,y + lbsr L0A9C + leas $02,s + ldx ,s + std <$23,x + std ,s + ldd $04E4,y + ldd $0A,x + beq L1F45 + ldd #$0001 + std [,s] +L1F45 ldd #$0064 + pshs b,a + ldd >$04E4,y + pshs b,a + ldd $08,s + lbsr L2659 + leas $04,s + std $02,s + lbgt L1EE5 + ldd $02,s + cmpd #$FFFF + bne L1F75 + ldd #$001B + pshs b,a + leax >L2303,pcr + tfr x,d + lbsr L168D + leas $02,s +L1F75 leas $08,s + puls pc,u +L1F79 pshs u + ldd #$FF84 + lbsr L00FD + leas <-$36,s + leax >L232B,pcr + pshs x + leax >L231F,pcr + tfr x,d + lbsr L2066 + leas $02,s + leax >$04E6,y + tfr x,d + lbsr L2715 + ldu L2333,pcr + pshs x + leax <$1A,s + tfr x,d + lbsr L241D + leas $02,s + pshs u + ldd #$0002 + addd ,s++ + pshs b,a + leax <$1A,s + tfr x,d + lbsr L2435 + leas $02,s + pshs u + ldd #$0002 + addd ,s++ + pshs b,a + leax $06,s + tfr x,d + lbsr L241D + leas $02,s + leax $04,s + pshs x + leax <$1A,s + tfr x,d + lbsr L2066 + leas $02,s +L1FF3 ldu $00B6,y + tfr x,d + lbsr L2715 + leax >$04EB,y + tfr x,d + lbsr L2715 + leax >L234C,pcr + pshs x + leax >L233D,pcr + tfr x,d + bsr L2066 + leas $02,s + leax >$00B6,y + tfr x,d + lbsr L2715 + leas <$36,s + puls pc,u +L202A pshs u + ldd #$FFBA + lbsr L00FD + leax >$04EB,y + tfr x,d + lbsr L2715 + leax >L2364,pcr + pshs x + leax >L2353,pcr + tfr x,d + bsr L2066 + leas $02,s + leax >L237A,pcr + pshs x + leax >L236D,pcr +L2055 tfr x,d + bsr L2066 + leas $02,s + leax >$00B6,y +L205F tfr x,d + lbsr L2715 + puls pc,u +L2066 pshs u + tfr d,u + ldd #$FF72 + lbsr L00FD + leas <-$40,s + ldd L237F,pcr + pshs x + leax $02,s + tfr x,d + lbsr L2435 + leas $02,s + pshs u + leax $02,s + tfr x,d + lbsr L2435 + leas $02,s + leax >L2382,pcr + pshs x + leax $02,s + tfr x,d + lbsr L2435 + leas $02,s + ldd #$003C + pshs b,a + ldd #$0001 + pshs b,a + pshs b,a + leax $06,s + pshs x + tfr x,d + lbsr L240A + pshs b,a + leax >L2387,pcr + tfr x,d + lbsr L27FE + leas $0A,s + std <$3E,s + cmpd #$FFFF + lbne L215B + ldd #$000A + pshs b,a + leax >L238C,pcr + lbra L2154 +L20E9 pshs u + leax $02,s + tfr x,d + lbsr L241D + leas $02,s + leax >L23A0,pcr + pshs x + leax $02,s + tfr x,d + lbsr L2435 + leas $02,s + ldd <$44,s + pshs b,a + leax $02,s + tfr x,d + lbsr L2435 + leas $02,s + leax >L23A3,pcr + pshs x + leax $02,s + tfr x,d + lbsr L2435 + leas $02,s + ldd #$003C + pshs b,a + ldd #$0001 + pshs b,a + pshs b,a + leax $06,s + pshs x + tfr x,d + lbsr L240A + pshs b,a + leax >L23A5,pcr + tfr x,d + lbsr L27FE + leas $0A,s + std <$3E,s + cmpd #$FFFF + bne L215B + ldd #$0013 + pshs b,a + leax >L23AA,pcr +L2154 tfr x,d + lbsr L168D + leas $02,s +L215B leax <$3C,s + tfr x,d + lbsr L27C0 + ldd <$3C,s + beq L21AF + lbsr L1334 + ldd #$0002 + pshs b,a + leax >L23BE,pcr + pshs x + lbsr L2681 + leas $04,s + ldd #$0010 + pshs b,a + leax >L23C1,pcr + pshs x + ldd #$0002 + lbsr L2681 + leas $04,s + tfr u,d + lbsr L240A + pshs b,a + pshs u + ldd #$0002 + lbsr L2681 + leas $04,s + ldd #$0002 + pshs b,a + leax >L23D2,pcr + pshs x + lbsr L2681 + leas $04,s +L21AF leas <$40,s + puls pc,u +L21B4 pshs u,b,a + ldd #$FFBA + lbsr L00FD + ldu ,s + bra L21CA +L21C0 ldb ,u + sex + lbsr L23ED + stb ,u + leau u0001,u +L21CA ldb ,u + bne L21C0 + leas $02,s + puls pc,u + +L21D2 fcc "copy" + fcb $00 +L21D7 fcc "/d0" + fcb $00 +L21DB fcc "asm" + fcb $00 +L21DF fcc "Can't open help file" + fcb $00 +L21f4 fcc "Can't create CMDS directory" + fcb $00 +L2210 fcc "Can't create SYS directory" + fcb $00 +L222B fcc "Can't create DEFS directory" + fcb $00 +L2247 fcc "/d0/DEFS/OS9Defs" + fcb $00 +L2258 fcc "OS9Defs" + fcb $00 +L2260 fcc "/d0/DEFS/RBFDefs" + fcb $00 +L2271 fcc "RBFDefs" + fcb $00 +L2279 fcc "/d0/DEFS/SCFDefs" + fcb $00 +L228A fcc "SCFDefs" + fcb $00 +L2292 fcc "/d0/DEFS/SysType" + fcb $00 +L22A3 fcc "SysType" + fcb $00 +L22AB fcc "/d0/DEFS/defsfile" + fcb $00 +L22BD fcc "defsfile" + fcb $00 +L22C6 fcc "/d0" + fcb $00 +L22CA fcc "/d1" + fcb $00 +L22CE fcc "Can't open commands file" + fcb $00 +L22E7 fcc "Error reading commands file" + fcb $00 +L2303 fcc "Error reading commands file" + fcb $00 +L231F fcc "/d0/startup" + fcb $00 +L232B fcc "startup" + fcb $00 +L2333 fcc "/d0/CMDS/" + fcb $00 +L233D fcc "/d0/SYS/errmsg" + fcb $00 +L234C fcc "errmsg" + fcb $00 +L2353 fcc "/d0/SYS/password" + fcb $00 +L2364 fcc "password" + fcb $00 +L236D fcc "/d0/SYS/motd" + fcb $00 +L237A fcc "motd" + fcb $00 +L237F fcc " " + fcb $00 +L2382 fcc " -s" + fcb C$CR,$00 +L2387 fcc "copy" + fcb $00 +L238C fcc "Can't fork the copy" + fcb $00 +L23A0 fcc " " + fcb $00 +L23A3 fcb C$CR + fcb $00 +L23A5 fcc "copy" + fcb $00 +L23AA fcc "Can't fork the copy" + fcb $00 +L23BE fcb C$CR,C$LF,$00 +L23C1 fcc "Error copying : " + fcb $00 +L23D2 fcb C$CR,C$LF,$00 + + fcb $34,$46 + ldd ,s + leax >$0507,y + leax d,x + ldb ,x + clra + andb #$04 + beq L2404 + ldd ,s + clra + andb #$DF + bra L2406 +L23ED pshs u,b,a + ldd ,s + leax >$0507,y + leax d,x + ldb ,x + clra + andb #$02 + beq L2404 + ldd ,s + orb #$20 + bra L2406 +L2404 ldd ,s +L2406 leas $02,s + puls pc,u +L240A pshs u,b,a + ldu ,s +L240E ldb ,u+ + bne L240E + tfr u,d + subd ,s + addd #$FFFF + leas $02,s + puls pc,u +L241D pshs u,b,a + ldu $06,s + leas -$02,s + ldd $02,s + std ,s +L2427 ldb ,u+ + ldx ,s +L242B leax $01,x + stx ,s + stb -$01,x + bne L2427 + bra L245C +L2435 pshs u,b,a + ldu $06,s + leas -$02,s + ldd $02,s + std ,s +L243F ldx ,s + leax $01,x + stx ,s + ldb -$01,x + bne L243F + ldd ,s + addd #$FFFF + std ,s +L2450 ldb ,u+ + ldx ,s + leax $01,x + stx ,s + stb -$01,x + bne L2450 +L245C ldd $02,s + leas $04,s + puls pc,u +L2462 pshs u + tfr d,u + bra L2478 +L2468 ldx $04,s + leax $01,x + stx $04,s + ldb -$01,x + bne L2476 + clra + clrb + puls pc,u +L2476 leau u0001,u +L2478 ldb ,u + sex + pshs b,a + ldb [<$06,s] + sex + cmpd ,s++ + beq L2468 + sex + pshs b,a + ldb ,u + sex + subd ,s++ + puls pc,u + pshs u,b,a + ldu $06,s + leas -$02,s + ldd $02,s + std ,s +L249A ldd $0A,s + addd #$FFFF + std $0A,s + subd #$FFFF + ble L24BE + ldb ,u+ + ldx ,s + leax $01,x + stx ,s + stb -$01,x + bne L249A + bra L24BE +L24B4 clra + clrb + ldx ,s + leax $01,x + stx ,s + stb -$01,x +L24BE ldd $0A,s + addd #$FFFF + std $0A,s + subd #$FFFF + bgt L24B4 + lbra L254D + pshs u + tfr d,u + bra L24E3 +L24D3 ldx $04,s + leax $01,x + stx $04,s + ldb -$01,x + bne L24E1 + clra + clrb + puls pc,u +L24E1 leau u0001,u +L24E3 ldd $06,s + addd #$FFFF + std $06,s + subd #$FFFF + ble L24FD + ldb ,u + sex + pshs b,a + ldb [<$06,s] + sex + cmpd ,s++ + beq L24D3 +L24FD ldd $06,s + bge L2505 + clra + clrb + bra L2510 +L2505 ldb [<$04,s] + sex + pshs b,a + ldb ,u + sex + subd ,s++ +L2510 puls pc,u + pshs u,b,a + ldu $06,s + leas -$02,s + ldd $02,s + std ,s +L251C ldx ,s + leax $01,x + stx ,s + ldb -$01,x + bne L251C + ldd ,s + addd #$FFFF + std ,s +L252D ldd $0A,s + addd #$FFFF + std $0A,s + subd #$FFFF + ble L2545 + ldb ,u+ + ldx ,s + leax $01,x + stx ,s + stb -$01,x + bne L252D +L2545 ldd $0A,s + bge L254D + clra + clrb + stb [,s] +L254D ldd $02,s + leas $04,s + puls pc,u +L2553 pshs u,b,a + ldu ,s +L2557 ldx $06,s + leax $01,x + stx $06,s + ldb -$01,x + stb ,u+ + bgt L2557 + ldb -u0001,u + clra + andb #$7F + stb -u0001,u + clra + clrb + stb ,u + ldd ,s + leas $02,s + puls pc,u +L2574 lda $03,s + tstb + beq L25A6 + cmpb #$01 + beq L25A8 + cmpb #$06 + beq L25A8 + cmpb #$02 + beq L258E + cmpb #$05 + beq L258E + ldb #$D0 + lbra L2836 +L258E pshs u + os9 I$GetStt + bcc L259A + puls u + lbra L2836 +L259A stx [<$06,s] + ldx $06,s + stu $02,x + puls u + clra + clrb + rts +L25A6 ldx $04,s +L25A8 os9 I$GetStt + lbra L283F +L25AE lda $03,s + tstb + beq L25BC + cmpb #$02 + beq L25C4 + ldb #$D0 + lbra L2836 +L25BC ldx $04,s + os9 I$SetStt + lbra L283F +L25C4 pshs u + ldx $06,s + ldu $08,s + os9 I$SetStt + puls u + lbra L283F + tfr d,x + lda $03,s + os9 I$Open + bcs L25DE + os9 I$Close +L25DE lbra L283F +L25E1 tfr d,x + lda $03,s + os9 I$Open + bcs L2643 + tfr a,b + clra + rts +L25EE tfr b,a + os9 I$Close + lbra L283F +L25F6 tfr d,x + ldb $03,s + os9 I$MakDir + lbra L283F +L2600 pshs b,a + ldx ,s + lda $05,s + tfr a,b + andb #$24 + orb #$0B + os9 I$Create + bcs L2617 +L2611 leas $02,s + tfr a,b + clra + rts +L2617 cmpb #$DA + bne L2641 + lda $05,s + bita #$80 + bne L2641 + anda #$07 + ldx ,s + os9 I$Open + bcs L2641 + pshs u,a + ldx #$0000 + leau ,x + ldb #$02 + os9 I$SetStt + puls u,a + bcc L2611 + pshs b + os9 I$Close + puls b +L2641 leas $02,s +L2643 lbra L2836 +L2646 tfr d,x + os9 I$Delete + lbra L283F + tfr b,a + os9 I$Dup + bcs L2643 + tfr a,b + clra + rts +L2659 pshs y + tfr b,a + ldx $04,s + ldy $06,s + os9 I$Read + bcc L267D +L2667 cmpb #$D3 + bne L2691 + clra + clrb + puls pc,y +L266F pshs y + tfr b,a + ldx $04,s + ldy $06,s + os9 I$ReadLn + bcs L2667 +L267D tfr y,d + puls pc,y +L2681 pshs y + ldy $06,s + beq L26A6 + tfr b,a + ldx $04,s + os9 I$Write + bcc L26A6 +L2691 puls y + lbra L2836 +L2696 pshs y + ldy $06,s + beq L26A6 + tfr b,a + ldx $04,s + os9 I$WritLn + bcs L2691 +L26A6 tfr y,d + puls pc,y +L26AA pshs u,b,a + ldd $0A,s + bne L26B8 + ldu #$0000 + ldx #$0000 + bra L26EE +L26B8 cmpd #$0001 + beq L26E5 + cmpd #$0002 + beq L26DA + ldb #$F7 +L26C6 clra + std >$0597,y + ldd #$FFFF + leax >$058B,y + std ,x + std $02,x + leas $02,s + puls pc,u +L26DA lda $01,s + ldb #$02 + os9 I$GetStt + bcs L26C6 + bra L26EE +L26E5 lda $01,s + ldb #$05 + os9 I$GetStt + bcs L26C6 +L26EE tfr u,d + addd $08,s + tfr d,u + tfr x,d + adcb $07,s + adca $06,s + bmi L26C6 + tfr d,x + stx >$058B,y + stu >$058D,y + lda $01,s + os9 I$Seek + bcs L26C6 + leax >$058B,y + leas $02,s + puls pc,u +L2715 tfr d,x + lda #$01 +L2719 os9 I$ChgDir + lbra L283F + tfr d,x + lda #$04 + bra L2719 +L2725 pshs y,b,a + cmpd >$0641,y + bls L275C + subd >$0641,y + addd >$0589,y + subd $02,s + os9 F$Mem + tfr y,d + ldy $02,s + bcc L2748 + ldd #$FFFF + leas $04,s + rts +L2748 ldx >$0589,y + std >$0589,y + pshs x + subd ,s++ + addd >$0641,y + std >$0641,y +L275C ldd >$0589,y + subd >$0641,y + tfr d,x + ldd >$0641,y + subd ,s + std >$0641,y + ldd ,s + stx ,s + bitb #$01 + beq L277B + clr ,x+ + decb +L277B tfr d,y + leay ,y + beq L2789 + clra + clrb +L2783 std ,x++ + leay -$02,y + bne L2783 +L2789 puls pc,y,b,a + addd >$0593,y + bcs L27B2 + cmpd >$0595,y + bcc L27B2 + pshs b,a + ldx >$0593,y + clra + bra L27A3 +L27A1 sta ,x+ +L27A3 cmpx ,s + bcs L27A1 + ldd >$0593,y + puls x + stx >$0593,y + rts +L27B2 ldd #$FFFF + rts + tfr b,a + ldb $03,s + os9 F$Send + lbra L283F +L27C0 tfr d,x + clra + clrb + os9 F$Wait + lbcs L2836 + stx -$02,s + beq L27D3 + stb $01,x + clr ,x +L27D3 tfr a,b + clra + rts + tfr b,a + ldb $03,s + os9 F$SPrior + lbra L283F + leau $02,s + leas >$00FF,y + tfr d,x + ldy ,u + lda u0005,u + lsla + lsla + lsla + lsla + ora u0007,u + ldb u0009,u + ldu u0002,u + os9 F$Chain + os9 F$Exit +L27FE pshs u,y + tfr d,x + ldy $06,s + ldu $08,s + lda $0B,s + ora $0D,s + ldb $0F,s + os9 F$Fork + puls u,y + lbcs L2836 + tfr a,b + clra + rts +L281A pshs u + tfr y,u + std >$0643,y + leax >L282E,pcr + os9 F$Icpt + puls u + lbra L283F +L282E tfr u,y + clra + jsr [>$0643,y] + rti +L2836 clra + std >$0597,y + ldd #$FFFF + rts +L283F bcs L2836 + clra + clrb + rts +L2844 pshs b,a + lbsr L2851 + lbsr L2852 + puls b,a +L284E os9 F$Exit +L2851 rts +L2852 rts + pshs u,y + tfr d,x + lda $07,s + lsla + lsla + lsla + lsla + ora $09,s + os9 F$Link +L2862 tfr u,d + puls u,y + lbcs L2836 + rts +L286B pshs u,y + tfr d,x + lda $07,s + lsla + lsla + lsla + lsla + ora $09,s + os9 F$Load + bra L2862 + pshs u + tfr d,u + os9 F$UnLink + puls u + lbra L283F +L2888 ldd $02,s + cmpd ,x + bne L28A1 + ldd $04,s + cmpd $02,x + beq L28A1 + bcs L289E + lda #$01 + andcc #$FE + bra L28A1 +L289E clra + cmpa #$01 +L28A1 pshs cc + ldd $01,s + std $05,s + puls cc + leas $04,s + rts +L28AC leax >$058B,y + std $02,x + tfr a,b + sex + tfr a,b + std ,x + rts + leax >$058B,y + std $02,x + clr ,x + clr $01,x + rts +L28C5 tsta + bne L28DA + tst $02,s + bne L28DA + lda $03,s + mul + ldx ,s + stx $02,s + ldx #$0000 + std ,s + puls pc,b,a +L28DA pshs b,a + ldd #$0000 + pshs b,a + pshs b,a + lda $05,s + ldb $09,s + mul + std $02,s + lda $05,s + ldb $08,s + mul + addd $01,s + std $01,s + bcc L28F7 + inc ,s +L28F7 lda $04,s + ldb $09,s + mul + addd $01,s + std $01,s + bcc L2904 + inc ,s +L2904 lda $04,s + ldb $08,s + mul + addd ,s + std ,s + ldx $06,s + stx $08,s + ldx ,s + ldd $02,s + leas $08,s + rts +L2918 fcb $00 + fcc ")" + fcb $00 + fcc "->" + fcb $00 + fcc " " + fcb $00 +L2921 fcc "bootlist" + fcb $00 + + fcc "RBF.mn" + fcb $00 + fcc "SCF.mn" + fcb $00 + fcc "PIPEMAN.mn" + fcb $00 + fcb $04 + fcs "y" + fcc "/D0/MODULES" + fcb $00 + fcc ".dd" + fcb $00 + fcc ".DD" + fcb $00 + fcc ".io" + fcb $00 + fcc ".IO" + fcb $00 + fcc ".dr" + fcb $00 + fcc ".mn" + fcb $00 + fcc ".hp" + fcb $00 + fcc ".." + fcb $00 + fcc "THERE ARE STILL MORE" + fcb $00 + fcc "ARE YOU SURE (Y/N) ?" + fcb $00 + fcc "CONFIG" + fcb $00 + fcc "ARROWS - UP/DOWN/MORE/BACK" + fcb $00 + fcc "S - SEL/UNSEL H - HELP D - DONE" + fcb $00 + fcc "DEVICE NAME SEL" + fcb $00 + fcc "COMMAND NAME SEL" + fcb $00 + fcc "I/O SUBROUTINE SEL" + fcb $00 + fcc " ------------------------------" + fcb $00 + fcc "M - MORE C - CONTINUE" + fcb $00 + fcc " HIT ANY KEY TO CONTINUE" + fcb $00 + fcc "BUILDING DESCRIPTOR LIST" + fcb $00 + fcc ".... PLEASE WAIT" + fcb $00 + fcc "BUILDING BOOT LIST" + fcb $00 + fcc "GENERATING A NEW BOOT" + fcb $00 + fcc "PLACE A FORMATTED DISK" + fcb $00 + fcc "IN DRIVE NUMBER 1" + fcb $00 + fcc "DO YOU WISH TO ADD" + fcb $00 + fcc "[N]O COMMANDS, STOP NOW" + fcb $00 + fcc "[B]ASIC COMMAND SET" + fcb $00 + fcc "[F]ULL COMMAND SET" + fcb $00 + fcc "[I]NIDIVIDUALLY SELECT" + fcb $00 + fcc "[?] RECIEVE HELP" + fcb $00 + fcc "SELECTION [N,B,F,I,?]" + fcb $00 + fcc "PLACE YOUR SYSTEM DISK" + fcb $00 + fcc "IN DRIVE NUMBER 0" + fcb $00 + fcc "HOW MANY DRIVES DO YOU HAVE:" + fcb $00 + fcc "1 - ONE DRIVE ONLY" + fcb $00 + fcc "2 - TWO OR MORE DRIVES" + fcb $00 + fcc "SELECTION [1,2] " + fcb $00 + fcc "PLACE NEW DISK IN /D0 NOW" + fcb $00 + fcc "PLACE CONFIG DISK IN /D0 NOW" + fcb $00 + fcc "CREATING NEW SYSTEM DISK" + fcb $00 + fcc "DESTINATION = NEW DISK" + fcb $00 + fcc "SOURCE = CONFIG DISK" + fcb $00 + fcc "SOURCE = OS9 SYSTEM DISK" + fcb $00 + fcc "WHAT CLOCK MODULE IS NEEDED:" + fcb $00 + fcc "1 - 60 HZ (AMERICAN POWER)" + fcb $00 + fcc "2 - 50 HZ (EUROPEAN POWER)" + fcb $00 + fcc "RS VERSION 01.00.00" + fcb $00 + fcc "COPYRIGHT 1985 BY" + fcb $00 + fcc "MICROWARE SYSTEMS CORP." + fcb $00 + fcc "REPRODUCED UNDER LICENSE" + fcb $00 + fcc "TO TANDY CORP." + fcb $00 + fcc "ALL RIGHTS RESERVED" + fcb $00 + fcc "os9gen /d1 #15k