working on sicxe
This commit is contained in:
parent
1b990e190c
commit
d836b3955d
79 changed files with 2011 additions and 917 deletions
|
|
@ -1,38 +1,38 @@
|
|||
scr START 0
|
||||
LDCH txt
|
||||
+STCH screen
|
||||
LDX #3
|
||||
+STCH screen, X
|
||||
|
||||
JSUB scrcfill
|
||||
|
||||
JSUB scrclear
|
||||
|
||||
halt J halt
|
||||
|
||||
scrclear LDCH #0
|
||||
LDS #scrlen
|
||||
LDX #0
|
||||
loop +STCH screen, X
|
||||
TIXR S
|
||||
JLT loop
|
||||
|
||||
RSUB
|
||||
|
||||
|
||||
scrcfill
|
||||
LDS #scrlen
|
||||
LDX #0
|
||||
loop2 +STCH screen, X
|
||||
TIXR S
|
||||
JLT loop2
|
||||
|
||||
RSUB
|
||||
|
||||
txt BYTE C'hi'
|
||||
screen EQU 0x0B800
|
||||
scrcols EQU 80
|
||||
scrrows EQU 25
|
||||
scrlen EQU 2000
|
||||
|
||||
scr START 0
|
||||
LDCH txt
|
||||
+STCH screen
|
||||
LDX #3
|
||||
+STCH screen, X
|
||||
|
||||
JSUB scrcfill
|
||||
|
||||
JSUB scrclear
|
||||
|
||||
halt J halt
|
||||
|
||||
scrclear LDCH #0
|
||||
LDS #scrlen
|
||||
LDX #0
|
||||
loop +STCH screen, X
|
||||
TIXR S
|
||||
JLT loop
|
||||
|
||||
RSUB
|
||||
|
||||
|
||||
scrcfill
|
||||
LDS #scrlen
|
||||
LDX #0
|
||||
loop2 +STCH screen, X
|
||||
TIXR S
|
||||
JLT loop2
|
||||
|
||||
RSUB
|
||||
|
||||
txt BYTE C'hi'
|
||||
screen EQU 0x0B800
|
||||
scrcols EQU 80
|
||||
scrrows EQU 25
|
||||
scrlen EQU 2000
|
||||
|
||||
END scr
|
||||
Loading…
Add table
Add a link
Reference in a new issue