mirror of
https://github.com/gungwald/prodos-more.git
synced 2024-11-25 11:35:18 +00:00
First check-in
This commit is contained in:
Bill Chatfield
parent
7f4357d106
commit
c044ae5548
BIN
AppleCommander-1.3.5-ac.jar
Normal file
BIN
AppleCommander-1.3.5-ac.jar
Normal file
Binary file not shown.
50
Makefile
Normal file
50
Makefile
Normal file
@ -0,0 +1,50 @@
|
||||
# Require-mints:
|
||||
#
|
||||
# GNU make
|
||||
# - To execute this make file
|
||||
#
|
||||
# merlin32
|
||||
# - to assemble the source code
|
||||
# https://www.brutaldeluxe.fr/products/crossdevtools/merlin/
|
||||
#
|
||||
# AppleCommander (included)
|
||||
# - To create the Apple II disk image
|
||||
#
|
||||
# AppleWin
|
||||
# - To load the disk and test the program
|
||||
#
|
||||
ifeq ($(OS),Windows_NT)
|
||||
COPY=copy
|
||||
APPLEWIN="c:\opt\AppleWin1.26.2.3\applewin.exe"
|
||||
else
|
||||
COPY=cp
|
||||
APPLEWIN=applewin
|
||||
endif
|
||||
|
||||
# It is necessary to use this older version of AppleCommander to support
|
||||
# the PowerBook G4 and iBook G3. This version only requires Java 1.3.
|
||||
AC=java -jar AppleCommander-1.3.5-ac.jar
|
||||
SRC=more.s
|
||||
PGM=more
|
||||
BASE_DSK=prodos-2.0.3-boot.dsk
|
||||
VOL=$(PGM)
|
||||
DSK=$(PGM).dsk
|
||||
|
||||
# There is some kind of problem with turning this into a boot disk
|
||||
# after it is created by AppleCommander. So, copy an existing boot
|
||||
# disk instead.
|
||||
#$(AC) -pro140 $(DSK) $(VOL)
|
||||
|
||||
$(DSK): $(PGM)
|
||||
$(COPY) $(BASE_DSK) $(DSK)
|
||||
$(AC) -p $(DSK) $(PGM) BIN 0x0800 < $(PGM)
|
||||
|
||||
$(PGM): $(SRC) Makefile
|
||||
merlin32 --verbose $(SRC)
|
||||
|
||||
clean:
|
||||
$(RM) $(DSK) $(PGM) *.zip _FileInformation.txt $(PGM)_Output.txt
|
||||
|
||||
test: $(DSK)
|
||||
$(APPLEWIN) -d1 $(DSK)
|
||||
|
||||
301
more.s
Normal file
301
more.s
Normal file
@ -0,0 +1,301 @@
|
||||
*
|
||||
* more - Text viewer
|
||||
*
|
||||
|
||||
* BEQ - Branch if Equal
|
||||
* Branches if the zero flag (Z) is set to 1. This happens if:
|
||||
* - A 0 value is loaded into the accumulator via LDA
|
||||
* - A CMP is done on two equal values
|
||||
* - A SBC is done on two equal values?
|
||||
* BCC - Branch if Carry Flag is Clear
|
||||
* Equivalent to Branch if Less Than (BLT), meaning that the
|
||||
* accumulator (A) is less than the parameter: A < Param
|
||||
* BGE - Branch if Accum >= Param is BCS
|
||||
|
||||
|
||||
* System subroutines stored in ROM
|
||||
CROUT equ $fd8e ; Outputs a carriage return
|
||||
PRBYTE equ $fdda ; Outputs a byte
|
||||
COUT equ $fded ; Outputs a character
|
||||
|
||||
* MLI stands for Machine Language Interface
|
||||
* It is the ProDOS system call entry point
|
||||
MLI equ $bf00
|
||||
|
||||
* ProDOS system call command codes
|
||||
OPEN equ $c8
|
||||
CLOSE equ $cc
|
||||
|
||||
* Constants
|
||||
ADDR equ $06
|
||||
MAX_EC equ $5a ; The largest error code
|
||||
|
||||
|
||||
WRITE_CHAR mac
|
||||
if #=]1
|
||||
lda ]1
|
||||
else
|
||||
lda #]1
|
||||
fin
|
||||
jsr COUT
|
||||
eom
|
||||
|
||||
|
||||
WRITE_BYTE mac
|
||||
lda ]1
|
||||
jsr PRBYTE
|
||||
eom
|
||||
|
||||
|
||||
WRITE_ASC mac
|
||||
tya ; Preserve Y by transferring it to A
|
||||
pha ; and pushing it onto the stack
|
||||
ldy #0 ; Prepare loop index
|
||||
nextch lda ]1,Y ; Load a character into A
|
||||
beq finish ; Branch if lda loaded a zero value
|
||||
jsr COUT ; Write the character in A
|
||||
iny ; Increment Y
|
||||
jmp nextch ; Go back and load the next character
|
||||
finish pla ; Restore Y by pulling stack into A
|
||||
tay ; and transferring it to Y
|
||||
eom
|
||||
|
||||
|
||||
WRITE_STR mac
|
||||
tya ; Preserve Y
|
||||
pha
|
||||
lda ]1 ; Length byte
|
||||
sta len
|
||||
ldy #1 ; Prepare loop index
|
||||
nextch cpy len ; Check if beyond end of string
|
||||
bcc writech ; Y is Less than
|
||||
beq writech ; Or equal to len
|
||||
jmp finish
|
||||
writech lda ]1,y ; Load a character
|
||||
jsr COUT
|
||||
iny
|
||||
jmp nextch
|
||||
len db 0
|
||||
finish pla ; Restore Y
|
||||
tay
|
||||
eom
|
||||
|
||||
|
||||
COPY_BYTE mac
|
||||
lda ]1
|
||||
sta ]2
|
||||
eom
|
||||
|
||||
|
||||
mainProgram
|
||||
org $800
|
||||
|
||||
lda #<fileName
|
||||
sta oPathPtr
|
||||
lda #>fileName
|
||||
sta oPathPtr+1
|
||||
|
||||
jsr MLI
|
||||
db OPEN
|
||||
da openParams
|
||||
bne openErrorHandler
|
||||
pmc COPY_BYTE,fileNum;closeNum
|
||||
jsr MLI
|
||||
db CLOSE
|
||||
dw closeParams
|
||||
bne closeErrorHandler
|
||||
jmp endMain
|
||||
openErrorHandler
|
||||
sta errorCode
|
||||
pmc WRITE_ASC,openFailureText
|
||||
jmp errorHandler
|
||||
closeErrorHandler
|
||||
sta errorCode
|
||||
pmc WRITE_ASC,closeFailureText
|
||||
errorHandler
|
||||
pmc WRITE_STR,fileName
|
||||
pmc WRITE_CHAR,":"
|
||||
pmc WRITE_CHAR," "
|
||||
lda errorCode
|
||||
cmp #MAX_EC ; Compare by A - MAX_EC
|
||||
bcs unknownError ; Branch if A >= MAX_EC
|
||||
lda errorCode ; Necessary?
|
||||
clc ; Prepare for addition
|
||||
adc errorCode ; Double for indexing addresses
|
||||
tax
|
||||
lda errorMessages,x
|
||||
sta ADDR
|
||||
inx
|
||||
lda errorMessages,x
|
||||
sta ADDR+1
|
||||
bne writeError
|
||||
lda ADDR
|
||||
bne writeError
|
||||
unknownError
|
||||
pmc WRITE_ASC,unknownErrorCodeText
|
||||
pmc WRITE_CHAR,"$"
|
||||
pmc WRITE_BYTE,errorCode
|
||||
jsr CROUT
|
||||
jmp endMain
|
||||
writeError
|
||||
pmc WRITE_ASC,(ADDR)
|
||||
pmc WRITE_CHAR," "
|
||||
pmc WRITE_ASC,errorCodeText
|
||||
pmc WRITE_CHAR,"$"
|
||||
pmc WRITE_BYTE,errorCode
|
||||
pmc WRITE_CHAR,")"
|
||||
jsr CROUT
|
||||
endMain
|
||||
rts
|
||||
|
||||
* DAT-uh
|
||||
|
||||
openParams db 3 ; Parameter count
|
||||
oPathPtr ds 2 ; Input param - file to open
|
||||
oBufPtr da inBuf ; Input param - I/O buffer
|
||||
fileNum ds 1 ; Output param - file ref num
|
||||
|
||||
closeParams db 1 ; Parameter count
|
||||
closeNum db 0 ; Input param - ref num to close
|
||||
|
||||
fileName db 4
|
||||
asc "BLAH"
|
||||
|
||||
errorCode db 0
|
||||
openFailureText asc "FAILED TO OPEN FILE ",00
|
||||
closeFailureText asc "FAILED TO CLOSE FILE ",00
|
||||
errorCodeText asc "(ERROR CODE ",00
|
||||
|
||||
unknownErrorCodeText asc "UNKNOWN ERROR CODE: ",00
|
||||
em00 asc "NO ERROR",00
|
||||
em01 asc "BAD SYSTEM CALL NUMBER",00
|
||||
em03 asc "NO DEVICE CONNECTED",00 ; Bug in AppleWin < 1.26.3.0
|
||||
em04 asc "BAD SYSTEM CALL PARAMETER COUNT",00
|
||||
em25 asc "INTERRUPT VECTOR TABLE FULL",00
|
||||
em27 asc "I/O ERROR",00
|
||||
em28 asc "DEVICE NOT CONNECTED",00
|
||||
em2b asc "DISK WRITE PROTECTED",00
|
||||
em2e asc "DISK SWITCHED WHILE FILE STILL OPEN",00
|
||||
em40 asc "PATH CONTAINS ILLEGAL CHARACTERS",00
|
||||
em42 asc "CANNOT EXCEED 8 OPEN FILES",00
|
||||
em44 asc "PATH NOT FOUND",00
|
||||
em45 asc "VOLUME DIRECTORY NOT FOUND",00
|
||||
em46 asc "FILE NOT FOUND",00
|
||||
em47 asc "DUPLICATE FILENAME",00
|
||||
em48 asc "DISK IS FULL",00
|
||||
em49 asc "CANNOT EXCEED 51 DIRECTORY ENTRIES",00
|
||||
em4a asc "INCOMPATIBLE FILE FORMAT",00
|
||||
em4b asc "UNSUPPORTED STORAGE TYPE",00
|
||||
em4c asc "END OF FILE",00
|
||||
em4d asc "FILE POSITION OUT OF RANGE",00
|
||||
em4e asc "FILE ATTRIBUTE FORBIDS OPERATION",00
|
||||
em50 asc "FILE IS OPEN",00
|
||||
em51 asc "DIRECTORY COUNT ERROR",00
|
||||
em52 asc "NOT A PRODOS DISK",00
|
||||
em55 asc "VOLUME CONTROL BLOCK FULL",00
|
||||
em56 asc "BAD BUFFER ADDRESS",00
|
||||
em57 asc "DUPLICATE VOLUME",00
|
||||
em5a asc "BIT MAP DISK ADDRESS IS IMPOSSIBLE",00
|
||||
*
|
||||
* ERROR CODE TO MESSAGE TRANSLATION TABLE
|
||||
*
|
||||
errorMessages
|
||||
ec00 da em00
|
||||
ec01 da em01
|
||||
ec02 da $0000
|
||||
ec03 da em03 ; Bug in AppleWin < 1.26.3.0
|
||||
ec04 da em04
|
||||
ec05 da $0000
|
||||
ec06 da $0000
|
||||
ec07 da $0000
|
||||
ec08 da $0000
|
||||
ec09 da $0000
|
||||
ec0a da $0000
|
||||
ec0b da $0000
|
||||
ec0c da $0000
|
||||
ec0d da $0000
|
||||
ec0e da $0000
|
||||
ec0f da $0000
|
||||
ec10 da $0000
|
||||
ec11 da $0000
|
||||
ec12 da $0000
|
||||
ec13 da $0000
|
||||
ec14 da $0000
|
||||
ec15 da $0000
|
||||
ec16 da $0000
|
||||
ec17 da $0000
|
||||
ec18 da $0000
|
||||
ec19 da $0000
|
||||
ec1a da $0000
|
||||
ec1b da $0000
|
||||
ec1c da $0000
|
||||
ec1d da $0000
|
||||
ec1e da $0000
|
||||
ec1f da $0000
|
||||
ec20 da $0000
|
||||
ec21 da $0000
|
||||
ec22 da $0000
|
||||
ec23 da $0000
|
||||
ec24 da $0000
|
||||
ec25 da $0000
|
||||
ec26 da $0000
|
||||
ec27 DA em27
|
||||
ec28 DA em28
|
||||
ec29 da $0000
|
||||
ec2a da $0000
|
||||
ec2b da $0000
|
||||
ec2c da $0000
|
||||
ec2d da $0000
|
||||
ec2e DA em2e
|
||||
ec2f da $0000
|
||||
ec30 da $0000
|
||||
ec31 da $0000
|
||||
ec32 da $0000
|
||||
ec33 da $0000
|
||||
ec34 da $0000
|
||||
ec35 da $0000
|
||||
ec36 da $0000
|
||||
ec37 da $0000
|
||||
ec38 da $0000
|
||||
ec39 da $0000
|
||||
ec3a da $0000
|
||||
ec3b da $0000
|
||||
ec3c da $0000
|
||||
ec3d da $0000
|
||||
ec3e da $0000
|
||||
ec3f da $0000
|
||||
ec40 da em40
|
||||
ec42 da em42
|
||||
ec43 da $0000
|
||||
ec44 da em44
|
||||
ec45 da em45
|
||||
ec46 da em46
|
||||
ec47 da em47
|
||||
ec48 da em48
|
||||
ec49 da em49
|
||||
ec4a da em4a
|
||||
ec4b da em4b
|
||||
ec4c da em4c
|
||||
ec4d da em4d
|
||||
ec4e da em4e
|
||||
ec4f da $0000
|
||||
ec50 da em50
|
||||
ec51 da em51
|
||||
ec52 da em52
|
||||
ec53 da $0000
|
||||
ec54 da $0000
|
||||
ec55 da em55
|
||||
ec56 da em56
|
||||
ec57 da em57
|
||||
ec58 da $0000
|
||||
ec59 da $0000
|
||||
ec5a da em5a
|
||||
*
|
||||
* Consume all bytes up to next page boundary
|
||||
*
|
||||
filler ds \,$00
|
||||
*
|
||||
* Must start on page boundary
|
||||
*
|
||||
inBuf ds 1024
|
||||
|
||||
BIN
prodos-2.0.3-boot.dsk
Normal file
BIN
prodos-2.0.3-boot.dsk
Normal file
Binary file not shown.
Loading…
Reference in New Issue
Block a user