====== XMODE ======
<code>
Header for : Xmode
Module size: $380  #896
Module CRC : $183908 (Good)
Hdr parity : $AB
Exec. off  : $012D  #301
Data size  : $0241  #577
Edition    : $01  #1
Ty/La At/Rv: $11 $81
Prog mod, 6809 Obj, re-ent, R/O

</code>
===== CODE =====
<code>
* Disassembly by Os9disasm of xmode

 mod L0380,L000d,$11,$81,L012d,D0241

* OS-9 system function equates

F$Link equ $00
F$UnLink equ $02
F$Exit equ $06
F$CRC equ $17
I$WritLn equ $8c

* class D external label equates

Dfff1 equ $fff1
Dfffe equ $fffe
Dffff equ $ffff

* OS9 data area definitions

D0000 rmb 1
D0001 rmb 1
D0002 rmb 1
D0003 rmb 1
D0004 rmb 1
D0005 rmb 1
D0006 rmb 1
D0007 rmb 1
D0008 rmb 1
D0009 rmb 2
D000b rmb 2
D000d rmb 3
D0010 rmb 2
D0012 rmb 1
D0013 rmb 49
D0044 rmb 29
D0061 rmb 1
D0062 rmb 3
D0065 rmb 12
D0071 rmb 1
D0072 rmb 2
D0074 rmb 461
D0241 equ .

L000d lslb  
 tst   15,s
 lsr   b,s
 fcb $01
L0013 fcb $55
 com   $653a
 bra   L0071
 tst   15,s
 lsr   5,s
 bra   L005b
 ble   L0085
 fcb $65
 ror   $6963
 fcb $65
 fcb $3e
 bra   L0084
 clr   -16,s
 lsr   $696f
 jmp   -13,s
 tstb  
 dec   D0074
 fcb $6f
 bra   L0099
 asl   1,s
 jmp   7,s
 fcb $65
 bra   L00a1
 fcb $65
 ror   $2064
 fcb $65
 com   $6372
 rol   -16,s
 lsr   $6f72
 tst   D0044
L004b equ *-1
 fcb $65
 com   $6372
 rol   -16,s
 lsr   $6f72
 bra   L00cb
 clr   15,s
 bra   L00ce
L005b tst   1,s
 inc   12,s
 bra   L00d5
 fcb $6f
 bra   L00c7
 asl   1,s
 jmp   7,s
 fcb $65
 bgt   L0078
L006b comb  
 rol   $6e74
 fcb $61
 asl   $2045
L0071 equ *-2
 fcb $72
 fcb $72
 clr   -14,s
 bge   L0099
L0078 equ *-1
 com   15,s
 fcb $75
 inc   4,s
 jmp   D0007,y
 lsr   $2070
 fcb $72
L0084 clr   3,s
L0085 equ *-1
 fcb $65
 com   29498
 tst   D0000
 fcb $15
L008d stu   $0101
 fcb $01
 fcb $75
 neg   $e3ff
 fcb $01
 fcb $02
 fcb $01
 fcb $62
L0099 com   $e2ff
 neg   D0003
 neg   D0062
 com   $ecff
L00a1 equ *-2
 fcb $01
 lsr   D0001
 fcb $65
 com   8,s
 fcb $ef
 stu   $0105
 fcb $01
 inc   a,s
 neg   D0000
 ror   D0000
 jmp   -11,s
 inc   <L00b8,pcr
L00b8 equ *-1
 fcb $01
 asr   D0001
 neg   $6175
 com   $e500
 fcb $18
 asl   D0000
 neg   $61e7
L00c7 equ *-1
 fcb $01
 asl   D0009
L00cb neg   D0062
 com   -4095
L00ce equ *-2
 fcb $18
 dec   D0000
 lsr   5,s
L00d5 ldd   1,x
 tst   D000b
 neg   D0065
 clr   [,-s]
 fcb $01
 fcb $1b
 inc   D0000
 fcb $65
 clr   a,s
 fcb $01
 lsr   D000d
 neg   D0072
 fcb $65
 neg   29289
 jmp   [,s]
 fcb $01
 fcb $01
 jmp   D0000
 lsr   -11,s
 subb  $0117
 clr   D0000
 neg   29667
 fcb $01
 com   D0010
 neg   D0061
 fcb $62
 clr   -14,s
 andb  $0105
 fcb $11
 neg   D0071
 fcb $75
 rol   [,s]
 fcb $01
 asl   D0012
 neg   D0062
 com   $e501
 asr   D0013
 neg   D0062
 fcb $65
 inc   <L011f,pcr
 fcb $15
L011f fcb $14
 neg   D0074
 rol   28901
 neg   D0002
 fcb $15
 neg   D0062
 fcb $61
 fcb $75
 andb  Dfff1,y
L012d equ *-1
 eorb  #$79
 pshs  u
L0132 clr   ,-y
 cmpy  ,s
 bhi   L0132
 leas  2,s
 bsr   L01ba
 cmpb  #$2f
 lbne  L01dc
 leax  1,x
 pshs  u
 lda   #$f1
 os9 F$Link
 lblo  L01da
 stu   D0000
 lda   18,u
 leay  17,u
 puls  u
 cmpa  #0
 bne   L01dc
 pshs  x
 leax  9,u
 ldb   ,y+
 stb   D0008
L0166 lda   ,y+
 sta   ,x+
 subb  #1
 bhi   L0166
 puls  x
 bsr   L01ba
 cmpb  #$0d
 lbeq  L0287
L0178 bsr   L01ee
 bcs   L01d0
 cmpb  #$0d
 bne   L0178
 leax  9,u
 ldy   D0000
 leay  D0012,y
 ldb   D0008
L018a lda   ,x+
 sta   ,y+
 subb  #1
 bhi   L018a
 ldx   D0000
 ldd   2,x
 subd  #3
 tfr   d,y
 leau  d,x
 ldd   #-1
 std   1,u
 sta   ,u
 os9 F$CRC
 com   ,u
 com   1,u
 com   2,u
L01ad ldu   D0000
 beq   L01b4
 os9 F$UnLink
L01b4 clrb  
 ldb   D0007
 os9 F$Exit
L01ba ldb   ,x+
 cmpb  #$2c
 bne   L01c2
L01c0 ldb   ,x+
L01c2 cmpb  #$20
 beq   L01c0
 leax  -1,x
 clra  
 rts   
L01ca leax  L004b,pcr
 bsr   L01e4
L01d0 leax  L006b,pcr
 bsr   L01e4
 ldx   D0003
 bra   L01e0
L01da stb   D0007
L01dc leax  L0013,pcr
L01e0 bsr   L01e4
 bra   L01ad
L01e4 ldy   #$0050
 lda   #1
 os9 I$WritLn
 rts   
L01ee clr   D0002
 lda   ,x
 cmpa  #$2d
 bne   L01fa
 inc   D0002
 leax  1,x
L01fa stx   D0003
 leay  L008d,pcr
 lbsr  L0351
 bcs   L01d0
 lda   ,y
 bpl   L0219
L0209 ldb   D0001,y
L020b lda   D0002,y
 cmpa  D0008
 bhi   L01ca
 eorb  D0002
 leay  9,u
 stb   a,y
 bra   L01ba
L0219 tst   D0002
 bne   L01d0
 ldb   ,x
 cmpb  #$3d
 bne   L0209
 leax  1,x
 tsta  
 bne   L0240
 clrb  
L0229 lda   ,x
 suba  #$30
 cmpa  #9
 bhi   L0257
 pshs  a
 leax  1,x
 lda   #$0a
 mul   
 addb  ,s+
 adca  #0
 beq   L0229
 bra   L01d0
L0240 bsr   L0268
 bcs   L01d0
 pshs  b
 bsr   L0268
 puls  a
 bcc   L024f
 clrb  
 exg   a,b
L024f asla  
 asla  
 asla  
 asla  
 pshs  a
 addb  ,s+
L0257 lda   ,x
 cmpa  #$20
 beq   L020b
 cmpa  #$0d
 beq   L020b
 cmpa  #$2c
 beq   L020b
 lbra  L01d0
L0268 ldb   ,x
 subb  #$30
 cmpb  #9
 bls   L0280
 cmpb  #$31
 bcs   L0276
 subb  #$20
L0276 subb  #7
 cmpb  #$0f
 bhi   L0285
 cmpb  #$0a
 bcs   L0285
L0280 andcc #254
 leax  1,x
 rts   
L0285 comb  
 rts   
L0287 clr   D0005
 leax  L008d,pcr
 leay  9,u
 clrb  
L0290 lda   b,y
 bsr   L02a1
 incb  
 cmpb  #$20
 bcs   L0290
 lda   #$0d
 lbsr  L032f
 lbra  L01ad
L02a1 pshs  d,x,y,u
 ldy   -2,x
L02a6 cmpb  2,x
 beq   L02b6
 leax  4,x
L02ac lda   ,x+
 bpl   L02ac
 leay  Dffff,y
 bne   L02a6
 puls  d,x,y,u,pc
L02b6 bsr   L032d
 tst   ,x
 bpl   L02de
 lda   ,s
 cmpa  3,x
 beq   L02c6
 lda   #$2d
 bsr   L032f
L02c6 bsr   L02ce
 puls  d,x,y,u,pc
 pshs  x
 bra   L02d2
L02ce pshs  x
 leax  4,x
L02d2 lda   ,x
 anda  #$7f
 bsr   L032f
 lda   ,x+
 bpl   L02d2
 puls  x,pc
L02de bsr   L02ce
 lda   #$3d
 bsr   L032f
 tst   ,x
 bne   L0311
 ldb   ,s
 lda   #$2f
 clr   D0006
L02ee inca  
 subb  #$64
 bcc   L02ee
 bsr   L0306
 lda   #$3a
L02f7 deca  
 addb  #$0a
 bcc   L02f7
 bsr   L0306
 tfr   b,a
 adda  #$30
 bsr   L032f
 puls  d,x,y,u,pc
L0306 inc   D0006
 cmpa  #$30
 bne   L032f
 dec   D0006
 bne   L032f
 rts   
L0311 lda   ,s
 anda  #$f0
 lsra  
 lsra  
 lsra  
 lsra  
 bsr   L0323
 lda   ,s
 anda  #$0f
 bsr   L0323
 puls  d,x,y,u,pc
L0323 adda  #$30
 cmpa  #$39
 bls   L032f
 adda  #7
 bra   L032f
L032d lda   #$20
L032f pshs  d,x,y
 leax  41,u
 ldb   D0005
 sta   b,x
 cmpa  #$0d
 beq   L0349
 incb  
 cmpb  #$16
 bcs   L034d
 cmpa  #$20
 bne   L034d
 lda   #$0d
 sta   b,x
L0349 lbsr  L01e4
 clrb  
L034d stb   D0005
 puls  d,x,y,pc
L0351 pshs  x,y,u
 ldu   Dfffe,y
L0355 ldx   ,s
 sty   2,s
 leay  D0004,y
L035c lda   ,y+
 eora  ,x+
 anda  #$df
 asla  
 bne   L036c
 bcc   L035c
 stx   ,s
 clra  
 puls  x,y,u,pc
L036c leay  Dffff,y
L036e lda   ,y+
 bpl   L036e
 leau  -1,u
 cmpu  #0
 bhi   L0355
 coma  
 puls  x,y,u,pc

 emod 

L0380 equ *

 end
</code>
===== RTS =====
Return to [[:OS-9:]] or [[:Top:]]