Mercurial > hg > Members > kono > nitros9-code
diff level2/cmds/ident.asm @ 0:6641a883d6b0
Initial revision
| author | boisy |
|---|---|
| date | Thu, 04 Apr 2002 16:34:12 +0000 |
| parents | |
| children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/level2/cmds/ident.asm Thu Apr 04 16:34:12 2002 +0000 @@ -0,0 +1,1140 @@ +******************************************************************** +* Ident - Show module information +* +* $Id$ +* +* Ed. Comments Who YY/MM/DD +* ------------------------------------------------------------------ +* 7 Original Tandy/Microware version + + nam Ident + ttl Show module information + +* Disassembled 98/09/20 15:54:44 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 7 + + mod eom,name,tylg,atrv,start,size +u0000 rmb 1 +u0001 rmb 1 +u0002 rmb 1 +u0003 rmb 1 +u0004 rmb 2 +u0006 rmb 2 +u0008 rmb 2 +u000A rmb 1 +u000B rmb 1 +u000C rmb 1 +u000D rmb 1 +u000E rmb 2 +u0010 rmb 2 +u0012 rmb 1 +u0013 rmb 1 +u0014 rmb 1 +u0015 rmb 1 +u0016 rmb 1 +u0017 rmb 1 +u0018 rmb 1 +u0019 rmb 1 +u001A rmb 1 +u001B rmb 1 +u001C rmb 2 +u001E rmb 2 +u0020 rmb 2 +u0022 rmb 66 +u0064 rmb 14 +u0072 rmb 14 +u0080 rmb 33 +u00A1 rmb 71 +u00E8 rmb 180 +u019C rmb 2048 +size equ . + +name fcs /Ident/ + fcb edition + +L0013 fcb $0A + fcb $55 U + fcb $73 s + fcb $65 e + fcb $3A : + fcb $20 + fcb $49 I + fcb $64 d + fcb $65 e + fcb $6E n + fcb $74 t + fcb $20 + fcb $5B [ + fcb $2D - + fcb $6F o + fcb $70 p + fcb $74 t + fcb $73 s + fcb $5D ] + fcb $20 + fcb $3C < + fcb $6D m + fcb $6F o + fcb $64 d + fcb $75 u + fcb $6C l + fcb $65 e + fcb $3E > + fcb $20 + fcb $5B [ + fcb $2D - + fcb $6F o + fcb $70 p + fcb $74 t + fcb $73 s + fcb $5D ] + fcb $0A + fcb $20 + fcb $20 + fcb $74 t + fcb $6F o + fcb $20 + fcb $64 d + fcb $69 i + fcb $73 s + fcb $70 p + fcb $6C l + fcb $61 a + fcb $79 y + fcb $20 + fcb $6D m + fcb $6F o + fcb $64 d + fcb $75 u + fcb $6C l + fcb $65 e + fcb $20 + fcb $68 h + fcb $65 e + fcb $61 a + fcb $64 d + fcb $65 e + fcb $72 r + fcb $2E . + fcb $0A + fcb $20 + fcb $20 + fcb $2D - + fcb $6D m + fcb $20 + fcb $74 t + fcb $6F o + fcb $20 + fcb $64 d + fcb $69 i + fcb $73 s + fcb $70 p + fcb $6C l + fcb $61 a + fcb $79 y + fcb $20 + fcb $6D m + fcb $6F o + fcb $64 d + fcb $75 u + fcb $6C l + fcb $65 e + fcb $20 + fcb $69 i + fcb $6E n + fcb $20 + fcb $6D m + fcb $65 e + fcb $6D m + fcb $6F o + fcb $72 r + fcb $79 y + fcb $2E . + fcb $0A + fcb $20 + fcb $20 + fcb $2D - + fcb $73 s + fcb $20 + fcb $66 f + fcb $6F o + fcb $72 r + fcb $20 + fcb $73 s + fcb $68 h + fcb $6F o + fcb $72 r + fcb $74 t + fcb $20 + fcb $66 f + fcb $6F o + fcb $72 r + fcb $6D m + fcb $2E . + fcb $0A + fcb $20 + fcb $20 + fcb $2D - + fcb $76 v + fcb $20 + fcb $66 f + fcb $6F o + fcb $72 r + fcb $20 + fcb $6E n + fcb $6F o + fcb $20 + fcb $43 C + fcb $52 R + fcb $43 C + fcb $20 + fcb $76 v + fcb $65 e + fcb $72 r + fcb $69 i + fcb $66 f + fcb $69 i + fcb $63 c + fcb $61 a + fcb $74 t + fcb $69 i + fcb $6F o + fcb $6E n + fcb $0A + fcb $20 + fcb $20 + fcb $2D - + fcb $78 x + fcb $20 + fcb $66 f + fcb $6F o + fcb $72 r + fcb $20 + fcb $66 f + fcb $69 i + fcb $6C l + fcb $65 e + fcb $20 + fcb $69 i + fcb $6E n + fcb $20 + fcb $65 e + fcb $78 x + fcb $65 e + fcb $63 c + fcb $75 u + fcb $74 t + fcb $69 i + fcb $6F o + fcb $6E n + fcb $20 + fcb $64 d + fcb $69 i + fcb $72 r + fcb $65 e + fcb $63 c + fcb $74 t + fcb $6F o + fcb $72 r + fcb $79 y + fcb $0D +L00CD fcb $4D M + fcb $6F o + fcb $64 d + fcb $75 u + fcb $6C l + fcb $65 e + fcb $20 + fcb $68 h + fcb $65 e + fcb $61 a + fcb $64 d + fcb $65 e + fcb $72 r + fcb $20 + fcb $69 i + fcb $73 s + fcb $20 + fcb $69 i + fcb $6E n + fcb $63 c + fcb $6F o + fcb $72 r + fcb $72 r + fcb $65 e + fcb $63 c + fcb $74 t + fcb $A1 ! +L00E8 fcb $48 H + fcb $65 e + fcb $61 a + fcb $64 d + fcb $65 e + fcb $72 r + fcb $20 + fcb $66 f + fcb $6F o + fcb $72 r + fcb $3A : + fcb $A0 +L00F4 fcb $4D M + fcb $6F o + fcb $64 d + fcb $75 u + fcb $6C l + fcb $65 e + fcb $20 + fcb $73 s + fcb $69 i + fcb $7A z + fcb $65 e + fcb $BA : +L0100 fcb $4D M + fcb $6F o + fcb $64 d + fcb $75 u + fcb $6C l + fcb $65 e + fcb $20 + fcb $43 C + fcb $52 R + fcb $43 C + fcb $3A : + fcb $A0 +L010C fcb $48 H + fcb $64 d + fcb $72 r + fcb $20 + fcb $70 p + fcb $61 a + fcb $72 r + fcb $69 i + fcb $74 t + fcb $79 y + fcb $3A : + fcb $A0 +L0118 fcb $45 E + fcb $78 x + fcb $65 e + fcb $63 c + fcb $2E . + fcb $20 + fcb $6F o + fcb $66 f + fcb $66 f + fcb $3A : + fcb $20 + fcb $A0 +L0124 fcb $44 D + fcb $61 a + fcb $74 t + fcb $61 a + fcb $20 + fcb $53 S + fcb $69 i + fcb $7A z + fcb $65 e + fcb $3A : + fcb $20 + fcb $A0 +L0130 fcb $54 T + fcb $79 y + fcb $2F / + fcb $4C L + fcb $61 a + fcb $20 + fcb $41 A + fcb $74 t + fcb $2F / + fcb $52 R + fcb $76 v + fcb $BA : +L013C fcb $45 E + fcb $64 d + fcb $69 i + fcb $74 t + fcb $69 i + fcb $6F o + fcb $6E n + fcb $3A : + fcb $20 + fcb $20 + fcb $20 + fcb $A0 +L0148 fcb $6D m + fcb $6F o + fcb $64 d + fcb $AC , +L014C fcb $72 r + fcb $65 e + fcb $2D - + fcb $65 e + fcb $6E n + fcb $AC , +L0152 fcb $6E n + fcb $6F o + fcb $6E n + fcb $2D - + fcb $73 s + fcb $68 h + fcb $72 r + fcb $AC , +L015A fcb $52 R + fcb $2F / + fcb $CF O +L015D fcb $52 R + fcb $2F / + fcb $D7 W +L0160 fcb $28 ( + fcb $47 G + fcb $6F o + fcb $6F o + fcb $64 d + fcb $A9 ) +L0166 fcb $28 ( + fcb $42 B + fcb $61 a + fcb $64 d + fcb $29 ) + fcb $87 +L016C fcb $10 + fcb $1C + fcb $20 + fcb $24 $ + fcb $29 ) + fcb $2D - + fcb $32 2 + fcb $37 7 + fcb $3C < + fcb $41 A + fcb $46 F + fcb $4B K + fcb $50 P + fcb $56 V + fcb $5E ^ + fcb $65 e + fcb $62 b + fcb $61 a + fcb $64 d + fcb $20 + fcb $74 t + fcb $79 y + fcb $70 p + fcb $65 e + fcb $20 + fcb $66 f + fcb $6F o + fcb $F2 r + fcb $50 P + fcb $72 r + fcb $6F o + fcb $E7 g + fcb $53 S + fcb $75 u + fcb $62 b + fcb $F2 r + fcb $4D M + fcb $75 u + fcb $6C l + fcb $74 t + fcb $E9 i + fcb $44 D + fcb $61 a + fcb $74 t + fcb $E1 a + fcb $55 U + fcb $73 s + fcb $72 r + fcb $20 + fcb $B5 5 + fcb $55 U + fcb $73 s + fcb $72 r + fcb $20 + fcb $B6 6 + fcb $55 U + fcb $73 s + fcb $72 r + fcb $20 + fcb $B7 7 + fcb $55 U + fcb $73 s + fcb $72 r + fcb $20 + fcb $B8 8 + fcb $55 U + fcb $73 s + fcb $72 r + fcb $20 + fcb $B9 9 + fcb $55 U + fcb $73 s + fcb $72 r + fcb $20 + fcb $C1 A + fcb $55 U + fcb $73 s + fcb $72 r + fcb $20 + fcb $C2 B + fcb $53 S + fcb $79 y + fcb $73 s + fcb $74 t + fcb $65 e + fcb $ED m + fcb $46 F + fcb $69 i + fcb $6C l + fcb $65 e + fcb $20 + fcb $4D M + fcb $61 a + fcb $EE n + fcb $44 D + fcb $65 e + fcb $76 v + fcb $20 + fcb $44 D + fcb $76 v + fcb $F2 r + fcb $44 D + fcb $65 e + fcb $76 v + fcb $20 + fcb $44 D + fcb $73 s + fcb $E3 c +L01D8 fcb $10 + fcb $15 + fcb $1E + fcb $2D - + fcb $3B ; + fcb $44 D + fcb $51 Q + fcb $60 ` + fcb $60 ` + fcb $60 ` + fcb $60 ` + fcb $60 ` + fcb $60 ` + fcb $60 ` + fcb $60 ` + fcb $60 ` + fcb $44 D + fcb $61 a + fcb $74 t + fcb $61 a + fcb $AC , + fcb $36 6 + fcb $38 8 + fcb $30 0 + fcb $39 9 + fcb $20 + fcb $6F o + fcb $62 b + fcb $6A j + fcb $AC , + fcb $42 B + fcb $41 A + fcb $53 S + fcb $49 I + fcb $43 C + fcb $30 0 + fcb $39 9 + fcb $20 + fcb $49 I + fcb $2D - + fcb $63 c + fcb $6F o + fcb $64 d + fcb $65 e + fcb $AC , + fcb $50 P + fcb $41 A + fcb $53 S + fcb $43 C + fcb $41 A + fcb $4C L + fcb $20 + fcb $50 P + fcb $2D - + fcb $63 c + fcb $6F o + fcb $64 d + fcb $65 e + fcb $AC , + fcb $43 C + fcb $20 + fcb $49 I + fcb $2D - + fcb $63 c + fcb $6F o + fcb $64 d + fcb $65 e + fcb $AC , + fcb $43 C + fcb $4F O + fcb $42 B + fcb $4F O + fcb $4C L + fcb $20 + fcb $49 I + fcb $2D - + fcb $63 c + fcb $6F o + fcb $64 d + fcb $65 e + fcb $AC , + fcb $46 F + fcb $4F O + fcb $52 R + fcb $54 T + fcb $52 R + fcb $41 A + fcb $4E N + fcb $20 + fcb $49 I + fcb $2D - + fcb $63 c + fcb $6F o + fcb $64 d + fcb $65 e + fcb $AC , + fcb $3F ? + fcb $3F ? + fcb $3F ? + fcb $3F ? + fcb $AC , +start equ * + leas >u019C,u + sts <u0006 + tfr y,d + subd <u0006 + std <u0008 + leay <u0022,u + sty <u0000 + clr <u000A + clr <u000B + clr <u000C + clr <u0018 + lda #$01 + sta <u000D + ldd #$0000 + std <u0002 + std <u0004 +L0263 lda ,x+ +L0265 cmpa #$20 + beq L0263 + cmpa #$2C + beq L0263 + cmpa #$0D + beq L02BB + cmpa #$2D + beq L027E + ldy <u0002 + bne L0263 + stx <u0002 + bra L0263 +L027E lda ,x+ + cmpa #$2D + beq L027E + cmpa #$30 + bcs L0265 + eora #$4D + anda #$DF + bne L0292 + inc <u000A + bra L027E +L0292 lda -$01,x + eora #$53 + anda #$DF + bne L029E + inc <u000B + bra L027E +L029E lda -$01,x + eora #$56 + anda #$DF + bne L02AA + inc <u000C + bra L027E +L02AA lda -$01,x + eora #$58 + anda #$DF + bne L02B8 + lda #$05 + sta <u000D + bra L027E +L02B8 lbra L03C4 +L02BB ldx <u0002 + lbeq L03C4 + leax -$01,x + tst <u000A + beq L0314 + pshs u + clra + os9 F$Link + lbcs L03D2 + stu <u000E + ldd ,u + cmpd #$87CD + beq L02EB + puls u +L02DD leay >L00CD,pcr + lbsr L05FC + lbsr L0612 + clrb + lbra L03D2 +L02EB ldd u0002,u + subd #$0003 + leax d,u + puls u + leay <u0010,u + pshs u + lda #$03 +L02FB ldb ,x+ + stb ,y+ + deca + bne L02FB + puls u + lbsr L03D5 + ldu <u000E + os9 F$UnLink + lbcs L03D2 + clrb + lbra L03D2 +L0314 lda #$80 + sta <u00A1 + lda <u000D + os9 I$Open + lbcs L03D2 + sta <u0019 + ldd #$0000 + std <u001E + std <u0020 + std <u001C +L032C ldd <u0020 + addd <u001C + std <u0020 + bcc L033B + ldd <u001E + addd #$0001 + std <u001E +L033B pshs u + ldx <u001E + ldu <u0020 + lda <u0019 + os9 I$Seek + lbcs L03D2 + puls u + leax <u0072,u + stx <u000E + ldy #$000E + os9 I$Read + bcc L0360 + cmpb #$D3 + bne L03D2 + bra L03C1 +L0360 ldd ,x + cmpd #$87CD + lbne L02DD + pshs u,x + ldd $02,x + std <u001C + addd <u0020 + tfr d,u + leau -u0003,u + ldx <u001E + bcc L037C + leax $01,x +L037C lda <u0019 + os9 I$Seek + bcs L03D2 + puls u,x + leax <u0010,u + ldy #$0003 + lda <u0019 + os9 I$Read + bcs L03D2 + pshs u,x + ldy <u000E + ldd $04,y + addd <u0020 + tfr d,u + ldx <u001E + bcc L03A4 + leax $01,x +L03A4 lda <u0019 + os9 I$Seek + bcs L03D2 + puls u,x + leax >u0080,u + ldy #$0021 + lda <u0019 + os9 I$Read + bcs L03D2 + bsr L03D5 + lbra L032C +L03C1 clrb + bra L03D2 +L03C4 lda #$01 + leax >L0013,pcr + ldy #$00BA + os9 I$WritLn + clrb +L03D2 os9 F$Exit +L03D5 tst <u000B + lbne L0502 + lbsr L0612 + leay >L00E8,pcr + lbsr L05FC + lbsr L04E9 + lbsr L0612 + leay >L00F4,pcr + lbsr L05FC + ldy <u000E + ldd $02,y + lbsr L05D2 + leay >L0100,pcr + lbsr L05FC + lbsr L0543 + tst <u000C + bne L041E + lbsr L0553 + tsta + beq L0417 + leay >L0166,pcr + lbsr L05FC + bra L041E +L0417 leay >L0160,pcr + lbsr L05FC +L041E lbsr L0612 + leay >L010C,pcr + lbsr L05FC + ldy <u000E + ldb $08,y + lbsr L0633 + lbsr L0612 + ldy <u000E + ldb $06,y + stb <u001A + andb #$F0 + cmpb #$E0 + beq L0444 + cmpb #$10 + bne L0462 +L0444 leay >L0118,pcr + lbsr L05FC + ldy <u000E + ldd $09,y + lbsr L05D2 + leay >L0124,pcr + lbsr L05FC + ldy <u000E + ldd $0B,y + lbsr L05D2 +L0462 leay >L013C,pcr + lbsr L05FC + ldb <u0016 + pshs b + lbsr L0633 + ldb #$05 + lbsr L0654 + puls b + clra + lbsr L0649 + lbsr L0612 + leay >L0130,pcr + lbsr L05FC + ldb <u001A + lbsr L0633 + ldy <u000E + ldb $07,y + stb <u001B + lbsr L0633 + lbsr L0612 + ldb <u001A + lsrb + lsrb + lsrb + lsrb + leax >L016C,pcr + lda b,x + leay a,x + lbsr L05FC + leay >L0148,pcr + lbsr L05FC + ldb <u001A + andb #$0F + leax >L01D8,pcr + lda b,x + leay a,x + lbsr L05FC + ldb <u001B + bitb #$80 + beq L04CD + leay >L014C,pcr + lbsr L05FC + bra L04D4 +L04CD leay >L0152,pcr + lbsr L05FC +L04D4 bitb #$40 + beq L04DE + leay >L015D,pcr + bra L04E2 +L04DE leay >L015A,pcr +L04E2 lbsr L05FC + lbsr L0612 + rts +L04E9 tst <u000A + beq L04F6 + ldy <u000E + ldd $04,y + leay d,y + bra L04FA +L04F6 leay >u0080,u +L04FA lbsr L05FC + lda ,y + sta <u0016 + rts +L0502 ldb #$06 + lbsr L0654 + ldy <u000E + ldb $06,y + lbsr L0633 + bsr L0543 + tst <u000C + beq L0519 + lda #$20 + bra L0520 +L0519 bsr L0553 + tsta + bne L0520 + lda #$2E +L0520 lbsr L0608 + lbsr L0666 + bsr L04E9 + ldx <u0000 + pshs x + leax <u0022,u + stx <u0000 + ldb <u0016 + inc <u0018 + clra + lbsr L0692 + clr <u0018 + puls x + stx <u0000 + lbsr L0612 + rts +L0543 lda #$24 + lbsr L0608 + ldd <u0010 + lbsr L066E + ldb <u0012 + lbsr L0664 + rts +L0553 ldd #$FFFF + std <u0013 + stb <u0015 + pshs u,y,x + leau <u0013,u + tst <u000A + beq L0571 + ldx <u000E + ldy $02,x + os9 F$CRC + lbcs L03D2 + bra L058C +L0571 pshs u,x + ldx <u001E + ldu <u0020 + lda <u0019 + os9 I$Seek + puls u,x + lbcs L03D2 + ldd <u001C + pshs b,a + bsr L05BF + puls b,a + std <u001C +L058C puls u,y,x + lda <u0013 + cmpa #$80 + bne L059E + ldd <u0014 + cmpd #$0FE3 + bne L059E + bra L05A1 +L059E lda #$3F + rts +L05A1 clra + rts +L05A3 lda <u0019 + ldx <u0006 + ldy <u0008 + cmpy <u001C + bls L05B2 + ldy <u001C +L05B2 os9 I$Read + sty <u0004 + rts +L05B9 bsr L05A3 + lbcs L03D2 +L05BF ldy <u0004 + beq L05B9 + os9 F$CRC + ldd <u001C + subd <u0004 + std <u001C + bne L05B9 + std <u0004 + rts +L05D2 pshs b,a + bsr L0628 + ldb #$03 + bsr L0654 + puls b,a + bsr L0649 + bsr L0612 + rts + pshs b,a + andb #$F0 + lsrb + lsrb + lsrb + lsrb +L05E9 lda #$24 + bsr L0608 + lbsr L0682 + ldb #$02 + bsr L0654 + puls pc,b,a + pshs b,a + andb #$0F + bra L05E9 +L05FC lda ,y + anda #$7F + bsr L0608 + lda ,y+ + bpl L05FC +L0606 lda #$20 +L0608 pshs x + ldx <u0000 + sta ,x+ + stx <u0000 + puls pc,x +L0612 pshs y,x,a + lda #$0D + bsr L0608 + leax <u0022,u + stx <u0000 + ldy #$0050 + lda #$01 + os9 I$WritLn + puls pc,y,x,a +L0628 pshs a + lda #$24 + bsr L0608 + puls a + bsr L0660 + rts +L0633 pshs a + lda #$24 + bsr L0608 + puls a + bsr L0664 + rts + pshs a + lda #$24 + bsr L0608 + puls a + bsr L0682 + rts +L0649 pshs a + lda #$23 + bsr L0608 + puls a + bsr L0692 + rts +L0654 pshs b,a +L0656 tstb + ble L065E + bsr L0606 + decb + bra L0656 +L065E puls pc,b,a +L0660 bsr L066E + bra L0666 +L0664 bsr L0674 +L0666 pshs a + lda #$20 + bsr L0608 + puls pc,a +L066E exg a,b + bsr L0674 + tfr a,b +L0674 pshs b + andb #$F0 + lsrb + lsrb + lsrb + lsrb + bsr L0682 + puls b + andb #$0F +L0682 cmpb #$09 + bls L0688 + addb #$07 +L0688 addb #$30 + exg a,b + lbsr L0608 + exg a,b + rts +L0692 pshs u,y,b + leau <L06C3,pcr + clr <u0017 + ldy #$0005 +L069D clr ,s +L069F subd ,u + bcs L06A7 + inc ,s + bra L069F +L06A7 addd ,u++ + pshs b + ldb $01,s + exg a,b + bsr L06CD + exg a,b + puls b + cmpy #$0002 + bgt L06BD + inc <u0017 +L06BD leay -$01,y + bne L069D + puls pc,u,y,b +L06C3 fdb $2710,$03e8,$0064,$000a,$0001 +L06CD tsta + beq L06D2 + sta <u0017 +L06D2 tst <u0017 + bne L06DF + tst <u0018 + beq L06DE + lda #$20 + bra L06E1 +L06DE rts +L06DF adda #$30 +L06E1 lbra L0608 + + emod +eom equ * + end