projects
/
YACASL2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
ad8c17fd6bb0d1d982eccd86ff4a018e48e56499
[YACASL2.git]
/
test
/
system
/
casl2
/
lib_outb_w
/
outb_w0.casl
1
;;; casl2 outb_call.casl outb.casl
2
MAIN START
3
LAD GR2,0
4
LOOP LD GR1,VAL,GR2
5
CALL OUTB
6
LAD GR2,1,GR2
7
CPA GR2,CNT
8
JZE FIN
9
JUMP LOOP
10
FIN RET
11
VAL DC #0001,#8000
12
CNT DC 2
13
END