Apple-2-SW/prodos-more
1
0
Fork 0
mirror of https://github.com/gungwald/prodos-more.git synced 2024-06-10 20:29:29 +00:00
Code Issues Projects Releases Wiki Activity

More S-C updates

Browse Source
This commit is contained in:
Bill Chatfield 2024-02-01 22:45:55 -05:00
parent 1e6fd72e1e
commit 0e5401934f
1 changed files with 34 additions and 32 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
more.S
View File

@ -275,20 +275,20 @@ WRITEBUF
LDY #0 ;INIT CHAR COUNTER VARIABLE LDY #0 ;INIT CHAR COUNTER VARIABLE
.1 CPY READCNT ;COMPARE TO MAX CHARS .1 CPY READCNT ;COMPARE TO MAX CHARS
BEQ .3 BEQ .3
LDA (ZP_A1L),Y ;GET CHAR FROM BUFFER LDA (ZP.A1L),Y ;GET CHAR FROM BUFFER
ORA #%10000000 ;TURN ON HIGH BIT FOR PRINTING ORA #%10000000 ;TURN ON HIGH BIT FOR PRINTING
JSR COUT ;COUT PRESERVES ACCUM JSR COUT ;COUT PRESERVES ACCUM
* *
* CHECK END OF LINE * CHECK END OF LINE
* *
CMP #CR_HIBIT ;COMPARE TO CARRIAGE RETURN CMP #CR.HIBIT ;COMPARE TO CARRIAGE RETURN
BNE .2 ;IF NOT END OF LINE, NEXT CHAR BNE .2 ;IF NOT END OF LINE, NEXT CHAR
INC LINENUM ;NEXT LINE HAS BEEN REACHED INC LINENUM ;NEXT LINE HAS BEEN REACHED
* *
* CHECK AT END OF PAGE * CHECK AT END OF PAGE
* *
LDA LINENUM LDA LINENUM
CMP #SCR_HGHT ;AT BOTTOM OF SCREEN? CMP #SCR.HGHT ;AT BOTTOM OF SCREEN?
BNE .2 ;NO? THEN NEXT CHAR BNE .2 ;NO? THEN NEXT CHAR
JSR STATBAR ;YES? THEN SHOW THE STATUS BAR JSR STATBAR ;YES? THEN SHOW THE STATUS BAR
LDA #1 ;SETUP FOR NEXT LINE LDA #1 ;SETUP FOR NEXT LINE
@ -339,7 +339,7 @@ STATBAR
BNE .2 ;IF NOT FORWARD TO NEXT CHECK BNE .2 ;IF NOT FORWARD TO NEXT CHECK
>SET1 LINENUM ;ADVANCE ONE PAGE, STORE 1 >SET1 LINENUM ;ADVANCE ONE PAGE, STORE 1
JMP .4 ;PROCESSED SPACE SO DONE JMP .4 ;PROCESSED SPACE SO DONE
.2 CMP #CR_HIBIT ;CHECK FOR CARRIAGE RETURN .2 CMP #CR.HIBIT ;CHECK FOR CARRIAGE RETURN
BNE .3 BNE .3
>SET23 LINENUM >SET23 LINENUM
JMP .4 JMP .4
@ -402,21 +402,23 @@ ERRPROC STA ERRCODE
* * * *
******************************** ********************************
PROMPT STR "FILE:" PROMPT .DA #5 ;LENGTH BYTE
ERRTXT STR "ERROR:" .AS "FILE:"
FILENAME DS $FF
HERE STR "HERE" ERRTXT .DA #6 ;LENGTH BYTE
HERE2 STR "HERE2" .AS "ERROR:"
READRET STR "READRET="
SREADCNT STR "READCNT=" BAR .DA #42
ERRCODE DS 1 .AS '[RET] NEXT LINE / [SPC] NEXT PAGE / [Q]UIT'
READERR DS 1
CLOSERR DS 1 FILENAME .BS $FF
LINENUM DS 1 ERRCODE .BS 1
BAR STR '[RET] NEXT LINE / [SPC] NEXT PAGE / [Q]UIT' READERR .BS 1
USRQUIT DS 1 CLOSERR .BS 1
BUFCHAR DS 1 LINENUM .BS 1
USRCHAR DS 1 USRQUIT .BS 1
BUFCHAR .BS 1
USRCHAR .BS 1
ENVIEW STR 'ENTERING VIEWFILE' ENVIEW STR 'ENTERING VIEWFILE'
EXVIEW STR 'EXITING VIEWFILE' EXVIEW STR 'EXITING VIEWFILE'
@ -427,28 +429,28 @@ EXERASEB STR 'EXITING ERASEBAR'
* *
* OPEN PARAMETERS * OPEN PARAMETERS
* *
OPENPRMS DB 3 OPENPRMS .DA #3
DA FILENAME .DA FILENAME
OBUFADDR DS 2 OBUFADDR .BS 2
OPENFNUM DS 1 OPENFNUM .BS 1
* *
* READ PARAMETERS * READ PARAMETERS
* *
READPRMS DB 4 READPRMS .DA #4
READFNUM DS 1 READFNUM .BS 1
RBADDR DS 2 RBADDR .BS 2
REQCNT DW BUFSIZE REQCNT .DA BUFSIZE
READCNT DS 2 READCNT .BS 2
* *
* CLOSE PARAMETERS * CLOSE PARAMETERS
* *
CLOSPRMS DB 1 CLOSPRMS .DA #1
CLOSFNUM DS 1 CLOSFNUM .BS 1
* *
* BUFFERS * BUFFERS
* *
* CONSUME ALL BYTES UP TO THE NEXT PAGE BOUNDRY * CONSUME ALL BYTES UP TO THE NEXT PAGE BOUNDRY
*FILLER DS \,$00 *FILLER DS \,$00
* MUST START ON PAGE BOUNDRY * MUST START ON PAGE BOUNDRY
*OPENBUF DS 1024 *OPENBUF .BS 1024
*READBUF DS BUFSIZE *READBUF .BS BUFSIZE