projects
/
h316.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Some small changes in configuration_manager output - added (c/f) info.
[h316.git]
/
programs
/
tools
/
src
/
cleanup.asm
1
* CLEANUP
2
*
3
* CLEANS UP CORE LOCATIONS '00020-'30777.
4
*
5
ORG '31000
6
STRT LDA ='20 START ADDRESS
7
STA PTR
8
LOOP CRA
9
STA* PTR
10
IRS PTR
11
JMP GO1 NO OVERFLOW
12
HLT OVERFLOW OCCURED
13
GO1 LDA PTR
14
SUB ='31000
15
SZE SKIP IF READY
16
JMP LOOP RESTART
17
RDY OCP '104 ASR START
18
JST CRLF
19
JST OK
20
HLT
21
JMP STRT RESTART :-)
22
*******
23
OK DAC **
24
LDA ='117 CHARACTER O
25
JST PRNT
26
LDA ='113 NOW K
27
JST PRNT
28
JMP* OK
29
*******
30
CRLF DAC **
31
LDA =13 LOAD CR
32
JST PRNT
33
LDA =10 LOAD LF
34
JST PRNT
35
JMP* CRLF
36
******
37
PRNT DAC **
38
SKS 4 WAIT FOR ASR33
39
JMP *-1 TO BECOME READY
40
OTA 4 OUTPUT CHAR
41
NOP SECURITY
42
JMP* PRNT BACK
43
*****
44
PTR DEC 0 THE POSITION
45
*****
46
END