Apple-2-SW/emailler
1
0
Fork 0
mirror of https://github.com/bobbimanners/emailler.git synced 2025-03-17 23:29:55 +00:00
Code Issues Projects Releases Wiki Activity

Wrote Videx erase routines.

Browse Source
This commit is contained in:
Bobbi Webber-Manners 2024-08-05 20:56:15 -04:00
parent 6ff14db5d8
commit dd06097459
2 changed files with 43 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
drivers/a2vt100.s
View File

@ -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

2
inc/ip65.h
View File

@ -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