mirror of
https://github.com/a2geek/afscanner.git
synced 2025-01-13 23:30:48 +00:00
2.0beta now contains the original functionality of 1.0 as well as the About screen.
This commit is contained in:
Rob Greene
parent
8a48ab7b87
commit
744de46a11
2
.gitignore
vendored
2
.gitignore
vendored
@ -3,3 +3,5 @@ afscanner_Output.txt
|
|||||||
afscanner
|
afscanner
|
||||||
dev.po
|
dev.po
|
||||||
afscanner.zip
|
afscanner.zip
|
||||||
|
afdisk.po
|
||||||
|
local.config
|
||||||
|
|||||||
24
Makefile
24
Makefile
@ -1,13 +1,5 @@
|
|||||||
# External programs:
|
# External dependencies:
|
||||||
ifeq ($(OS),Windows_NT)
|
include local.config
|
||||||
ASM = Merlin32.exe -V ~/Merlin32_v1.0/Merlin32_v1.0//Library/
|
|
||||||
AC = java -jar "C:\Users\Rob\From DOODLE4\Java Applications\AppleCommander releases\AppleCommander-1.3.5.14-ac.jar"
|
|
||||||
else ($(OS),Mac_OSX)
|
|
||||||
ASM = Merlin32 -V /usr/local/lib/Merlin32_v1.0/Library/
|
|
||||||
AC = java -jar /Applications/AppleCommander.app/Contents/Resources/Java/AppleCommander.jar
|
|
||||||
else
|
|
||||||
echo $(OS)
|
|
||||||
endif
|
|
||||||
|
|
||||||
# Local stuff:
|
# Local stuff:
|
||||||
PGM = afscanner
|
PGM = afscanner
|
||||||
@ -15,13 +7,21 @@ SYS = afscannr.system
|
|||||||
TYPE = SYS
|
TYPE = SYS
|
||||||
ADDR = 0x2000
|
ADDR = 0x2000
|
||||||
TMPL = template.po
|
TMPL = template.po
|
||||||
DISK = dev.po
|
DISK = afdisk.po
|
||||||
|
|
||||||
|
|
||||||
build:
|
afscanner: afscanner.s
|
||||||
$(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)
|
||||||
$(AC) -k $(DISK) $(SYS)
|
$(AC) -k $(DISK) $(SYS)
|
||||||
$(AC) -ll $(DISK)
|
$(AC) -ll $(DISK)
|
||||||
zip $(PGM).zip $(DISK)
|
zip $(PGM).zip $(DISK)
|
||||||
|
|
||||||
|
test: afscanner
|
||||||
|
$(EMUL) $(DISK)
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm $(PGM) $(DISK) $(PGM).zip
|
||||||
|
rm _FileInformation.txt afscanner_Output.txt
|
||||||
|
|
||||||
|
|||||||
635
afscanner.s
635
afscanner.s
@ -4,8 +4,12 @@
|
|||||||
*
|
*
|
||||||
* 1/16/2016: Version 1.0
|
* 1/16/2016: Version 1.0
|
||||||
*
|
*
|
||||||
* 1/16/2016: Version 2.0
|
* 1/29/2016: Version 2.0
|
||||||
*
|
* - Restructuring to support paging and scrollong.
|
||||||
|
* - Slowly switching from spaces to tabs as an experiment.
|
||||||
|
* - Pages available:
|
||||||
|
* + About (default page)
|
||||||
|
* + Headers (updated Address Field Header information)
|
||||||
*
|
*
|
||||||
* This is a simple Disk II scanner
|
* This is a simple Disk II scanner
|
||||||
* to identify address field contents
|
* to identify address field contents
|
||||||
@ -32,22 +36,42 @@ _PRBYTE = 1 ; print byte @ addr
|
|||||||
_CLS = $8C ; clear screen
|
_CLS = $8C ; clear screen
|
||||||
_INVERSE = $8F
|
_INVERSE = $8F
|
||||||
_NORMAL = $8E
|
_NORMAL = $8E
|
||||||
|
_MT_OFF = $98 ; disable MouseText
|
||||||
_HOME = $99 ; home the cursor, not cls
|
_HOME = $99 ; home the cursor, not cls
|
||||||
|
_MT_ON = $9B ; enable MouseText for uppercase inverse characters
|
||||||
_CLREOL = $9D ; clear to EOL
|
_CLREOL = $9D ; clear to EOL
|
||||||
|
|
||||||
|
_C_APPLE = "@" ; Closed Apple
|
||||||
|
_O_APPLE = "A" ; Open Apple
|
||||||
|
_L_ARROW = "H" ; Left Arrow
|
||||||
|
_R_ARROW = "U" ; Right Arrow
|
||||||
|
_U_ARROW = "K" ; Up Arrow
|
||||||
|
_D_ARROW = "J" ; Down Arrow
|
||||||
|
_H_LINE = "S" ; Horizontal Line (full width)
|
||||||
|
|
||||||
|
|
||||||
* Variable locations:
|
* Variable locations:
|
||||||
|
|
||||||
DUM $0 ; ZP locs
|
DUM $0 ; ZP locs
|
||||||
SAMPLES DFB 0 ; number of sector samples
|
SAMPLES DFB 0 ; number of sector samples
|
||||||
CURTRK DFB 0 ; current track
|
CURTRK DFB 0 ; current track
|
||||||
DSTTRK DFB 0 ; destination track
|
DSTTRK DFB 0 ; destination track
|
||||||
PTR DA 0 ; primary print pointer
|
PTR DA 0 ; primary print pointer
|
||||||
PTR2 DA 0 ; secondary print pointer
|
PTR2 DA 0 ; secondary print pointer
|
||||||
SLOT16 DFB 0 ; slot# * 16
|
SLOT16 DFB 0 ; slot# * 16
|
||||||
COUNTER DA 0 ; fail counter
|
COUNTER DA 0 ; fail counter
|
||||||
TEMP DFB 0 ; local variable
|
TEMP DFB 0 ; local variable
|
||||||
DATA DA 0 ; data buffer
|
DATA DA 0 ; data buffer
|
||||||
DEND
|
|
||||||
|
_init da 0 ; current page init
|
||||||
|
_display da 0 ; current page line display handler
|
||||||
|
_keypress da 0 ; current page keypress handler
|
||||||
|
curline dfb 0 ; current first line
|
||||||
|
endline dfb 0 ; end of page = min(curline+20,maxlines)
|
||||||
|
maxlines dfb 0 ; maximum number of lines availalable
|
||||||
|
DEND
|
||||||
|
|
||||||
|
inbuf = $200 ; reusable buffer
|
||||||
|
|
||||||
DATASTART = $4000
|
DATASTART = $4000
|
||||||
DATAEND = $6000
|
DATAEND = $6000
|
||||||
@ -55,11 +79,15 @@ DATALEN = DATAEND-DATASTART
|
|||||||
|
|
||||||
* High ASCII constants
|
* High ASCII constants
|
||||||
|
|
||||||
CTRLH = "H"-$40
|
CTRLH = "H"-$40
|
||||||
LARROW = CTRLH
|
LARROW = CTRLH
|
||||||
CTRLU = "U"-$40
|
CTRLU = "U"-$40
|
||||||
RARROW = CTRLU
|
RARROW = CTRLU
|
||||||
ESC = $9B
|
ESC = $9B
|
||||||
|
CTRLK = "K"-$40
|
||||||
|
UpArrow = CTRLK
|
||||||
|
CTRLJ = "J"-$40
|
||||||
|
DownArrow = CTRLJ
|
||||||
|
|
||||||
* ProDOS:
|
* ProDOS:
|
||||||
|
|
||||||
@ -76,8 +104,9 @@ COUT = $FDED
|
|||||||
|
|
||||||
* I/O addresses:
|
* I/O addresses:
|
||||||
|
|
||||||
KEYBOARD = $C000
|
KEYBOARD = $C000
|
||||||
KEYCLEAR = $C010
|
KEYCLEAR = $C010
|
||||||
|
OpenApple = $C061
|
||||||
|
|
||||||
* Disk II addresses:
|
* Disk II addresses:
|
||||||
|
|
||||||
@ -91,42 +120,466 @@ Q7L = $C08E
|
|||||||
|
|
||||||
* Display screen
|
* Display screen
|
||||||
|
|
||||||
MAIN JSR $C300 ; Assuming 80 columns
|
MAIN JSR $C300 ; Assuming 80 columns
|
||||||
JSR PRINT
|
JSR PRINT
|
||||||
DFB _CLS
|
DFB _CLS
|
||||||
ASC _INVERSE," Address Field Scanner 2.0beta ",_NORMAL
|
ASC "AFScanner",$8D
|
||||||
DFB 23,$8D ; repeat 8D 23x
|
DFB _MT_ON,_INVERSE,80,_H_LINE,_NORMAL,_MT_OFF ; wraps!
|
||||||
ASC _INVERSE,"<-",_NORMAL,", ",_INVERSE,"->",_NORMAL," Track / "
|
DFB 20,$8D
|
||||||
ASC "re",_INVERSE,"S",_NORMAL,"can / "
|
DFB _MT_ON,_INVERSE,80,_H_LINE,_NORMAL,_MT_OFF ; wraps!
|
||||||
ASC _INVERSE,"R",_NORMAL,"ecalibrate / "
|
ASC _MT_ON,_INVERSE,_L_ARROW,_NORMAL,", ",_INVERSE,_R_ARROW,_NORMAL,_MT_OFF," Track / "
|
||||||
ASC "goto ",_INVERSE,"T",_NORMAL,"rack / "
|
ASC "re",_INVERSE,"S",_NORMAL,"can / "
|
||||||
ASC _INVERSE,"ESC",_NORMAL," quit"
|
ASC _INVERSE,"R",_NORMAL,"ecalibrate / "
|
||||||
DFB _HOME
|
ASC "goto ",_INVERSE,"T",_NORMAL,"rack / "
|
||||||
HEX 8D8D
|
ASC _INVERSE,"ESC",_NORMAL," quit"
|
||||||
HEX 00
|
DFB _HOME
|
||||||
|
HEX 8D8D
|
||||||
|
HEX 00
|
||||||
|
|
||||||
* Turn on drive 1, set read mode, init variables
|
* Setup local variables
|
||||||
|
|
||||||
|
Initialize
|
||||||
|
ldx #$60 ; assumption = slot 6
|
||||||
|
stx SLOT16
|
||||||
|
lda #40
|
||||||
|
sta CURTRK ; force a recalibration
|
||||||
|
stz DSTTRK
|
||||||
|
lda #"A" ; default screen is "About" page
|
||||||
|
jsr SetScreen
|
||||||
|
|
||||||
|
SetupPage
|
||||||
|
jsr PRINT ; position cursor on bottom line
|
||||||
|
dfb _HOME
|
||||||
|
dfb 23,$8D
|
||||||
|
dfb _CLREOL
|
||||||
|
dfb $00
|
||||||
|
ldx #_init ; vector offset
|
||||||
|
jsr _VCALL
|
||||||
|
sta maxlines
|
||||||
|
stz curline
|
||||||
|
|
||||||
|
DrawPage
|
||||||
|
jsr PRINT ; Clear and then draw the content area
|
||||||
|
dfb _HOME,$8d,$8d,0
|
||||||
|
|
||||||
|
clc
|
||||||
|
lda curline
|
||||||
|
adc #20
|
||||||
|
sta endline
|
||||||
|
cmp maxlines
|
||||||
|
bcc :start
|
||||||
|
lda maxlines ; maxlines < endline, use maxlines
|
||||||
|
sta endline
|
||||||
|
|
||||||
|
:start lda curline
|
||||||
|
:next pha
|
||||||
|
ldx #_display ; vector offset
|
||||||
|
jsr _VCALL
|
||||||
|
pla
|
||||||
|
inc
|
||||||
|
cmp endline
|
||||||
|
bcc :next
|
||||||
|
|
||||||
|
; Clear rest of screen
|
||||||
|
:wipe cmp #20
|
||||||
|
bcs KeyboardWait
|
||||||
|
pha
|
||||||
|
jsr PRINT
|
||||||
|
dfb _CLREOL,$8D,0
|
||||||
|
pla
|
||||||
|
inc
|
||||||
|
bne :wipe
|
||||||
|
|
||||||
|
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 :back
|
||||||
|
jsr PRODOSMLI
|
||||||
|
dfb _MLIQUIT
|
||||||
|
da QUITPARM
|
||||||
|
:back jmp DrawPage ; fall through and common return
|
||||||
|
|
||||||
|
; 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
|
||||||
|
:down1 lda curline
|
||||||
|
inc
|
||||||
|
sta curline
|
||||||
|
clc
|
||||||
|
adc #20
|
||||||
|
cmp maxlines
|
||||||
|
bcc :rts
|
||||||
|
; went too far
|
||||||
|
:up1 lda curline
|
||||||
|
dec
|
||||||
|
bmi :rts
|
||||||
|
sta curline
|
||||||
|
: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)
|
||||||
|
* Note: Initialization should also display 24th line for the page.
|
||||||
|
* Cursor is there and line is clear.
|
||||||
|
:data
|
||||||
|
dfb "A"
|
||||||
|
da AboutInit, AboutDisplay, AboutKeypress
|
||||||
|
dfb "F"
|
||||||
|
da FieldInit, FieldDisplay, FieldKeypress
|
||||||
|
dfb 0 ; end
|
||||||
|
|
||||||
|
*
|
||||||
|
* ABOUT page interface
|
||||||
|
*
|
||||||
|
|
||||||
|
* Build array of line pointers in INBUF.
|
||||||
|
AboutInit ; 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"
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
lda #<:lines
|
||||||
|
sta PTR
|
||||||
|
lda #>:lines
|
||||||
|
sta PTR+1
|
||||||
|
ldx #0 ; max lines
|
||||||
|
ldy #0 ; buffer offset
|
||||||
|
|
||||||
|
:save lda PTR
|
||||||
|
sta inbuf,y
|
||||||
|
lda PTR+1
|
||||||
|
iny
|
||||||
|
sta inbuf,y
|
||||||
|
iny
|
||||||
|
inx
|
||||||
|
|
||||||
|
:loop lda (PTR)
|
||||||
|
bne :incr
|
||||||
|
txa
|
||||||
|
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,"F = Address field display. " ; (cont)
|
||||||
|
asc "(Assuming 'good' address fields on disk.)",$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 PROLOGUE
|
||||||
|
dfb " ",1
|
||||||
|
da PROLOGUE+1
|
||||||
|
dfb " ",1
|
||||||
|
da PROLOGUE+2
|
||||||
|
dfb $00
|
||||||
|
asc " ",$00
|
||||||
|
asc "-END-",$00
|
||||||
|
dfb 0
|
||||||
|
|
||||||
|
AboutDisplay ; Called with Acc = line
|
||||||
|
pha
|
||||||
|
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
|
||||||
|
|
||||||
|
*
|
||||||
|
* FIELD Interface
|
||||||
|
*
|
||||||
|
|
||||||
|
FieldInit ; 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 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 PROLOGUE,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
|
||||||
|
rts
|
||||||
|
|
||||||
|
FieldDisplay ; Called with Acc = line
|
||||||
|
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
|
||||||
|
|
||||||
|
*
|
||||||
|
* 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
|
||||||
|
|
||||||
INIT LDX #$60 ; assumption = slot 6
|
|
||||||
STX SLOT16
|
|
||||||
LDA MOTORON,X
|
|
||||||
LDA DRV0EN,X
|
|
||||||
LDA Q7L,X
|
|
||||||
LDA Q6L,X
|
|
||||||
RECAL LDA #40
|
|
||||||
STA CURTRK ; force a recalibration
|
|
||||||
STZ DSTTRK
|
|
||||||
JSR ARMMOVE
|
|
||||||
|
|
||||||
DISPLAY LDA #20
|
DISPLAY LDA #20
|
||||||
STA SAMPLES
|
STA SAMPLES
|
||||||
JSR PRINT
|
JSR PRINT
|
||||||
DFB _HOME
|
DFB _HOME
|
||||||
HEX 8D ; CR
|
HEX 8D ; CR
|
||||||
DFB 11,$88 ; backspace into 1st line
|
DFB 7,$88 ; backspace into 1st line
|
||||||
ASC "Track = "
|
ASC "T="
|
||||||
DFB _PRBYTE
|
DFB _PRBYTE
|
||||||
DA CURTRK
|
DA CURTRK
|
||||||
|
ASC ".00"
|
||||||
HEX 00
|
HEX 00
|
||||||
|
|
||||||
JSR CLRSCRN
|
JSR CLRSCRN
|
||||||
@ -213,7 +666,7 @@ KEYPRESS LDA KEYBOARD
|
|||||||
BEQ RESCAN
|
BEQ RESCAN
|
||||||
CMP #"R"
|
CMP #"R"
|
||||||
BNE :1
|
BNE :1
|
||||||
JMP RECAL
|
JMP Recalibrate
|
||||||
:1 LDX #-1
|
:1 LDX #-1
|
||||||
CMP #LARROW
|
CMP #LARROW
|
||||||
BEQ CHGTRACK
|
BEQ CHGTRACK
|
||||||
@ -279,44 +732,55 @@ PRDATA PHA
|
|||||||
* $00 = exit
|
* $00 = exit
|
||||||
* $01 = print byte from address
|
* $01 = print byte from address
|
||||||
* $02-$7F = repeat next character
|
* $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
|
PRINT PLA
|
||||||
STA PTR
|
STA PTR
|
||||||
PLA
|
PLA
|
||||||
STA PTR+1
|
STA PTR+1
|
||||||
:MORE JSR INCPTR
|
JSR :MORE
|
||||||
LDX #1 ; Assume 1 char to be output
|
LDA PTR+1
|
||||||
LDA (PTR)
|
PHA
|
||||||
BEQ :EXIT
|
LDA PTR
|
||||||
BMI :SINGLE
|
PHA
|
||||||
CMP #1
|
RTS
|
||||||
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 LDA PTR+1
|
|
||||||
PHA
|
|
||||||
LDA PTR
|
|
||||||
PHA
|
|
||||||
RTS
|
|
||||||
|
|
||||||
INCPTR INC PTR
|
PRINTP STA PTR+1
|
||||||
BNE :EXIT
|
STX PTR
|
||||||
INC PTR+1
|
BRA :START
|
||||||
:EXIT RTS
|
|
||||||
|
: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
|
* Clear the data portion of the screen
|
||||||
* (Lines 3-22) and reposition to line 3.
|
* (Lines 3-22) and reposition to line 3.
|
||||||
@ -371,6 +835,11 @@ READHEX JSR GETCH
|
|||||||
|
|
||||||
* Move the Disk II arm:
|
* Move the Disk II arm:
|
||||||
|
|
||||||
|
Recalibrate
|
||||||
|
LDA #40
|
||||||
|
STA CURTRK ; force a recalibration
|
||||||
|
STZ DSTTRK
|
||||||
|
|
||||||
ARMMOVE LDA CURTRK
|
ARMMOVE LDA CURTRK
|
||||||
CMP DSTTRK
|
CMP DSTTRK
|
||||||
BNE :MOVE
|
BNE :MOVE
|
||||||
|
|||||||
12
local.config.template
Normal file
12
local.config.template
Normal file
@ -0,0 +1,12 @@
|
|||||||
|
# This a sample configuration for the Makefile. Make a copy and modify for your system.
|
||||||
|
# These particular examples are from a Mac OS X setup. It can also be setup for the Cygwin environment on a Windows machine.
|
||||||
|
|
||||||
|
# Full command-line to Merlin32 assembler. Note that Merlin32 requires the first path be to the Merlin library
|
||||||
|
ASM = Merlin32 -V /usr/local/lib/Merlin32_v1.0/Library/
|
||||||
|
|
||||||
|
# Command to launch AppleCommander
|
||||||
|
AC = java -jar /Applications/AppleCommander.app/Contents/Resources/Java/AppleCommander.jar
|
||||||
|
|
||||||
|
# Emulator that launches with disk based on command-line argument
|
||||||
|
EMUL = "/Applications/Virtual ][/Virtual ][.app/Contents/MacOS/Virtual ]["
|
||||||
|
|
||||||
Loading…
x
Reference in New Issue
Block a user