2.0beta now contains the original functionality of 1.0 as well as the About screen.

This commit is contained in:
Rob Greene 2016-01-30 23:32:38 -06:00
parent 8a48ab7b87
commit 744de46a11
4 changed files with 578 additions and 95 deletions

2
.gitignore vendored
View File

@ -3,3 +3,5 @@ afscanner_Output.txt
afscanner
dev.po
afscanner.zip
afdisk.po
local.config

View File

@ -1,13 +1,5 @@
# External programs:
ifeq ($(OS),Windows_NT)
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
# External dependencies:
include local.config
# Local stuff:
PGM = afscanner
@ -15,13 +7,21 @@ SYS = afscannr.system
TYPE = SYS
ADDR = 0x2000
TMPL = template.po
DISK = dev.po
DISK = afdisk.po
build:
afscanner: afscanner.s
$(ASM) $(PGM).s
cp $(TMPL) $(DISK)
cat $(PGM) | $(AC) -p $(DISK) $(SYS) $(TYPE) $(ADDR)
$(AC) -k $(DISK) $(SYS)
$(AC) -ll $(DISK)
zip $(PGM).zip $(DISK)
test: afscanner
$(EMUL) $(DISK)
clean:
rm $(PGM) $(DISK) $(PGM).zip
rm _FileInformation.txt afscanner_Output.txt

View File

@ -4,8 +4,12 @@
*
* 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
* to identify address field contents
@ -32,9 +36,20 @@ _PRBYTE = 1 ; print byte @ addr
_CLS = $8C ; clear screen
_INVERSE = $8F
_NORMAL = $8E
_MT_OFF = $98 ; disable MouseText
_HOME = $99 ; home the cursor, not cls
_MT_ON = $9B ; enable MouseText for uppercase inverse characters
_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:
DUM $0 ; ZP locs
@ -47,8 +62,17 @@ SLOT16 DFB 0 ; slot# * 16
COUNTER DA 0 ; fail counter
TEMP DFB 0 ; local variable
DATA DA 0 ; data buffer
_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
DATAEND = $6000
DATALEN = DATAEND-DATASTART
@ -60,6 +84,10 @@ LARROW = CTRLH
CTRLU = "U"-$40
RARROW = CTRLU
ESC = $9B
CTRLK = "K"-$40
UpArrow = CTRLK
CTRLJ = "J"-$40
DownArrow = CTRLJ
* ProDOS:
@ -78,6 +106,7 @@ COUT = $FDED
KEYBOARD = $C000
KEYCLEAR = $C010
OpenApple = $C061
* Disk II addresses:
@ -94,9 +123,11 @@ Q7L = $C08E
MAIN JSR $C300 ; Assuming 80 columns
JSR PRINT
DFB _CLS
ASC _INVERSE," Address Field Scanner 2.0beta ",_NORMAL
DFB 23,$8D ; repeat 8D 23x
ASC _INVERSE,"<-",_NORMAL,", ",_INVERSE,"->",_NORMAL," Track / "
ASC "AFScanner",$8D
DFB _MT_ON,_INVERSE,80,_H_LINE,_NORMAL,_MT_OFF ; wraps!
DFB 20,$8D
DFB _MT_ON,_INVERSE,80,_H_LINE,_NORMAL,_MT_OFF ; wraps!
ASC _MT_ON,_INVERSE,_L_ARROW,_NORMAL,", ",_INVERSE,_R_ARROW,_NORMAL,_MT_OFF," Track / "
ASC "re",_INVERSE,"S",_NORMAL,"can / "
ASC _INVERSE,"R",_NORMAL,"ecalibrate / "
ASC "goto ",_INVERSE,"T",_NORMAL,"rack / "
@ -105,28 +136,450 @@ MAIN JSR $C300 ; Assuming 80 columns
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
STA SAMPLES
JSR PRINT
DFB _HOME
HEX 8D ; CR
DFB 11,$88 ; backspace into 1st line
ASC "Track = "
DFB 7,$88 ; backspace into 1st line
ASC "T="
DFB _PRBYTE
DA CURTRK
ASC ".00"
HEX 00
JSR CLRSCRN
@ -213,7 +666,7 @@ KEYPRESS LDA KEYBOARD
BEQ RESCAN
CMP #"R"
BNE :1
JMP RECAL
JMP Recalibrate
:1 LDX #-1
CMP #LARROW
BEQ CHGTRACK
@ -279,13 +732,28 @@ PRDATA PHA
* $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
LDX #1 ; Assume 1 char to be output
:START LDX #1 ; Assume 1 char to be output
LDA (PTR)
BEQ :EXIT
BMI :SINGLE
@ -307,11 +775,7 @@ PRINT PLA
DEX
BNE :SINGLE
BEQ :MORE
:EXIT LDA PTR+1
PHA
LDA PTR
PHA
RTS
:EXIT RTS
INCPTR INC PTR
BNE :EXIT
@ -371,6 +835,11 @@ READHEX JSR GETCH
* Move the Disk II arm:
Recalibrate
LDA #40
STA CURTRK ; force a recalibration
STZ DSTTRK
ARMMOVE LDA CURTRK
CMP DSTTRK
BNE :MOVE

12
local.config.template Normal file
View 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 ]["