====== VERIFY ====== Header for : Verify Module size: $172 #370 Module CRC : $8A718C (Good) Hdr parity : $5B Exec. off : $0014 #20 Data size : $04EE #1262 Edition : $05 #5 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of verify mod L0172,L000d,$11,$81,L0014,D04ee * OS-9 system function equates F$Exit equ $06 F$CRC equ $17 I$Read equ $89 I$Write equ $8a I$WritLn equ $8c * class D external label equates Dfffd equ $fffd * OS9 data area definitions D0000 rmb 1 D0001 rmb 1 D0002 rmb 1 D0003 rmb 2 D0005 rmb 1 D0006 rmb 2 D0008 rmb 2 D000a rmb 6 D0010 rmb 51 D0043 rmb 71 D008a rmb 1124 D04ee equ . L000d rorb fcb $65 fcb $72 rol 6,s adcb $0532 L0014 equ *-1 adcb #1 ror D0010 stu D0006 tfr y,d subd D0006 std D0008 clr D0005 L0023 lda ,x+ cmpa #$20 beq L0023 anda #$5f cmpa #$55 bne L0031 inc D0005 L0031 ldd #9 std D0003 lbsr L00f6 bcs L004d cmpy #9 bne L0055 ldd ,x cmpd #$87cd bne L0055 bsr L0059 bra L0031 L004d cmpb #$d3 bne L0052 clrb L0052 os9 F$Exit L0055 ldb #$cd bra L0052 L0059 clrb lda #8 L005c eorb ,x+ deca bne L005c lda D0005 bne L0079 eorb ,x incb beq L0070 leax L012f,pcr bra L0074 L0070 leax L0115,pcr L0074 lbsr L010b bra L007c L0079 comb stb ,x L007c ldx D0006 ldy 2,x leay Dfffd,y sty D0003 ldd #-1 std D0000 stb D0002 bsr L00d6 lda D0005 bne L00b6 ldd #3 std D0003 bsr L00d6 lda D0000 cmpa #$80 bne L00a8 ldd D0001 cmpd #$0fe3 beq L00ae L00a8 leax L015c,pcr bra L00b2 L00ae leax L014c,pcr L00b2 bsr L010b bra L00cf L00b6 com D0000 com D0001 com D0002 lda #1 leax ,u ldy #3 os9 I$Write bcs L0052 clra os9 I$Read bcs L0052 L00cf rts L00d0 bsr L00f6 lblo L0052 L00d6 ldy D000a beq L00d0 os9 F$CRC lda D0005 beq L00eb lda #1 os9 I$Write lblo L0052 L00eb ldd D0003 subd D000a std D0003 bne L00d0 std D000a rts L00f6 clra ldx D0006 ldy D0008 cmpy D0003 bls L0104 ldy D0003 L0104 os9 I$Read sty D000a rts L010b lda #2 ldy #$0050 os9 I$WritLn rts L0115 asla fcb $65 fcb $61 lsr 5,s fcb $72 bra L018d fcb $61 fcb $72 rol -12,s rol $2069 com $2063 clr -14,s fcb $72 fcb $65 com -12,s bgt L013c L012f asla fcb $65 fcb $61 lsr 5,s fcb $72 bra L01a7 fcb $61 fcb $72 rol -12,s rol $2069 L013c equ *-2 com $2049 fcb $4e coma clra fcb $52 fcb $52 fcb $45 coma lsrb bra L016c tst D0043 L014c equ *-1 fcb $52 coma bra L01ba com $2063 clr -14,s fcb $72 fcb $65 com -12,s bgt L0169 L015c coma fcb $52 coma bra L01ca com $2049 fcb $4e coma clra fcb $52 fcb $52 L0169 fcb $45 coma lsrb L016c bra L018f fcb $0d emod L0172 equ * end ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]