Syzygy Magazine 5/Syzygy_Magazine_5_Expanded_1998___pl_Disk_1_of_2_Side_A.atr/stuff.arc/XFIX.ARC/XFIX.ASM

Assembly Source File | 1988-09-01 | 3KB | 1 lines

* XFix 1.01¢* XF551 Resident Utility¢* 29.08.1998¢* based on XTOS 1.17¢* (c)(p) 1998 ELC¢¢ opt %0100101¢¢ org $4000¢¢run lda 82¢ pha¢ lda #0¢ sta 82¢ ldx <tnull¢ ldy >tnull¢ jsr $c642¢ ldx <t0¢ ldy >t0¢ jsr $c642¢ ldx <t4¢ ldy >t4¢ jsr $c642¢ ldx <t1¢ ldy >t1¢ jsr $c642¢ ldx #0¢ jsr ser1¢ ldx #3¢ jsr ser1¢ ldx #6¢ jsr ser1¢ ldx #9¢ jsr ser1¢ ldx <t2¢ ldy >t2¢ jsr $c642¢ lda $20a¢ sta toirq+1¢ lda $20b¢ sta toirq+2¢ ldx <t3¢ ldy >t3¢ jsr $c642¢ pla¢ sta 82¢ rts¢¢ser1 lda #0¢ sta $80¢ lda #7¢ sta $81¢l0 ldy #0¢ lda ($80),y¢ cmp s1,x¢ bne l1¢ iny¢ lda ($80),y¢ cmp s1+1,x¢ bne l1¢ iny¢ lda ($80),y¢ cmp s1+2,x¢ bne l1¢ lda o1+2,x¢ sta ($80),y¢ dey¢ lda o1+1,x¢ sta ($80),y¢ dey¢ lda o1,x¢ sta ($80),y¢ lda #2¢ clc¢ adc $80¢ sta $80¢ bcc *+4¢ inc $81¢l1 inc $80¢ bne *+4¢ inc $81¢ lda $80¢ cmp $2e7¢ lda $81¢ sbc $2e8¢ bcc l0¢ rts¢¢s1 jsr $e459¢   jsr $e453¢   jmp $e459¢   jmp $e453¢¢o1 jsr sioint¢   jsr dskint¢   jmp sioint¢   jmp dskint¢¢t0 dta c'* XFix 1.01 XF551 Utility. (29081998-0)'¢tnull dta b($9b)¢t4 dta c'* (p) 1998 Electron (ELC) of Taquart',b($9b)¢t1 dta c'* Updating DOS...',b($9b)¢t2 dta c'* DOS update completed.',b($9b)¢t3 dta c'* XFix 1.01 Installed.',b($9b)¢¢ org $2e0¢ dta a(run)¢¢*-------------------------------¢* Main resident program¢¢ org $600¢¢* device table - 1=xf551,0=another¢* (drives 1-8)¢¢dtabl dta d'!       '¢sides dta b(1)¢¢percom dta b(40),b(0),b(0),b(18)¢_sides dta b(0)¢ dta b(4),b(1),b(0)¢¢runirq lda <irq¢ sta $20a¢ lda >irq¢ sta $20b¢ lda sides¢ sta _sides¢ rts¢¢irq lda $40¢ beq toirq¢ lda #$10¢ sta $d204¢toirq jmp $ffff¢¢dskint jsr runirq¢ ldx $301¢ lda dtabl-1,x¢ beq diskgo¢ lda $302¢ and #$7f¢ cmp #$53¢ beq kop¢ cmp #$4e¢ bne diskgo¢kop lda #$31¢ sta $300¢ jsr kopnij¢diskgo lda #0¢ sta $40¢ jmp $e453¢¢sioint jsr runirq¢ lda #0¢ sta $40¢ clc¢ lda $300¢ adc $301¢ adc #$ff¢ tax¢ cpx #$39¢ bcs exec1¢ cpx #$31¢ bcc exec1¢ lda dtabl-$31,x¢ beq exec1¢sio0 jsr check¢exec1 jmp $e459¢¢check lda $302¢ ora #$80¢ sta $302¢ cmp #$d3¢ beq sio1¢ cmp #$ce¢ bcc tosio¢ bne *+5¢sio1 jsr kopnij¢ inc $40¢tosio rts¢¢kopnij ldx #0¢ lda $302,x¢ pha¢ inx¢ cpx #10¢ bcc kopnij+2¢kop1 lda #0¢ sta $40¢ lda $d20f¢ and #8¢ beq niekop¢ lda #12¢ sta $308¢ lda #6¢ sta $306¢ lda #$80¢ sta $303¢ asl @¢ sta $309¢ sta $30b¢ lda #$4f¢ sta $302¢ lda <percom¢ sta $304¢ lda >percom¢ sta $305¢ jsr $e459¢ bmi kop1¢ lda #1¢ sta $30a¢ lda #128¢ sta $308¢ lda #$52¢ sta $302¢ lda #$d8¢ sta $305¢ lda #$40¢ sta $303¢ jsr sio0¢ bmi kop1¢niekop ldx #9¢ pla¢ sta $302,x¢ dex¢ bpl *-5¢ rts¢¢ end¢¢¢