completed screen.asm
This commit is contained in:
parent
0dace8660c
commit
d7ab158796
1 changed files with 38 additions and 0 deletions
38
ass1/sreen.asm
Normal file
38
ass1/sreen.asm
Normal file
|
|
@ -0,0 +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
|
||||
|
||||
END scr
|
||||
Loading…
Add table
Add a link
Reference in a new issue