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

* 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

Return to OS-9 or Top