Mercurial > hg > Members > kono > os9 > sbc09
view CoCoOS9/level2v3/CMDS/ident.asm @ 31:bd2b07db8917 cocoos9lv2v3
CoCoOS9 version
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Sat, 14 Jul 2018 15:16:13 +0900 |
| parents | |
| children |
line wrap: on
line source
******************************************************************** * Ident - Show module information * * $Id: ident.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $ * * 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