mirror of
https://github.com/bobbimanners/emailler.git
synced 2025-04-11 17:39:50 +00:00
More Videx improvement.
This commit is contained in:
Bobbi Webber-Manners
parent
88f15c08ae
commit
1560720c5b
@ -148,40 +148,41 @@ ip65.d64: prg
|
||||
$(C1541) -attach $@ -write tweet65.prg tweet65,p
|
||||
|
||||
ip65.dsk: bin
|
||||
cp ../build/800k.po $@
|
||||
java -jar $(AC) -as $@ attacher < attacher.bin
|
||||
java -jar $(AC) -p $@ attacher.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ date65 < date65.bin
|
||||
java -jar $(AC) -p $@ date65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ edit < edit.bin
|
||||
java -jar $(AC) -p $@ edithelp1.txt txt < edithelp1.txt
|
||||
java -jar $(AC) -p $@ edithelp2.txt txt < edithelp2.txt
|
||||
java -jar $(AC) -p $@ edit.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ email < email.bin
|
||||
java -jar $(AC) -p $@ emailhelp1.txt txt < emailhelp1.txt
|
||||
java -jar $(AC) -p $@ email.cfg txt < email.cfg
|
||||
java -jar $(AC) -p $@ email.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ hfs65 < hfs65.bin
|
||||
java -jar $(AC) -p $@ hfs65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -p $@ news.cfg txt < news.cfg
|
||||
java -jar $(AC) -as $@ nntp65 < nntp65.bin
|
||||
java -jar $(AC) -p $@ nntp65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ nntp65up < nntp65.up.bin
|
||||
java -jar $(AC) -p $@ nntp65up.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ pop65 < pop65.bin
|
||||
java -jar $(AC) -p $@ pop65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ print65 < print65.bin
|
||||
java -jar $(AC) -p $@ print65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ rebuild < rebuild.bin
|
||||
java -jar $(AC) -p $@ rebuild.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ smtp65 < smtp65.bin
|
||||
java -jar $(AC) -p $@ smtp65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# cp ../build/800k.po $@
|
||||
cp ../build/prodos.dsk $@
|
||||
# java -jar $(AC) -as $@ attacher < attacher.bin
|
||||
# java -jar $(AC) -p $@ attacher.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ date65 < date65.bin
|
||||
# java -jar $(AC) -p $@ date65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ edit < edit.bin
|
||||
# java -jar $(AC) -p $@ edithelp1.txt txt < edithelp1.txt
|
||||
# java -jar $(AC) -p $@ edithelp2.txt txt < edithelp2.txt
|
||||
# java -jar $(AC) -p $@ edit.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ email < email.bin
|
||||
# java -jar $(AC) -p $@ emailhelp1.txt txt < emailhelp1.txt
|
||||
# java -jar $(AC) -p $@ email.cfg txt < email.cfg
|
||||
# java -jar $(AC) -p $@ email.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ hfs65 < hfs65.bin
|
||||
# java -jar $(AC) -p $@ hfs65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -p $@ news.cfg txt < news.cfg
|
||||
# java -jar $(AC) -as $@ nntp65 < nntp65.bin
|
||||
# java -jar $(AC) -p $@ nntp65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ nntp65up < nntp65.up.bin
|
||||
# java -jar $(AC) -p $@ nntp65up.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ pop65 < pop65.bin
|
||||
# java -jar $(AC) -p $@ pop65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ print65 < print65.bin
|
||||
# java -jar $(AC) -p $@ print65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ rebuild < rebuild.bin
|
||||
# java -jar $(AC) -p $@ rebuild.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ smtp65 < smtp65.bin
|
||||
# java -jar $(AC) -p $@ smtp65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -as $@ telnet65 < telnet65.bin
|
||||
java -jar $(AC) -as $@ tweet65 < tweet65.bin
|
||||
java -jar $(AC) -p $@ tweet65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
java -jar $(AC) -p $@ tzone.txt txt < tzone.txt
|
||||
java -jar $(AC) -as $@ wget65 < wget65.bin
|
||||
java -jar $(AC) -p $@ wget65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -as $@ tweet65 < tweet65.bin
|
||||
# java -jar $(AC) -p $@ tweet65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
# java -jar $(AC) -p $@ tzone.txt txt < tzone.txt
|
||||
# java -jar $(AC) -as $@ wget65 < wget65.bin
|
||||
# java -jar $(AC) -p $@ wget65.system sys < $(CC65)/apple2enh/util/loader.system
|
||||
|
||||
ip65.atr: com
|
||||
mkdir atr
|
||||
|
||||
@ -138,9 +138,6 @@ sCrsrChar .res 1
|
||||
; --- buffer for addDecDig ---
|
||||
mul10buf .res 1
|
||||
|
||||
; --- Videx start offset (2 bytes) --
|
||||
videxstart .res 2
|
||||
|
||||
; *************************************
|
||||
; *
|
||||
; * Code
|
||||
@ -1239,25 +1236,29 @@ PCend pla ; restore registers
|
||||
; uses: xVector
|
||||
; -------------------------------------
|
||||
VidexSetVec
|
||||
stx VSVTmp ; Store row for later
|
||||
lda videxstart ; videxstart -> xVector
|
||||
sta xVector
|
||||
lda videxstart+1
|
||||
sta xVector+1
|
||||
cpy #$00
|
||||
beq VSV2 ; Row zero -> skip over loop
|
||||
VSV1 lda xVector ; row * 80 -> xVector (double prec)
|
||||
clc
|
||||
adc #80
|
||||
sta xVector
|
||||
lda xVector+1
|
||||
adc #00
|
||||
sta xVector+1
|
||||
dey
|
||||
bne VSV1
|
||||
VSV2 lda xVector ; Add col -> xVector
|
||||
clc
|
||||
adc VSVTmp
|
||||
tya ; Row -> A
|
||||
sta xVector ; Temporary
|
||||
asl ; Multiply by 5
|
||||
asl ; ..
|
||||
clc ; ..
|
||||
adc xVector ; A = row * 5
|
||||
adc $6fb ; Add start address
|
||||
pha ; Save for later
|
||||
lsr ; Mult*16 - for MSbyte
|
||||
lsr ; ..
|
||||
lsr ; ..
|
||||
lsr ; ..
|
||||
sta xVector+1 ; Store MSByte
|
||||
pla ; Recover row * 5 + start
|
||||
asl ; Mult*15 - for LSbyte
|
||||
asl ; ..
|
||||
asl ; ..
|
||||
asl ; ..
|
||||
sta xVector ; Store LSByte
|
||||
|
||||
VSV2 clc
|
||||
txa ; Column -> A
|
||||
adc xVector
|
||||
sta xVector
|
||||
sta BASL
|
||||
lda xVector+1
|
||||
@ -1764,18 +1765,6 @@ InitScr
|
||||
lda #$8c
|
||||
jsr $c300 ; Initialize Videoterm and clear screen
|
||||
ldy $c058 ; Set annunciator for Soft Switch
|
||||
lda $6fb ; Start address from screen hole (for slot 3)
|
||||
asl ; To compute LSbyte, shift left four times
|
||||
asl ; ..
|
||||
asl ; ..
|
||||
asl ; ..
|
||||
sta videxstart
|
||||
lda $6fb ; Start address from screen hole (for slot 3)
|
||||
lsr ; To compute MSbyte, shift right four times
|
||||
lsr ; ..
|
||||
lsr ; ..
|
||||
lsr ; ..
|
||||
sta videxstart+1
|
||||
.else
|
||||
; --- turn on 80 col ---
|
||||
jsr $c300
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user