Apple-2-SW/Applecorn
1
0
Fork 0
mirror of https://github.com/bobbimanners/Applecorn.git synced 2025-08-15 08:27:29 +00:00
Code Issues Projects Releases Wiki Activity

Re-added *BUILD, which I accidentally lost.

Browse Source
This commit is contained in:
Bobbi Webber-Manners
2022-11-05 17:36:09 -04:00
parent ba5808d141
commit c6352c6aed
4 changed files with 90 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
applecorn.po
View File

Binary file not shown.

2
auxmem.init.s
View File

@@ -213,7 +213,7 @@ BYTE00 BEQ BYTE00A ; OSBYTE 0,0 - generate error
RTS ; %000x1xxx host type, 'A'pple RTS ; %000x1xxx host type, 'A'pple
BYTE00A BRK BYTE00A BRK
DB $F7 DB $F7
HELLO ASC 'Applecorn MOS 2022-11-04' HELLO ASC 'Applecorn MOS 2022-11-05'
DB $00 ; Unify MOS messages DB $00 ; Unify MOS messages
* TO DO: Move into RAM * TO DO: Move into RAM
GSSPEED DB $00 ; $80 if GS is fast, $00 for slow GSSPEED DB $00 ; $80 if GS is fast, $00 for slow

88
auxmem.oscli.s
View File

@@ -29,6 +29,9 @@ CMDTABLE
CMDFILE ASC 'CAT' ; Must be first command so matches '*.' CMDFILE ASC 'CAT' ; Must be first command so matches '*.'
DB $85 DB $85
DW STARFSC-1 ; CAT -> FSC 5, XY=>params DW STARFSC-1 ; CAT -> FSC 5, XY=>params
ASC 'BUILD'
DB $81 ; TO DO
DW CMDBUILD-1 ; BUILD -> XY=>params
ASC 'CDIR' ASC 'CDIR'
DB $88 DB $88
DW STARFILE-1 ; CDIR -> OSFILE 08, CBLK=>filename DW STARFILE-1 ; CDIR -> OSFILE 08, CBLK=>filename
@@ -738,6 +741,91 @@ OPENAFILE JSR OSFIND ; Try to open file
EXECNOTFND JMP ERRNOTFND ; File not found EXECNOTFND JMP ERRNOTFND ; File not found
* *BUILD (<afsp>)
* ---------------
* XY=>parameters string
*
CMDBUILD LDA #$80 ; A=OPENOUT, for writing
JSR OPENAFILE ; Try to open file
STA :FILENUM ; Stash file number
JSR LNCTRRESET ; Reset line counter
:RDLINE JSR LNCTRINCR ; Increment line counter
JSR LNCTRPRT ; Print line counter
LDA #<:LINEBUF ; Pointer to line buffer
STA OSTEXT+0
LDA #>:LINEBUF
STA OSTEXT+1
LDA #80 ; Maximum line length
STA MAXLEN
LDA #32 ; Minimum allowable char
STA MINCHAR
LDA #126 ; Maximum allowable char
STA MAXCHAR
LDA #$00 ; OSWORD &00 input line from console
LDX #<OSTEXT ; XY -> control block
LDY #>OSTEXT
JSR OSWORD ; Read line from console
PHP
LDA #$0D ; Carriage return
STA :LINEBUF,Y ; Force carriage return
INY ; Include the carriage return
STY :LINELEN ; Number of chars read
LDX #$00
:L1 CPX :LINELEN
BEQ :S1
LDA :LINEBUF,X
LDY :FILENUM ; Recover file number
JSR OSBPUT ; Write char to file
INX
BRA :L1
:S1 PLP
BCS :CLOSE ; Escape pressed
BRA :RDLINE
:CLOSE JSR OSNEWL
LDA #$00 ; A=CLOSE
LDY :FILENUM ; Recover file number
JSR OSFIND ; Close build file
STZ ESCFLAG
RTS
:LINEBUF DS 81 ; 80 char line plus CR
:LINELEN DB $00 ; Line length excluding CR
:FILENUM DB $00 ; File handle
* Reset line counter
* Helper function used for *BUILD and *LIST line counter
LNCTRRESET STZ LINENUM+0 ; Zero line counter
STZ LINENUM+1
STZ TEMP32+0 ; Zero buffer used by PRINTDEC
STZ TEMP32+1
STZ TEMP32+2
STZ TEMP32+3
RTS
* Increment line counter
* Helper function used for *BUILD and *LIST line counter
LNCTRINCR INC LINENUM+0 ; Increment line counter
BNE :DONE
INC LINENUM+1
:DONE RTS
* Print line counter
* Helper function used for *BUILD and *LIST line counter
LNCTRPRT LDA LINENUM+0 ; Print line number
STA TEMP32+0
LDA LINENUM+1
STA TEMP32+1
LDX #TEMP32
LDY #$04 ; Pad to length 4
JSR PRINTDEC
LDA #' ' ; Print space
JSR OSWRCH
RTS
LINENUM DW $00 ; Line number
* ZIP SPEED COMMANDS * ZIP SPEED COMMANDS
* ================== * ==================

2
mame_applecorn
View File

@@ -1,2 +1,2 @@
#mame -w apple2ee -debug -sl5 mouse -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po #mame -w apple2ee -debug -sl5 mouse -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po
mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/JGHMusic1.po mame -w apple2gs -debug -sl7 cffa2 -harddisk1 ~/Personal/Development/Applecorn/applecorn.po -harddisk2 tests/Shawty1.po