mirror of
https://github.com/gungwald/delhndlr.git
synced 2024-09-27 10:58:40 +00:00
Naming improvements
This commit is contained in:
parent
ce69785917
commit
8198d5adab
4
.gitignore
vendored
4
.gitignore
vendored
@ -1,4 +1,4 @@
|
|||||||
*.swp
|
*.swp
|
||||||
fix.delete.key
|
delkeyeraseleft
|
||||||
fix.delete.key.dsk
|
delkeyeraseleft.dsk
|
||||||
_FileInformation.txt
|
_FileInformation.txt
|
||||||
|
4
Makefile
4
Makefile
@ -3,8 +3,8 @@
|
|||||||
#
|
#
|
||||||
|
|
||||||
AC=java -jar AppleCommander-1.3.5-ac.jar
|
AC=java -jar AppleCommander-1.3.5-ac.jar
|
||||||
SRC=fix.delete.key.s
|
SRC=delkeyeraseleft.s
|
||||||
PGM=fix.delete.key
|
PGM=delkeyeraseleft
|
||||||
VOL=$(PGM)
|
VOL=$(PGM)
|
||||||
DSK=$(PGM).dsk
|
DSK=$(PGM).dsk
|
||||||
|
|
||||||
|
3
TODO
3
TODO
@ -4,3 +4,6 @@
|
|||||||
4. Don't change cursor. Keep whatever cursor exists at load time.
|
4. Don't change cursor. Keep whatever cursor exists at load time.
|
||||||
5. Create program to detect if the handler is loaded: delkey.detect?.
|
5. Create program to detect if the handler is loaded: delkey.detect?.
|
||||||
6. Add program to print explanation and instructions.
|
6. Add program to print explanation and instructions.
|
||||||
|
7. Change subroutines to macros
|
||||||
|
8. Implement a better test for 80-column mode, possibly check cursor; if is delete char then 40-column mode
|
||||||
|
9. Add build and run instructions, explanation
|
||||||
|
@ -9,7 +9,7 @@
|
|||||||
|
|
||||||
ORG $300
|
ORG $300
|
||||||
TYP $06 ;BINARY TYPE
|
TYP $06 ;BINARY TYPE
|
||||||
DSK fix.delete.key ;PUT FILE NAME
|
DSK delkeyeraseleft ;PUT FILE NAME
|
||||||
|
|
||||||
CH EQU $24 ;HORIZ CHAR POS (40-COL)
|
CH EQU $24 ;HORIZ CHAR POS (40-COL)
|
||||||
BASL EQU $28 ;BASE ADDR FOR CURR VIDEO LINE
|
BASL EQU $28 ;BASE ADDR FOR CURR VIDEO LINE
|
||||||
@ -84,7 +84,7 @@ PUTS MAC
|
|||||||
|
|
||||||
********************************
|
********************************
|
||||||
* *
|
* *
|
||||||
* PUT80 MACRO *
|
* PUTC80 MACRO *
|
||||||
* *
|
* *
|
||||||
* IN 80-COL MODE EVEN COLUMNS *
|
* IN 80-COL MODE EVEN COLUMNS *
|
||||||
* ARE IN AUXILIARY MEMORY *
|
* ARE IN AUXILIARY MEMORY *
|
||||||
@ -96,7 +96,7 @@ PUTS MAC
|
|||||||
* *
|
* *
|
||||||
********************************
|
********************************
|
||||||
|
|
||||||
PUT80 MAC
|
PUTC80 MAC
|
||||||
TYA ;MOVE Y TO A
|
TYA ;MOVE Y TO A
|
||||||
PHA ;SAVE Y VALUE ON STACK
|
PHA ;SAVE Y VALUE ON STACK
|
||||||
SEI ;DISABLE INTERRUPTS
|
SEI ;DISABLE INTERRUPTS
|
||||||
@ -163,7 +163,7 @@ COL40
|
|||||||
JMP FINISH
|
JMP FINISH
|
||||||
|
|
||||||
COL80
|
COL80
|
||||||
PUT80 #' ';OURCH ;DISPLAY OUR CURSOR, INVERSE SPC
|
PUTC80 #' ';OURCH ;DISPLAY OUR CURSOR, INVERSE SPC
|
||||||
|
|
||||||
NEXTKEY
|
NEXTKEY
|
||||||
JSR GETKEY ;LOAD "KEY" VARIABLE
|
JSR GETKEY ;LOAD "KEY" VARIABLE
|
||||||
@ -178,7 +178,7 @@ NEXTKEY
|
|||||||
STA KEY
|
STA KEY
|
||||||
|
|
||||||
CLRCURS
|
CLRCURS
|
||||||
PUT80 #" ";OURCH ;ERASE CURSOR
|
PUTC80 #" ";OURCH ;ERASE CURSOR
|
||||||
|
|
||||||
FINISH
|
FINISH
|
||||||
PLA ;RESTORE Y
|
PLA ;RESTORE Y
|
||||||
@ -222,7 +222,7 @@ D2BDONE
|
|||||||
* *
|
* *
|
||||||
********************************
|
********************************
|
||||||
|
|
||||||
LOADMSG ASC "LOADED DELETE HANDLER",0D,00
|
LOADMSG ASC "LOADED DELETE KEY HANDLER",0D,00
|
||||||
KEY DB 0
|
KEY DB 0
|
||||||
ORIGCURS DB 0
|
ORIGCURS DB 0
|
||||||
|
|
Loading…
Reference in New Issue
Block a user