====== MODOS9 ====== Header for : OS9 Module size: $7E7 #2023 Module CRC : $6678A3 (Good) Hdr parity : $18 Edition : $0C #12 Ty/La At/Rv: $C1 $81 System mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of modos9 mod L07e7,L000d,$c1,$81,L0076,D0000 * OS-9 system function equates F$Link equ $00 F$Load equ $01 F$UnLink equ $02 F$Exit equ $06 F$Mem equ $07 F$DelBit equ $14 F$AProc equ $2c F$NProc equ $2d F$All64 equ $30 I$Dup equ $82 * class D external label equates D0001 equ $0001 D0002 equ $0002 D0003 equ $0003 D0006 equ $0006 D0007 equ $0007 D0008 equ $0008 D0009 equ $0009 D000a equ $000a D000b equ $000b D000d equ $000d D000e equ $000e D0012 equ $0012 D001a equ $001a D0020 equ $0020 D0022 equ $0022 D0024 equ $0024 D0026 equ $0026 D0028 equ $0028 D002a equ $002a D002e equ $002e D0033 equ $0033 D0038 equ $0038 D003a equ $003a D003c equ $003c D003e equ $003e D0040 equ $0040 D0042 equ $0042 D0043 equ $0043 D0044 equ $0044 D0046 equ $0046 D0048 equ $0048 D0049 equ $0049 D004b equ $004b D004d equ $004d D004f equ $004f D0051 equ $0051 D005b equ $005b D0066 equ $0066 D0070 equ $0070 D0081 equ $0081 D00b9 equ $00b9 D00d7 equ $00d7 D0100 equ $0100 D05bc equ $05bc Dfff4 equ $fff4 Dfff8 equ $fff8 Dfffe equ $fffe Dffff equ $ffff * OS9 data area definitions D0000 equ . L000d clra comb adca $0c43 coma L0013 rola fcb $4e rola andb D004f L0017 equ *-1 comb rts negb sbca $200f L001c equ *-2 nop bra L0031 nop bra L0035 nop bra L0039 nop bra L003d nop bra L0041 jmp [$2c] L0031 jmp [$2e] L0035 jmp [$34] L0039 jmp [$36] L003d jmp [$32] L0041 jmp [$30] L0045 neg D0002 adca $0304 fcb $55 fcb $05 lsr D00b9 bita #4 eorb #$10 ror D00d7 fcb $11 asr D003a nop ror D0070 sync fcb $05 addd -12,x ror D0033 lbsr L03e9 eora 5,x clr D05bc,y cmpx 1,x anda L02b2,pcr ldx 2,x bitb #$32 asr D0043 suba #$8e L0076 equ *-1 neg D0020 ldy #$03e0 clra clrb L007f std ,x++ leay Dfffe,y bne L007f inca inca std D0020 addb #$20 std D0022 addb #2 std D0046 addb #$70 std D0044 clrb inca std D0026 stx D0028 leas 256,x L009f leay ,x ldd ,y ldx #$00ff stx ,y cmpx ,y bne L00c2 ldx #-256 stx ,y cmpx ,y bne L00c2 std ,y leax D0100,y cmpx #-4096 bcs L009f leay ,x L00c2 leax ,y stx D0024 pshs x,y leax L001c,pcr ldy #$0100 ldb #$29 L00d2 lda ,x+ sta ,y+ decb bne L00d2 puls x,y L00db lbsr L0342 bcs L00e6 ldd 2,x leax d,x bra L00ec L00e6 cmpb #$e7 beq L00ee leax 1,x L00ec bne L00db L00ee leay L07e9,pcr leax L0000,pcr pshs x ldx #$002c L00fb ldd ,y++ addd ,s std ,x++ cmpx #$0036 bls L00fb leas 2,s leax L018d,pcr stx D003c leax L023e,pcr stx D0040 leax L01b8,pcr stx D003e stx D0038 leax L0265,pcr stx D0042 stx D002e leax L01c8,pcr stx D003a leax L01ca,pcr stx D0081 leay L0045,pcr lbsr L07dd lda #$c0 leax L0013,pcr os9 F$Link lblo L0076 stu D002a ldd 10,u clrb cmpd D0024 bcc L0150 std D0024 L0150 ldx D0020 ldb #248 stb ,x clra ldb D0024 negb tfr d,y negb lbsr L0646 leax L0017,pcr lda #$c1 os9 F$Link lblo L0076 jmp ,y pshs b,x,pc ldb #$18 bra L0184 pshs b,x,pc ldb #$16 bra L0184 rti jmp [$38] pshs b,x,pc ldb #$14 L0184 ldx >$004b ldx b,x stx 3,s puls b,x,pc L018d leay L024d,pcr bra L0190 ldx 4,u L0212 pshs y,u ldu #63 bra L0220 L0219 ldb 12,u incb beq L0220 stb 12,u L0220 ldu 14,u bne L0219 ldu #63 lda 11,x sta 12,x orcc #$50 L022d leay ,u ldu 14,u beq L0237 cmpa 12,u bls L022d L0237 stu 14,x stx D000e,y clrb puls y,u,pc L023e leay ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]