====== PROCS ====== Header for : Procs Module size: $1E8 #488 Module CRC : $D73D34 (Good) Hdr parity : $C1 Exec. off : $005E #94 Data size : $0B15 #2837 Edition : $08 #8 Ty/La At/Rv: $11 $81 Prog mod, 6809 Obj, re-ent, R/O ===== CODE ===== * Disassembly by Os9disasm of procs mod L01e8,L000d,$11,$81,L005e,D0b15 * OS-9 system function equates F$Exit equ $06 I$WritLn equ $8c * OS9 data area definitions D0000 rmb 1 D0001 rmb 2 D0003 rmb 1 D0004 rmb 1 D0005 rmb 2 D0007 rmb 2 D0009 rmb 1 D000a rmb 35 D002d rmb 55 D0064 rmb 66 D00a6 rmb 66 D00e8 rmb 24 D0100 rmb 2581 D0b15 equ . L000d negb fcb $72 clr 3,s addd $080a L0013 equ *-1 fcb $55 com 29216 bls L003a bra L0085 fcb $64 bra L008f lsr 31008 com 29793 bra L0094 fcb $65 fcb $6d bra L009b fcb $72 fcb $69 bra L009c clr 4,s tst D002d L0032 equ *-1 blt L0062 blt L0064 bra L0066 blt L0068 L003a equ *-1 bra L006a blt L006c bra L006e blt L0070 bra L0072 blt L0074 bra L0076 blt L0078 blt L007a blt Lfffc L004f bra L00b2 com -12,s fcb $a0 L0054 bra L00cd fcb $61 rol ,y+ L0059 bra L00ce inc 5,s suba 15,x L005e equ *-1 neg D00a6 suba #$88 L0062 equ *-1 fcb $45 L0064 anda #$df L0066 bne L006a L0068 inc D0000 L006a leax 12,u L006c stx D000a L006e orcc #$50 L0070 ldx >$004d L0072 equ *-1 stx D0001 L0074 equ *-1 ldx >$004f L0076 equ *-2 L0078 stx D0003 L007a ldx >$0051 stx D0005 ldx >$004b ldd 9,x std D0007 L0085 equ *-1 pshs u leau 2387,u lda #1 ldx D0001 L008f equ *-1 lbsr L019d lda #2 L0094 equ *-1 ldx D0003 lbsr L019d lda #3 L009b equ *-1 L009c ldx D0005 lbsr L019d andcc #$af clra clrb pshu d pshu d puls u leay L0013,pcr bsr L010a bsr L0115 L00b2 equ *-1 leay L0032,pcr bsr L010a bsr L0115 leax 2387,u L00bf leax -9,x ldd 5,x beq L0106 ldd 7,x lbsr L0166 lbsr L014d L00cd ldb ,x L00ce equ *-1 bsr L012a lbsr L014d ldb 3,x bsr L012a lda 4,x leay L004f,pcr cmpa #1 beq L00ee leay L0054,pcr cmpa #2 beq L00ee leay L0059,pcr L00ee bsr L010a ldb 2,x bsr L012a lbsr L014d ldy 5,x ldd D0004,y leay d,y bsr L010a bsr L014d bsr L0115 bra L00bf L0106 clrb os9 F$Exit L010a lda ,y anda #$7f bsr L0151 lda ,y+ bpl L010a rts L0115 pshs a,x,y lda #$0d bsr L0151 leax 12,u stx D000a ldy #$0050 lda #1 os9 I$WritLn puls a,x,y,pc L012a clr D0009 lda #255 L012e inca subb #$64 bcc L012e bsr L0144 lda #$0a L0137 deca addb #$0a bcc L0137 bsr L0144 tfr b,a adda #$30 bra L0151 L0144 tsta beq L0149 sta D0009 L0149 tst D0009 bne L014f L014d lda #$f0 L014f adda #$30 L0151 pshs x ldx D000a sta ,x+ stx D000a puls x,pc L015b beq L016d com D00e8 neg D0064 neg D000a neg D0001 stu 13366 L0166 equ *-2 leax $0064 tsta beq L01e2 clrb lsra rorb lsra rorb lda a,x tfr d,y beq L01e2 tst ,y bne L01e3 L01e2 coma L01e3 puls d,x,pc emod L01e8 equ * end ===== RTS ===== Return to [[:OS-9:]] or [[:Top:]]