working on sicxe
This commit is contained in:
parent
1b990e190c
commit
d836b3955d
79 changed files with 2011 additions and 917 deletions
|
|
@ -1,17 +1,17 @@
|
|||
print START 0
|
||||
zacetek CLEAR X
|
||||
loop LDCH txt, X
|
||||
WD #0xAA
|
||||
TIX #len .#len, ker je len EQU in ne dejanska lokacija v spominu!!!!!
|
||||
JLT loop
|
||||
|
||||
halt J halt
|
||||
|
||||
.constants
|
||||
txt BYTE C'SIC/XE'
|
||||
BYTE 0
|
||||
txtend EQU *
|
||||
len EQU txtend-txt .definicija konstante EQU, ki ni shranjena v pomnilniku, zato ko jo želimo uporabiti
|
||||
.rabimo #len
|
||||
|
||||
print START 0
|
||||
zacetek CLEAR X
|
||||
loop LDCH txt, X
|
||||
WD #0xAA
|
||||
TIX #len .#len, ker je len EQU in ne dejanska lokacija v spominu!!!!!
|
||||
JLT loop
|
||||
|
||||
halt J halt
|
||||
|
||||
.constants
|
||||
txt BYTE C'SIC/XE'
|
||||
BYTE 0
|
||||
txtend EQU *
|
||||
len EQU txtend-txt .definicija konstante EQU, ki ni shranjena v pomnilniku, zato ko jo želimo uporabiti
|
||||
.rabimo #len
|
||||
|
||||
END zacetek
|
||||
Loading…
Add table
Add a link
Reference in a new issue