Separating source into multiple files; updated count page to include hilighting capabilities.
This commit is contained in:
parent
30c9272b73
commit
8b3684890a
3
Makefile
3
Makefile
|
@ -2,6 +2,7 @@
|
||||||
include local.config
|
include local.config
|
||||||
|
|
||||||
# Local stuff:
|
# Local stuff:
|
||||||
|
SRC = afscanner.s diskii.s page-about.s page-browse.s page-count.s page-field.s page-graphics.s page-test.s page.s util.s
|
||||||
PGM = afscanner
|
PGM = afscanner
|
||||||
SYS = afscannr.system
|
SYS = afscannr.system
|
||||||
TYPE = SYS
|
TYPE = SYS
|
||||||
|
@ -10,7 +11,7 @@ TMPL = template.po
|
||||||
DISK = afdisk.po
|
DISK = afdisk.po
|
||||||
|
|
||||||
|
|
||||||
afscanner: afscanner.s
|
afscanner: $(SRC)
|
||||||
$(ASM) $(PGM).s
|
$(ASM) $(PGM).s
|
||||||
cp $(TMPL) $(DISK)
|
cp $(TMPL) $(DISK)
|
||||||
cat $(PGM) | $(AC) -p $(DISK) $(SYS) $(TYPE) $(ADDR)
|
cat $(PGM) | $(AC) -p $(DISK) $(SYS) $(TYPE) $(ADDR)
|
||||||
|
|
1071
afscanner.s
1071
afscanner.s
File diff suppressed because it is too large
Load Diff
|
@ -0,0 +1,118 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* Disk II routines
|
||||||
|
* ========================================================================================
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
* Disk II addresses:
|
||||||
|
|
||||||
|
PHASEOFF = $C080
|
||||||
|
PHASEON = $C081
|
||||||
|
MOTOROFF = $C088
|
||||||
|
MOTORON = $C089
|
||||||
|
DRV0EN = $C08A
|
||||||
|
DRV1EN = $C08B
|
||||||
|
Q6L = $C08C
|
||||||
|
Q7L = $C08E
|
||||||
|
|
||||||
|
*
|
||||||
|
* DISK II routines
|
||||||
|
*
|
||||||
|
|
||||||
|
ReadTrack
|
||||||
|
jsr PRINT
|
||||||
|
dfb _HOME,$8D,4,$88
|
||||||
|
asc "T="
|
||||||
|
dfb _PRBYTE
|
||||||
|
da DSTTRK
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
ldx SLOT16 ; Slot*16
|
||||||
|
lda MOTORON,x ; turn on drive
|
||||||
|
lda DRV0EN,x ; Drive #1
|
||||||
|
lda Q7L,x ; Q7 = Low and Q6 = Low => READ mode
|
||||||
|
lda Q6L,x
|
||||||
|
jsr ARMMOVE ; Go to our track (app init sets to 40, so first time this recalibrates)
|
||||||
|
; Fully read the track into buffer @ DATA
|
||||||
|
jsr SETUPDATA
|
||||||
|
ldy #0
|
||||||
|
:loop lda Q6L,x
|
||||||
|
bpl :loop
|
||||||
|
sta (DATA),y
|
||||||
|
iny
|
||||||
|
bne :loop
|
||||||
|
inc DATA+1
|
||||||
|
dec TEMP
|
||||||
|
bne :loop
|
||||||
|
lda MOTOROFF,x
|
||||||
|
rts
|
||||||
|
|
||||||
|
* Move the Disk II arm:
|
||||||
|
|
||||||
|
ARMMOVE LDA CURTRK
|
||||||
|
CMP DSTTRK
|
||||||
|
BNE :MOVE
|
||||||
|
:THERE LDX SLOT16 ; restore standard slot
|
||||||
|
RTS
|
||||||
|
:MOVE PHP
|
||||||
|
LDA #0
|
||||||
|
ROL ; direction from CMP
|
||||||
|
TAY
|
||||||
|
LDA CURTRK
|
||||||
|
LSR
|
||||||
|
TYA
|
||||||
|
ROL ; odd/even from track
|
||||||
|
ASL ; times 2
|
||||||
|
TAY
|
||||||
|
LDA ARMTABLE,Y
|
||||||
|
JSR ARMPHASE
|
||||||
|
LDA ARMTABLE+1,Y
|
||||||
|
JSR ARMPHASE
|
||||||
|
PLP
|
||||||
|
BCS :SUB1
|
||||||
|
:ADD1 INC CURTRK
|
||||||
|
BRA ARMMOVE
|
||||||
|
:SUB1 DEC CURTRK
|
||||||
|
BRA ARMMOVE
|
||||||
|
|
||||||
|
ARMPHASE ORA SLOT16
|
||||||
|
TAX
|
||||||
|
LDA PHASEON,X
|
||||||
|
LDA #$56
|
||||||
|
JSR DELAY
|
||||||
|
LDA PHASEOFF,X
|
||||||
|
RTS
|
||||||
|
|
||||||
|
* Phase table for moving arm
|
||||||
|
* Grouped by inward/outward movement, odd/even track
|
||||||
|
* To move the arm, two phases need to be triggered
|
||||||
|
ARMTABLE HEX 0204
|
||||||
|
HEX 0600
|
||||||
|
HEX 0604
|
||||||
|
HEX 0200
|
||||||
|
|
||||||
|
* Standard DOS 13-sector and 16-sector address/data field bytes
|
||||||
|
|
||||||
|
AddressFieldPrologue
|
||||||
|
hex D5AA96
|
||||||
|
AddressFieldEpilogue
|
||||||
|
hex DEAAEB
|
||||||
|
DataFieldPrologue
|
||||||
|
hex D5AAAD
|
||||||
|
DataFieldEpilogue
|
||||||
|
hex DEAAEB
|
||||||
|
|
||||||
|
* DOS 13-sector translate table
|
||||||
|
|
||||||
|
Translate13
|
||||||
|
hex ABADAEAFB5B6B7BABBBDBEBFD6D7DADB
|
||||||
|
hex DDDEDFEAEBEDEEEFF5F6F7FAFBFDFEFF
|
||||||
|
|
||||||
|
* DOS 16-sector translate table
|
||||||
|
|
||||||
|
Translate16
|
||||||
|
hex 96979A9B9D9E9FA6A7ABACADAEAFB2B3
|
||||||
|
hex B4B5B6B7B9BABBBCBDBEBFCBCDCECFD3
|
||||||
|
hex D6D7D9DADBDCDDDEDFE5E6E7E9EAEBEC
|
||||||
|
hex EDEEEFF2F3F4F5F6F7F9FAFBFCFDFEFF
|
Binary file not shown.
Before Width: | Height: | Size: 17 KiB After Width: | Height: | Size: 18 KiB |
|
@ -0,0 +1,150 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* About Page / Help Page
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
*
|
||||||
|
* ABOUT page interface
|
||||||
|
*
|
||||||
|
|
||||||
|
* Build array of line pointers in INBUF.
|
||||||
|
AboutInit ; Returns with A:Y = max lines, C = scrolling
|
||||||
|
jsr PRINT
|
||||||
|
asc _INVERSE,_MT_ON,_U_ARROW,_D_ARROW,_MT_OFF,_NORMAL," Scroll / "
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_NORMAL,"-",_INVERSE,_U_ARROW,_D_ARROW,_MT_OFF,_NORMAL," Page"
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
lda #<:lines
|
||||||
|
sta PTR
|
||||||
|
lda #>:lines
|
||||||
|
sta PTR+1
|
||||||
|
ldy #0 ; max lines
|
||||||
|
ldx #0 ; buffer offset
|
||||||
|
|
||||||
|
:save lda PTR
|
||||||
|
sta inbuf,x
|
||||||
|
inx
|
||||||
|
lda PTR+1
|
||||||
|
sta inbuf,x
|
||||||
|
inx
|
||||||
|
iny
|
||||||
|
|
||||||
|
:loop lda (PTR)
|
||||||
|
bne :incr
|
||||||
|
dey ; we're one past...
|
||||||
|
lda #0 ; high byte of max lines; Y = low byte
|
||||||
|
clc ; we need scrolling
|
||||||
|
rts
|
||||||
|
|
||||||
|
:incr lda (PTR)
|
||||||
|
pha
|
||||||
|
inc PTR
|
||||||
|
bne :skip
|
||||||
|
inc PTR+1
|
||||||
|
:skip pla
|
||||||
|
beq :save
|
||||||
|
bne :incr
|
||||||
|
|
||||||
|
* Guide 00000000011111111112222222222333333333344444444445555555555666666666677777777778
|
||||||
|
* 12345678901234567890123456789012345678901234567890123456789012345678901234567890
|
||||||
|
* | + + + + + + + +|
|
||||||
|
:lines asc _INVERSE," Address Field Scanner ",_NORMAL,$00
|
||||||
|
asc "Version 2.0beta",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "This application is my lame attempt to understand the old Apple Disk II",$00
|
||||||
|
asc "interface.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "As of Version 2 of AFSCANNER, multiple pages have been introduced to better",$00
|
||||||
|
asc "review the contents of a disk buffer and analyze a disk.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Use the ",_INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"-key combinations to toggle pages.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"A = This about page.",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"B = Browse track buffer.",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"C = Display buffer counts.",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"F = Address field display. " ; (cont)
|
||||||
|
asc "(Assuming 'good' address fields on disk.)",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"G = Graphical disk display.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"* = Enter Apple monitor.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Source available at https://github.com/a2geek/afscanner",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Global Keys",$00
|
||||||
|
asc "===========",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc _INVERSE,_MT_ON,_D_ARROW,_MT_OFF,_NORMAL," Scroll down 1 line",$00
|
||||||
|
asc _INVERSE,_MT_ON,_U_ARROW,_MT_OFF,_NORMAL," Scroll up 1 line",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_D_ARROW,_MT_OFF,_NORMAL," Page down 15 lines",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_U_ARROW,_MT_OFF,_NORMAL," Page up 15 lines",$00
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_MT_OFF,_NORMAL,"Q Quit to ProDOS",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Address Field Display",$00
|
||||||
|
asc "=====================",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Display the list of Address Fields, the disk bytes, as well as the decoded",$00
|
||||||
|
asc "values to indicate what sectors are phyiscally present and their order on disk.",$00
|
||||||
|
asc "Note that the buffer is $2000 (8192) bytes long and some sectors will be",$00
|
||||||
|
asc "repeated.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Headers are currently set to "
|
||||||
|
dfb 1
|
||||||
|
da AddressFieldPrologue
|
||||||
|
dfb " ",1
|
||||||
|
da AddressFieldPrologue+1
|
||||||
|
dfb " ",1
|
||||||
|
da AddressFieldPrologue+2
|
||||||
|
dfb $00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Browse Track Buffer",$00
|
||||||
|
asc "===================",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Browse the raw track buffer. Header fields are hilighted. Note that the ",$00
|
||||||
|
asc "buffer is $2000 (8192) bytes long and some sectors will be repeated.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Headers are currently set to "
|
||||||
|
dfb 1
|
||||||
|
da AddressFieldPrologue
|
||||||
|
dfb " ",1
|
||||||
|
da AddressFieldPrologue+1
|
||||||
|
dfb " ",1
|
||||||
|
da AddressFieldPrologue+2
|
||||||
|
dfb $00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Graphical Disk Display",$00
|
||||||
|
asc "======================",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Scans an entire disk and graphically displays where sync ($FF) bytes appear on",$00
|
||||||
|
asc "disk. Note that the length of each bar indicates how many sync bytes were in",$00
|
||||||
|
asc "that section of the disk. Each bar represents approximately 46 bytes.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Display Buffer Counts",$00
|
||||||
|
asc "=====================",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "Count the number of disk bytes in the buffer and display totals. This may be",$00
|
||||||
|
asc "helpful when trying to determine address field bytes.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "To assist with identification, non-zero values or 13-sector bytes or 16-sector",$00
|
||||||
|
asc "bytes may be highlighted.",$00
|
||||||
|
asc " ",$00
|
||||||
|
asc "-END-",$00
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
AboutDisplay ; Called with A:Y = line
|
||||||
|
phy ; assuming < 256 lines
|
||||||
|
lda #_CLREOL
|
||||||
|
jsr COUT
|
||||||
|
pla
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
lda inbuf,y
|
||||||
|
tax
|
||||||
|
lda inbuf+1,y
|
||||||
|
jsr PRINTP
|
||||||
|
jmp PRCR
|
||||||
|
|
||||||
|
AboutKeypress ; Called with Acc = key
|
||||||
|
; Do Nothing, continue loop
|
||||||
|
jmp KeyboardWait
|
||||||
|
|
|
@ -0,0 +1,98 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* Browse Address Buffer Page
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
*
|
||||||
|
* BROWSE interface
|
||||||
|
*
|
||||||
|
|
||||||
|
BrowseInit ; Returns with Acc = max lines
|
||||||
|
jsr PRINT
|
||||||
|
asc _INVERSE,_MT_ON,_U_ARROW,_D_ARROW,_MT_OFF,_NORMAL," Scroll / "
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_NORMAL,"-",_INVERSE,_U_ARROW,_D_ARROW,_MT_OFF,_NORMAL," Page / "
|
||||||
|
asc _MT_ON,_INVERSE,_L_ARROW,_R_ARROW,_NORMAL,_MT_OFF," Track / "
|
||||||
|
asc "re",_INVERSE,"S",_NORMAL,"can / "
|
||||||
|
asc _INVERSE,"R",_NORMAL,"ecalibrate / "
|
||||||
|
asc "goto ",_INVERSE,"T",_NORMAL,"rack"
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
* Scan for our prologue mark them by turning off the high bit
|
||||||
|
|
||||||
|
jsr ReadTrack ; position head and fully populate buffer
|
||||||
|
jsr SETUPDATA
|
||||||
|
:scan ldy #0 ; index for comparisons
|
||||||
|
:loop lda (DATA),y
|
||||||
|
cmp AddressFieldPrologue,Y
|
||||||
|
bne :adv
|
||||||
|
iny
|
||||||
|
cpy #3
|
||||||
|
bcc :loop
|
||||||
|
; We found prologue bytes, strip off high bit
|
||||||
|
:strip dey
|
||||||
|
bmi :adv
|
||||||
|
lda (DATA),y
|
||||||
|
and #$7f
|
||||||
|
sta (DATA),y
|
||||||
|
bne :strip ; should be always
|
||||||
|
:adv inc DATA
|
||||||
|
bne :scan
|
||||||
|
inc DATA+1
|
||||||
|
dec TEMP
|
||||||
|
bne :scan
|
||||||
|
; The number of lines is based on how many bytes we show on screen
|
||||||
|
lda #1 ; A:Y = $100 or 256 lines
|
||||||
|
ldy #0
|
||||||
|
clc ; we need scrolling
|
||||||
|
rts
|
||||||
|
|
||||||
|
BrowseDisplay ; Called with Acc = line
|
||||||
|
; Calculate buffer address
|
||||||
|
sta DATA+1
|
||||||
|
sty DATA
|
||||||
|
ldy #5 ; times 32
|
||||||
|
:mult32 asl DATA
|
||||||
|
rol DATA+1
|
||||||
|
dey
|
||||||
|
bne :mult32
|
||||||
|
clc
|
||||||
|
lda #>DATASTART
|
||||||
|
adc DATA+1
|
||||||
|
sta DATA+1
|
||||||
|
; Display offset
|
||||||
|
lda #"+"
|
||||||
|
jsr COUT
|
||||||
|
lda DATA+1
|
||||||
|
and #$3f
|
||||||
|
jsr PRHEX
|
||||||
|
lda DATA
|
||||||
|
jsr PRHEX
|
||||||
|
jsr PRINT
|
||||||
|
asc "- ",$00
|
||||||
|
; Display 'disk' bytes, highlighting the field markers (high bit was stripped off in init routine)
|
||||||
|
ldy #0
|
||||||
|
:nxtbyt lda (DATA),y
|
||||||
|
bmi :prhex
|
||||||
|
pha
|
||||||
|
lda #_INVERSE
|
||||||
|
jsr COUT
|
||||||
|
pla
|
||||||
|
ora #$80
|
||||||
|
:prhex jsr PRHEX
|
||||||
|
lda #_NORMAL
|
||||||
|
jsr COUT
|
||||||
|
tya
|
||||||
|
and #$07
|
||||||
|
cmp #$07
|
||||||
|
bne :testy
|
||||||
|
lda #" "
|
||||||
|
jsr COUT
|
||||||
|
:testy iny
|
||||||
|
cpy #32
|
||||||
|
bne :nxtbyt
|
||||||
|
jmp PRCR
|
||||||
|
|
||||||
|
BrowseKeypress ; Called with Acc = key
|
||||||
|
jmp FieldKeypress ; identical to Field ... for now at least
|
||||||
|
|
|
@ -0,0 +1,232 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* Buffer Count Page
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
* Count Settings values (most of these are implicit):
|
||||||
|
|
||||||
|
Count_NONE = 0
|
||||||
|
Count_NONZERO = 1
|
||||||
|
Count_13SECTOR = 2
|
||||||
|
Count_16SECTOR = 3
|
||||||
|
|
||||||
|
CountInit ; Returns with A:Y = max lines, C = scrolling
|
||||||
|
jsr CountStatusBar
|
||||||
|
|
||||||
|
; Set inbuf to zero (only counting $80, so $200-$2ff sufficient)
|
||||||
|
ldy #0
|
||||||
|
tya
|
||||||
|
:erase sta inbuf,y
|
||||||
|
iny
|
||||||
|
bne :erase
|
||||||
|
; Start counting
|
||||||
|
jsr ReadTrack
|
||||||
|
jsr SETUPDATA
|
||||||
|
ldy #0
|
||||||
|
:loop lda (DATA),y
|
||||||
|
asl ; times 2, we don't care about highbit
|
||||||
|
tax
|
||||||
|
inc inbuf,x
|
||||||
|
bne :skip
|
||||||
|
inc inbuf+1,x
|
||||||
|
:skip iny
|
||||||
|
bne :loop
|
||||||
|
inc DATA+1
|
||||||
|
dec TEMP
|
||||||
|
bne :loop
|
||||||
|
|
||||||
|
jsr SetCountFlags
|
||||||
|
|
||||||
|
; Setup framework
|
||||||
|
lda #0 ; No lines
|
||||||
|
tay
|
||||||
|
sec ; No scrolling
|
||||||
|
rts
|
||||||
|
|
||||||
|
CountDisplay ; Called with A:Y = line
|
||||||
|
jsr PRINT
|
||||||
|
dfb $8D
|
||||||
|
dfb 14
|
||||||
|
asc " Low +0 +1 +2 +3 +4 +5 +6 +7 High",$8D
|
||||||
|
dfb 19
|
||||||
|
asc " ==== ==== ==== ==== ==== ==== ==== ====",$8D
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
; Y = byte, X = temp, A = temp
|
||||||
|
ldy #$80
|
||||||
|
:next ldx #14
|
||||||
|
lda #" "
|
||||||
|
:tab jsr COUT
|
||||||
|
dex
|
||||||
|
bne :tab
|
||||||
|
tya
|
||||||
|
jsr PRHEX
|
||||||
|
lda #" "
|
||||||
|
jsr COUT
|
||||||
|
jsr COUT
|
||||||
|
:line lda #" " ; re-loading space due to loop construction
|
||||||
|
jsr COUT
|
||||||
|
tya
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda inbuf+1,x
|
||||||
|
bpl :norm
|
||||||
|
pha
|
||||||
|
lda #_INVERSE
|
||||||
|
jsr COUT
|
||||||
|
pla
|
||||||
|
:norm and #$7f ; ensure high-bit clear in the count as it is our highlight flag
|
||||||
|
jsr PRHEX
|
||||||
|
lda inbuf,x
|
||||||
|
jsr PRHEX
|
||||||
|
lda #_NORMAL
|
||||||
|
jsr COUT
|
||||||
|
iny
|
||||||
|
tya
|
||||||
|
and #$07
|
||||||
|
bne :line
|
||||||
|
lda #" "
|
||||||
|
jsr COUT
|
||||||
|
jsr COUT
|
||||||
|
jsr COUT
|
||||||
|
jsr COUT
|
||||||
|
tya
|
||||||
|
dec
|
||||||
|
jsr PRHEX
|
||||||
|
jsr PRCR
|
||||||
|
cpy #0
|
||||||
|
bne :next
|
||||||
|
jsr PRCR
|
||||||
|
jsr PRCR
|
||||||
|
; Fall through to CountStatusBar for redisplay
|
||||||
|
|
||||||
|
CountStatusBar
|
||||||
|
jsr PRINT
|
||||||
|
asc "[-]",$00
|
||||||
|
lda #_NORMAL
|
||||||
|
ldx CountSettings
|
||||||
|
cpx #Count_NONE
|
||||||
|
bne :prnone
|
||||||
|
lda #_INVERSE
|
||||||
|
:prnone jsr COUT
|
||||||
|
jsr PRINT
|
||||||
|
asc "None",_NORMAL," [0]",$00
|
||||||
|
|
||||||
|
lda #_NORMAL
|
||||||
|
ldx CountSettings
|
||||||
|
cpx #Count_NONZERO
|
||||||
|
bne :prnzro
|
||||||
|
lda #_INVERSE
|
||||||
|
:prnzro jsr COUT
|
||||||
|
jsr PRINT
|
||||||
|
asc "Non-Zero",_NORMAL," [3]",$00
|
||||||
|
|
||||||
|
lda #_NORMAL
|
||||||
|
ldx CountSettings
|
||||||
|
cpx #Count_13SECTOR
|
||||||
|
bne :pr13
|
||||||
|
lda #_INVERSE
|
||||||
|
:pr13 jsr COUT
|
||||||
|
jsr PRINT
|
||||||
|
asc "13-Sector",_NORMAL," [6]",$00
|
||||||
|
|
||||||
|
lda #_NORMAL
|
||||||
|
ldx CountSettings
|
||||||
|
cpx #Count_16SECTOR
|
||||||
|
bne :pr16
|
||||||
|
lda #_INVERSE
|
||||||
|
:pr16 jsr COUT
|
||||||
|
jsr PRINT
|
||||||
|
asc "16-Sector",_NORMAL,$00
|
||||||
|
rts
|
||||||
|
|
||||||
|
CountKeypress ; Called with Acc = key
|
||||||
|
ldx #0
|
||||||
|
:test cmp :keys,x
|
||||||
|
beq :set
|
||||||
|
inx
|
||||||
|
cpx #4
|
||||||
|
bne :test
|
||||||
|
jmp KeyboardWait
|
||||||
|
:keys asc "-036"
|
||||||
|
|
||||||
|
:set stx CountSettings
|
||||||
|
jsr SetCountFlags
|
||||||
|
jmp DrawPage
|
||||||
|
|
||||||
|
SetCountFlags
|
||||||
|
lda CountSettings
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
jmp (:jmp,x)
|
||||||
|
:jmp da CountClear
|
||||||
|
da CountNonZero
|
||||||
|
da Count13Sector
|
||||||
|
da Count16Sector
|
||||||
|
|
||||||
|
CountClear
|
||||||
|
ldy #$80
|
||||||
|
:loop tya
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda inbuf+1,x
|
||||||
|
and #$7f
|
||||||
|
sta inbuf+1,x
|
||||||
|
iny
|
||||||
|
bne :loop
|
||||||
|
rts
|
||||||
|
|
||||||
|
CountNonZero
|
||||||
|
jsr CountClear
|
||||||
|
ldy #$80
|
||||||
|
:loop tya
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda inbuf,x
|
||||||
|
ora inbuf+1,x
|
||||||
|
beq :next
|
||||||
|
lda inbuf+1,x
|
||||||
|
ora #$80
|
||||||
|
sta inbuf+1,x
|
||||||
|
:next iny
|
||||||
|
bne :loop
|
||||||
|
rts
|
||||||
|
|
||||||
|
Count13Sector
|
||||||
|
jsr CountClear
|
||||||
|
ldy #0
|
||||||
|
:loop lda Translate13,y
|
||||||
|
jsr CountSetBit
|
||||||
|
iny
|
||||||
|
cpy #32
|
||||||
|
bne :loop
|
||||||
|
|
||||||
|
; Set the reserved bytes which are identical for 13-sector and 16-sector formats
|
||||||
|
CountSetReserved
|
||||||
|
lda #$D5
|
||||||
|
jsr CountSetBit
|
||||||
|
lda #$AA
|
||||||
|
jsr CountSetBit
|
||||||
|
rts
|
||||||
|
|
||||||
|
Count16Sector
|
||||||
|
jsr CountClear
|
||||||
|
ldy #0
|
||||||
|
:loop lda Translate16,y
|
||||||
|
jsr CountSetBit
|
||||||
|
iny
|
||||||
|
cpy #64
|
||||||
|
bne :loop
|
||||||
|
beq CountSetReserved
|
||||||
|
|
||||||
|
CountSetBit
|
||||||
|
asl
|
||||||
|
tax
|
||||||
|
lda inbuf+1,x
|
||||||
|
ora #$80
|
||||||
|
sta inbuf+1,x
|
||||||
|
rts
|
||||||
|
|
||||||
|
CountSettings
|
||||||
|
dfb 0
|
|
@ -0,0 +1,139 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* Address Field Page
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
*
|
||||||
|
* FIELD Interface
|
||||||
|
*
|
||||||
|
|
||||||
|
FieldInit ; Returns with A:Y = max lines
|
||||||
|
jsr PRINT
|
||||||
|
asc _INVERSE,_MT_ON,_U_ARROW,_D_ARROW,_MT_OFF,_NORMAL," Scroll / "
|
||||||
|
asc _INVERSE,_MT_ON,_O_APPLE,_NORMAL,"-",_INVERSE,_U_ARROW,_D_ARROW,_MT_OFF,_NORMAL," Page / "
|
||||||
|
asc _MT_ON,_INVERSE,_L_ARROW,_R_ARROW,_NORMAL,_MT_OFF," Track / "
|
||||||
|
asc "re",_INVERSE,"S",_NORMAL,"can / "
|
||||||
|
asc _INVERSE,"R",_NORMAL,"ecalibrate / "
|
||||||
|
asc "goto ",_INVERSE,"T",_NORMAL,"rack"
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
* Scan for our prologue and save positions in INBUF
|
||||||
|
|
||||||
|
jsr ReadTrack ; position head and fully populate buffer
|
||||||
|
ldx #0 ; index for INBUF
|
||||||
|
jsr SETUPDATA
|
||||||
|
:scan ldy #0 ; index for comparisons
|
||||||
|
:loop lda (DATA),y
|
||||||
|
cmp AddressFieldPrologue,Y
|
||||||
|
bne :adv
|
||||||
|
iny
|
||||||
|
cpy #3
|
||||||
|
bcc :loop
|
||||||
|
; We found prologue bytes, save DATA address
|
||||||
|
lda DATA
|
||||||
|
sta inbuf,x
|
||||||
|
inx
|
||||||
|
lda DATA+1
|
||||||
|
sta inbuf,x
|
||||||
|
inx
|
||||||
|
:adv inc DATA
|
||||||
|
bne :scan
|
||||||
|
inc DATA+1
|
||||||
|
dec TEMP
|
||||||
|
bne :scan
|
||||||
|
; Calculate # of lines
|
||||||
|
txa
|
||||||
|
lsr
|
||||||
|
tay
|
||||||
|
lda #0 ; Assumed < 256 lines
|
||||||
|
clc ; we need scrolling
|
||||||
|
rts
|
||||||
|
|
||||||
|
FieldDisplay ; Called with A:Y = line
|
||||||
|
tya ; Assuming < 256 lines
|
||||||
|
asl
|
||||||
|
tay
|
||||||
|
lda inbuf,y
|
||||||
|
sta DATA
|
||||||
|
pha
|
||||||
|
lda inbuf+1,y
|
||||||
|
sta DATA+1
|
||||||
|
pha
|
||||||
|
; Display offset
|
||||||
|
lda #"+"
|
||||||
|
jsr COUT
|
||||||
|
pla
|
||||||
|
and #$3f
|
||||||
|
jsr PRHEX
|
||||||
|
pla
|
||||||
|
jsr PRHEX
|
||||||
|
jsr PRINT
|
||||||
|
asc "- ",$00
|
||||||
|
; Display 'disk' bytes
|
||||||
|
ldy #0
|
||||||
|
ldx #0
|
||||||
|
:nextg lda :groups,x
|
||||||
|
sta TEMP
|
||||||
|
:bytes lda (DATA),y
|
||||||
|
jsr PRHEX
|
||||||
|
iny
|
||||||
|
dec TEMP
|
||||||
|
bne :bytes
|
||||||
|
lda #" "
|
||||||
|
jsr COUT
|
||||||
|
inx
|
||||||
|
cpx #6
|
||||||
|
bne :nextg
|
||||||
|
jsr COUT ; 2nd space
|
||||||
|
; Display values
|
||||||
|
lda #"V"
|
||||||
|
ldy #OFFSETV
|
||||||
|
jsr PRDATA
|
||||||
|
lda #"T"
|
||||||
|
ldy #OFFSETT
|
||||||
|
jsr PRDATA
|
||||||
|
lda #"S"
|
||||||
|
ldy #OFFSETS
|
||||||
|
jsr PRDATA
|
||||||
|
lda #"C"
|
||||||
|
ldy #OFFSETC
|
||||||
|
jsr PRDATA
|
||||||
|
jmp PRCR
|
||||||
|
; Address Field byte groupings
|
||||||
|
:groups dfb 3,2,2,2,2,3
|
||||||
|
|
||||||
|
FieldKeypress ; Called with Acc = key
|
||||||
|
ldx #-1
|
||||||
|
cmp #LARROW
|
||||||
|
beq :chgtrk
|
||||||
|
ldx #1
|
||||||
|
cmp #RARROW
|
||||||
|
beq :chgtrk
|
||||||
|
cmp #"R"
|
||||||
|
beq :recal
|
||||||
|
cmp #"S"
|
||||||
|
beq :setup
|
||||||
|
cmp #"T"
|
||||||
|
beq :gotrk
|
||||||
|
:back jmp KeyboardWait
|
||||||
|
|
||||||
|
:chgtrk txa
|
||||||
|
clc
|
||||||
|
adc CURTRK
|
||||||
|
cmp #35 ; cap at track 35 (0..34)
|
||||||
|
bcs :back
|
||||||
|
:setdst sta DSTTRK
|
||||||
|
:setup jmp SetupPage ; this redraws page and re-initializes on new track
|
||||||
|
:recal lda #40
|
||||||
|
sta CURTRK ; This forces the recalibration
|
||||||
|
lda #0
|
||||||
|
beq :setdst
|
||||||
|
|
||||||
|
:gotrk jsr CLRSCRN
|
||||||
|
jsr PRINT
|
||||||
|
asc "Enter track number: $"00
|
||||||
|
jsr READBYTE
|
||||||
|
bcs :setup
|
||||||
|
bcc :setdst
|
||||||
|
|
|
@ -0,0 +1,143 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* HGR Disk Display
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
*
|
||||||
|
* HGR/Graphics interface
|
||||||
|
*
|
||||||
|
|
||||||
|
; Init displays HGR and the static text on the page
|
||||||
|
HgrInit
|
||||||
|
jsr PRINT
|
||||||
|
asc "re",_INVERSE,"S",_NORMAL,"can / "
|
||||||
|
asc _INVERSE,"R",_NORMAL,"ecalibrate"
|
||||||
|
dfb 0
|
||||||
|
; Lay out a our rudimentary page:
|
||||||
|
jsr HGR
|
||||||
|
stz TEMPY
|
||||||
|
:newlin lda TEMPY
|
||||||
|
jsr HPOSN
|
||||||
|
ldy #0
|
||||||
|
:line lda TEMPY
|
||||||
|
and #$8
|
||||||
|
bne :lownyb
|
||||||
|
:hinyb tya
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
lsr
|
||||||
|
bra :draw
|
||||||
|
:lownyb tya
|
||||||
|
and #$0f
|
||||||
|
:draw asl
|
||||||
|
asl
|
||||||
|
asl
|
||||||
|
sta TEMP
|
||||||
|
lda TEMPY
|
||||||
|
and #$07
|
||||||
|
ora TEMP
|
||||||
|
tax
|
||||||
|
lda HgrHexFont,x
|
||||||
|
sta (HBAS),y
|
||||||
|
iny
|
||||||
|
cpy #35
|
||||||
|
bne :line
|
||||||
|
inc TEMPY
|
||||||
|
lda TEMPY
|
||||||
|
cmp #16
|
||||||
|
blt :newlin
|
||||||
|
; return values
|
||||||
|
sec ; no scrolloing
|
||||||
|
lda #0 ; 0 = number of lines (A:Y)
|
||||||
|
tay
|
||||||
|
rts
|
||||||
|
|
||||||
|
HgrDisplay
|
||||||
|
; Store current track to not interfere with other screens
|
||||||
|
lda DSTTRK
|
||||||
|
pha
|
||||||
|
; 144 lines (18 text lines * 8 graphic lines ea)
|
||||||
|
; buffer = 8192 bytes / 144 lines = 56 bytes ea
|
||||||
|
; OR NIB suggest 6656 / 144 lines = 46 bytes ea
|
||||||
|
stz DSTTRK
|
||||||
|
:nxttrk jsr ReadTrack
|
||||||
|
lda #16
|
||||||
|
sta :ycoord
|
||||||
|
jsr SETUPDATA
|
||||||
|
stz :count
|
||||||
|
lda #46
|
||||||
|
sta :bytes
|
||||||
|
:loop lda (DATA)
|
||||||
|
cmp #$FF
|
||||||
|
bne :skip
|
||||||
|
inc :count
|
||||||
|
:skip dec :bytes
|
||||||
|
bne :skip2
|
||||||
|
lda :ycoord
|
||||||
|
jsr HPOSN
|
||||||
|
ldy CURTRK
|
||||||
|
ldx #0
|
||||||
|
lda :count
|
||||||
|
beq :empty
|
||||||
|
:bits inx
|
||||||
|
lsr
|
||||||
|
bne :bits
|
||||||
|
:empty lda :plot,x
|
||||||
|
sta (HBAS),y
|
||||||
|
inc :ycoord
|
||||||
|
lda :ycoord
|
||||||
|
cmp #160
|
||||||
|
bge :botm
|
||||||
|
stz :count
|
||||||
|
lda #46
|
||||||
|
sta :bytes
|
||||||
|
:skip2 inc DATA
|
||||||
|
bne :loop
|
||||||
|
inc DATA+1
|
||||||
|
dec TEMP
|
||||||
|
bne :loop
|
||||||
|
:botm inc DSTTRK
|
||||||
|
lda DSTTRK
|
||||||
|
cmp #35
|
||||||
|
blt :nxttrk
|
||||||
|
; Restore current target track for other screens
|
||||||
|
pla
|
||||||
|
sta DSTTRK
|
||||||
|
rts
|
||||||
|
:ycoord dfb 0
|
||||||
|
:count dfb 0
|
||||||
|
:bytes dfb 0
|
||||||
|
:plot hex 000103070f1f3f7fff
|
||||||
|
|
||||||
|
HgrKeypress
|
||||||
|
cmp #"R"
|
||||||
|
beq :recal
|
||||||
|
cmp #"S"
|
||||||
|
beq :setup
|
||||||
|
:back jmp KeyboardWait
|
||||||
|
|
||||||
|
:recal lda #40
|
||||||
|
sta CURTRK ; This forces the recalibration
|
||||||
|
stz DSTTRK
|
||||||
|
:setup jmp SetupPage ; this redraws page and re-initializes, presumably, on a new disk
|
||||||
|
|
||||||
|
HgrHexFont ; Stolen from https://github.com/Michaelangel007/apple2_hgr_font_tutorial
|
||||||
|
hex 1C22322A26221C00 ; 0
|
||||||
|
hex 080C080808081C00 ; 1
|
||||||
|
hex 1C22201804023E00 ; 2
|
||||||
|
hex 3E20101820221C00 ; 3
|
||||||
|
hex 101814123E101000 ; 4
|
||||||
|
hex 3E021E2020221C00 ; 5
|
||||||
|
hex 3804021E22221C00 ; 6
|
||||||
|
hex 3E20100804040400 ; 7
|
||||||
|
hex 1C22221C22221C00 ; 8
|
||||||
|
hex 1C22223C20100E00 ; 9
|
||||||
|
hex 081422223E222200 ; A
|
||||||
|
hex 1E22221E22221E00 ; B
|
||||||
|
hex 1C22020202221C00 ; C
|
||||||
|
hex 1E22222222221E00 ; D
|
||||||
|
hex 3E02021E02023E00 ; E
|
||||||
|
hex 3E02021E02020200 ; F
|
||||||
|
|
|
@ -0,0 +1,31 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* Test Page
|
||||||
|
*
|
||||||
|
* Used for independent testing various pieces of funcionality.
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
*
|
||||||
|
* TEST interface
|
||||||
|
*
|
||||||
|
|
||||||
|
TestInit
|
||||||
|
lda #>535
|
||||||
|
ldy #<535 ; Nice odd number of lines > 256
|
||||||
|
rts
|
||||||
|
|
||||||
|
TestDisplay
|
||||||
|
phy
|
||||||
|
pha
|
||||||
|
lda #_CLREOL
|
||||||
|
jsr COUT
|
||||||
|
pla
|
||||||
|
jsr PRHEX
|
||||||
|
pla
|
||||||
|
jsr PRHEX
|
||||||
|
jmp PRCR
|
||||||
|
|
||||||
|
TestKeypress
|
||||||
|
jmp KeyboardWait
|
||||||
|
|
|
@ -0,0 +1,224 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* Primary page controller.
|
||||||
|
* ========================================================================================
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
|
||||||
|
SetupPage
|
||||||
|
jsr TEXT ; ensure we are out of graphics modes as application has some!
|
||||||
|
jsr PRINT ; position cursor on bottom line
|
||||||
|
dfb _HOME
|
||||||
|
dfb 23,$8D
|
||||||
|
dfb _CLREOL
|
||||||
|
dfb $00
|
||||||
|
ldx #_init ; vector offset
|
||||||
|
jsr _VCALL
|
||||||
|
ror scrolling ; set flag based on C
|
||||||
|
sty maxlines
|
||||||
|
sta maxlines+1
|
||||||
|
stz topline
|
||||||
|
stz topline+1
|
||||||
|
|
||||||
|
DrawPage
|
||||||
|
jsr PRINT ; Clear and then draw the content area
|
||||||
|
dfb _HOME,$8d,$8d,0
|
||||||
|
|
||||||
|
; If we aren't scrolling, call _display vector ONCE and then handle keyboard.
|
||||||
|
bit scrolling
|
||||||
|
bpl :scroll
|
||||||
|
lda #0
|
||||||
|
tay
|
||||||
|
ldx #_display
|
||||||
|
jsr _VCALL
|
||||||
|
jmp KeyboardWait
|
||||||
|
|
||||||
|
:scroll lda #0
|
||||||
|
:loop pha
|
||||||
|
clc
|
||||||
|
adc topline
|
||||||
|
sta printline
|
||||||
|
lda topline+1
|
||||||
|
adc #0
|
||||||
|
sta printline+1
|
||||||
|
cmp maxlines+1
|
||||||
|
blt :drwlin
|
||||||
|
lda printline
|
||||||
|
cmp maxlines
|
||||||
|
bge :erase
|
||||||
|
|
||||||
|
:drwlin lda printline+1
|
||||||
|
ldy printline
|
||||||
|
ldx #_display
|
||||||
|
jsr _VCALL
|
||||||
|
bra :incr
|
||||||
|
|
||||||
|
:erase jsr PRINT
|
||||||
|
dfb _CLREOL,$8D,0
|
||||||
|
|
||||||
|
:incr pla
|
||||||
|
inc
|
||||||
|
cmp #PAGELEN
|
||||||
|
blt :loop
|
||||||
|
|
||||||
|
KeyboardWait
|
||||||
|
lda KEYBOARD
|
||||||
|
bpl KeyboardWait
|
||||||
|
; Uppercase the if it's A-Z
|
||||||
|
cmp #"a"
|
||||||
|
blt :goodky
|
||||||
|
cmp #"z"+1
|
||||||
|
bge :goodky
|
||||||
|
and #$df ; uppercase mask
|
||||||
|
:goodky sta KEYCLEAR
|
||||||
|
bit OpenApple
|
||||||
|
bpl :normal
|
||||||
|
; OpenApple handler
|
||||||
|
jsr SetScreen
|
||||||
|
bcs :paging
|
||||||
|
jsr CLRSCRN
|
||||||
|
jmp SetupPage
|
||||||
|
; OA-Up
|
||||||
|
:paging cmp #UpArrow
|
||||||
|
bne :nPgUp
|
||||||
|
ldy #15
|
||||||
|
:uploop jsr :up1
|
||||||
|
dey
|
||||||
|
bne :uploop
|
||||||
|
beq :back ; always
|
||||||
|
; OA-Down
|
||||||
|
:nPgUp cmp #DownArrow
|
||||||
|
bne :chkOAQ
|
||||||
|
ldy #15
|
||||||
|
:dnloop jsr :down1
|
||||||
|
dey
|
||||||
|
bne :dnloop
|
||||||
|
beq :back ; always
|
||||||
|
; OA-Q
|
||||||
|
:chkOAQ cmp #"Q"
|
||||||
|
bne :chkOA7
|
||||||
|
jsr PRODOSMLI
|
||||||
|
dfb _MLIQUIT
|
||||||
|
da QUITPARM
|
||||||
|
:back jmp DrawPage ; fall through and common return
|
||||||
|
|
||||||
|
; OA-*
|
||||||
|
:chkOA7 cmp #"*"
|
||||||
|
bne :back
|
||||||
|
jsr PRINT
|
||||||
|
asc _CLS,"Press CTRL-Y to re-enter AFScanner.",$8D,$00
|
||||||
|
jmp MONITOR
|
||||||
|
|
||||||
|
; Common keypress handler
|
||||||
|
; Up
|
||||||
|
:normal cmp #UpArrow
|
||||||
|
bne :notUp
|
||||||
|
jsr :up1
|
||||||
|
jmp DrawPage
|
||||||
|
; Down
|
||||||
|
:notUp cmp #DownArrow
|
||||||
|
bne :pgKey
|
||||||
|
jsr :down1
|
||||||
|
jmp DrawPage
|
||||||
|
|
||||||
|
; "Local" subroutines
|
||||||
|
|
||||||
|
; if topline+PAGELEN >= maxlines then return
|
||||||
|
; topline = topline + 1
|
||||||
|
:down1 clc
|
||||||
|
lda topline
|
||||||
|
adc #PAGELEN
|
||||||
|
sta printline
|
||||||
|
lda printline+1
|
||||||
|
adc #0
|
||||||
|
sta printline+1
|
||||||
|
cmp maxlines+1
|
||||||
|
bcc :minus1
|
||||||
|
lda printline
|
||||||
|
cmp maxlines
|
||||||
|
bge :rts
|
||||||
|
:minus1 inc topline
|
||||||
|
bne :rts
|
||||||
|
inc topline+1
|
||||||
|
rts
|
||||||
|
; if topline = 0 then return
|
||||||
|
; topline = topline - 1
|
||||||
|
:up1 lda topline
|
||||||
|
ora topline+1
|
||||||
|
beq :rts ; already = 0
|
||||||
|
sec
|
||||||
|
lda topline
|
||||||
|
sbc #1
|
||||||
|
sta topline
|
||||||
|
lda topline+1
|
||||||
|
sbc #0
|
||||||
|
sta topline+1
|
||||||
|
:rts rts
|
||||||
|
|
||||||
|
:pgKey ldx #_keypress
|
||||||
|
; Fall through and JMP to _keypress which takes control for local page keys
|
||||||
|
|
||||||
|
* Simple vector call from ZP based on X register
|
||||||
|
|
||||||
|
_VCALL jmp: ($00,x) ; Merlin32 needs to know 16 bit JMP
|
||||||
|
|
||||||
|
* Handle screen change - both called by app init and normal keyboard handler
|
||||||
|
|
||||||
|
SetScreen
|
||||||
|
ldx #0
|
||||||
|
:next bit :data,x
|
||||||
|
bpl :notf
|
||||||
|
cmp :data,x
|
||||||
|
beq :setup
|
||||||
|
pha
|
||||||
|
txa
|
||||||
|
clc
|
||||||
|
adc #7
|
||||||
|
tax
|
||||||
|
pla
|
||||||
|
bra :next
|
||||||
|
:notf sec ; Not found
|
||||||
|
rts
|
||||||
|
:setup ldy #0
|
||||||
|
:copy inx
|
||||||
|
lda :data,x
|
||||||
|
sta _init,y
|
||||||
|
iny
|
||||||
|
cpy #6
|
||||||
|
bne :copy
|
||||||
|
clc
|
||||||
|
rts
|
||||||
|
|
||||||
|
*
|
||||||
|
* Data per page: Apple ASCII, Initialization, Display, Keypress (7 bytes)
|
||||||
|
*
|
||||||
|
* Definitions:
|
||||||
|
* - BYTE = Character to match on, case insensitive
|
||||||
|
* - ADDR = Initialize routine (load track, calculate lookup tables, etc).
|
||||||
|
* Return:
|
||||||
|
* A:Y for number of lines,
|
||||||
|
* Carry: Set = no scrolling (graphics, form, etc), Clear = scrolling.
|
||||||
|
* Note: Initialization should also display 24th line for the page.
|
||||||
|
* (Cursor is there and line is clear.)
|
||||||
|
* - ADDR = Display routine. Called with A:Y for line number. Should end with $8D and is
|
||||||
|
* responsible for clearing the line.
|
||||||
|
* - ADDR = Keypress handler. NOT A SUBROUTINE. This routine has a number of entry
|
||||||
|
* points it might call. KeyboardWait for another keypress or SetupPage to
|
||||||
|
* reinitialize and redraw.
|
||||||
|
*
|
||||||
|
:data
|
||||||
|
dfb "A"
|
||||||
|
da AboutInit, AboutDisplay, AboutKeypress
|
||||||
|
dfb "F"
|
||||||
|
da FieldInit, FieldDisplay, FieldKeypress
|
||||||
|
dfb "B"
|
||||||
|
da BrowseInit, BrowseDisplay, BrowseKeypress
|
||||||
|
dfb "G"
|
||||||
|
da HgrInit, HgrDisplay, HgrKeypress
|
||||||
|
dfb "C"
|
||||||
|
da CountInit, CountDisplay, CountKeypress
|
||||||
|
dfb "T"
|
||||||
|
da TestInit, TestDisplay, TestKeypress
|
||||||
|
dfb 0 ; end
|
||||||
|
|
|
@ -0,0 +1,146 @@
|
||||||
|
******************************************************************************************
|
||||||
|
*
|
||||||
|
* Utility routines
|
||||||
|
* ========================================================================================
|
||||||
|
*
|
||||||
|
******************************************************************************************
|
||||||
|
|
||||||
|
* Setup the data buffer
|
||||||
|
SETUPDATA LDA #>DATASTART
|
||||||
|
STA DATA+1
|
||||||
|
LDA #<DATASTART
|
||||||
|
STA DATA
|
||||||
|
LDA #>DATALEN
|
||||||
|
STA TEMP ; number of pages to load
|
||||||
|
RTS
|
||||||
|
|
||||||
|
* Print identifier and 4 and 4 encoded number
|
||||||
|
* Acc = character
|
||||||
|
* Output = " ?=" where ? is char in Acc
|
||||||
|
PRDATA PHA
|
||||||
|
LDA #" "
|
||||||
|
JSR COUT
|
||||||
|
PLA
|
||||||
|
JSR COUT
|
||||||
|
LDA #"="
|
||||||
|
JSR COUT
|
||||||
|
LDA (DATA),Y
|
||||||
|
SEC
|
||||||
|
ROL
|
||||||
|
INY
|
||||||
|
AND (DATA),Y
|
||||||
|
JMP PRHEX
|
||||||
|
|
||||||
|
* Output routine uses simple RLE type encoding
|
||||||
|
* High bit set = character;
|
||||||
|
* High bit clear =
|
||||||
|
* $00 = exit
|
||||||
|
* $01 = print byte from address
|
||||||
|
* $02-$7F = repeat next character
|
||||||
|
*
|
||||||
|
* There are two entry points:
|
||||||
|
* - PRINT = inline text being printed out; implicit PTR increment at start
|
||||||
|
* - PRINTP = print address passed in AX; no implicit PTR increment at start
|
||||||
|
|
||||||
|
PRINT PLA
|
||||||
|
STA PTR
|
||||||
|
PLA
|
||||||
|
STA PTR+1
|
||||||
|
JSR :MORE
|
||||||
|
LDA PTR+1
|
||||||
|
PHA
|
||||||
|
LDA PTR
|
||||||
|
PHA
|
||||||
|
RTS
|
||||||
|
|
||||||
|
PRINTP STA PTR+1
|
||||||
|
STX PTR
|
||||||
|
BRA :START
|
||||||
|
|
||||||
|
:MORE JSR INCPTR
|
||||||
|
:START LDX #1 ; Assume 1 char to be output
|
||||||
|
LDA (PTR)
|
||||||
|
BEQ :EXIT
|
||||||
|
BMI :SINGLE
|
||||||
|
CMP #1
|
||||||
|
BNE :REPEAT
|
||||||
|
JSR INCPTR
|
||||||
|
LDA (PTR)
|
||||||
|
STA PTR2
|
||||||
|
JSR INCPTR
|
||||||
|
LDA (PTR)
|
||||||
|
STA PTR2+1
|
||||||
|
LDA (PTR2)
|
||||||
|
JSR PRHEX
|
||||||
|
BRA :MORE
|
||||||
|
:REPEAT TAX
|
||||||
|
JSR INCPTR
|
||||||
|
LDA (PTR)
|
||||||
|
:SINGLE JSR COUT
|
||||||
|
DEX
|
||||||
|
BNE :SINGLE
|
||||||
|
BEQ :MORE
|
||||||
|
:EXIT RTS
|
||||||
|
|
||||||
|
INCPTR INC PTR
|
||||||
|
BNE :EXIT
|
||||||
|
INC PTR+1
|
||||||
|
:EXIT RTS
|
||||||
|
|
||||||
|
* Clear the data portion of the screen
|
||||||
|
* (Lines 3-22) and reposition to line 3.
|
||||||
|
|
||||||
|
CLRSCRN LDA #_HOME
|
||||||
|
JSR COUT
|
||||||
|
JSR PRCR
|
||||||
|
LDY #20
|
||||||
|
:1 JSR PRCR ; next line
|
||||||
|
LDA #_CLREOL
|
||||||
|
JSR COUT
|
||||||
|
DEY
|
||||||
|
BNE :1
|
||||||
|
LDA #_HOME
|
||||||
|
JSR COUT
|
||||||
|
JSR PRCR ; move to row 3
|
||||||
|
JMP PRCR
|
||||||
|
|
||||||
|
* Read a byte
|
||||||
|
* If invalid, carry is set (anything NOT 0-9,A-F is invalid)
|
||||||
|
|
||||||
|
READBYTE JSR READHEX
|
||||||
|
BCS :EXIT
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
ASL
|
||||||
|
STA TEMP
|
||||||
|
JSR READHEX ; carry falls through to exit
|
||||||
|
ORA TEMP
|
||||||
|
:EXIT RTS
|
||||||
|
|
||||||
|
READHEX JSR GETCH
|
||||||
|
JSR COUT
|
||||||
|
CMP #"9"+1
|
||||||
|
BCC :NUMERIC
|
||||||
|
CMP #"F"+1
|
||||||
|
BCC :ALPHA
|
||||||
|
:BAD SEC
|
||||||
|
RTS
|
||||||
|
:NUMERIC SEC
|
||||||
|
SBC #"0"
|
||||||
|
BVS :BAD
|
||||||
|
:GOOD CLC
|
||||||
|
RTS
|
||||||
|
:ALPHA SEC
|
||||||
|
SBC #"A"
|
||||||
|
BVS :BAD
|
||||||
|
ADC #10
|
||||||
|
:GOOD2 CLC
|
||||||
|
RTS
|
||||||
|
|
||||||
|
* ProDOS QUIT parameter tables
|
||||||
|
QUITPARM DFB 4 ; 4 parameters
|
||||||
|
DFB 0 ; 0 is the only quit type
|
||||||
|
DA 0 ; reserved
|
||||||
|
DFB 0 ; reserved
|
||||||
|
DA 0 ; reserved
|
Loading…
Reference in New Issue