diff --git a/drivers/a2vt100.s b/drivers/a2vt100.s index 82b4dc6..2afb5bd 100644 --- a/drivers/a2vt100.s +++ b/drivers/a2vt100.s @@ -1622,7 +1622,20 @@ EL2 sta (xVector),y ; clear char rts .else ErLn - ; TODO Write me + txa ; Shuffle row number into Y + tay + ldx #$00 ; Start column +EL1 txa ; Preserve X + pha + jsr VidexSetVec ; Set up pointers + jsr VidexPage ; Page in correct page on Videx + lda #" "|$80 ; clear char + jsr VidexPrint ; Print char in A + pla ; Restore X + tax + inx + cpx #80 + bne EL1 rts .endif @@ -1661,7 +1674,20 @@ EEL3 sta (BASL),y ; clear char rts .else ErEnLn - ; TODO Write me + txa ; Shuffle row number into Y + tay + ldx CH ; Start column +EEL1 txa ; Preserve X + pha + jsr VidexSetVec ; Set up pointers + jsr VidexPage ; Page in correct page on Videx + lda #" "|$80 ; clear char + jsr VidexPrint ; Print char in A + pla ; Restore X + tax + inx + cpx #80 + bne EEL1 rts .endif @@ -1698,7 +1724,20 @@ EBL3 dey rts .else ErBeLn - ; TODO Write me + txa ; Shuffle row number into Y + tay + ldx #$00 ; Start column +EBL1 txa ; Preserve X + pha + jsr VidexSetVec ; Set up pointers + jsr VidexPage ; Page in correct page on Videx + lda #" "|$80 ; clear char + jsr VidexPrint ; Print char in A + pla ; Restore X + tax + inx + cpx CH + bne EBL1 rts .endif diff --git a/inc/ip65.h b/inc/ip65.h index 1ef1072..fc04d7a 100644 --- a/inc/ip65.h +++ b/inc/ip65.h @@ -7,7 +7,7 @@ // Ethernet driver initialization parameter values // #if defined(__APPLE2__) -#define ETH_INIT_DEFAULT 3 // Apple II slot number +#define ETH_INIT_DEFAULT 5 // Apple II slot number #else #define ETH_INIT_DEFAULT 0 // Unused #endif