+++ /dev/null
-;;; casl2 outb_call.casl outb.casl
-MAIN START
- LAD GR2,0
-LOOP LD GR1,VAL,GR2
- CALL OUTB
- LAD GR2,1,GR2
- CPA GR2,CNT
- JZE FIN
- JUMP LOOP
-FIN RET
-VAL DC 0
- DC #0001,#0002,#0004,#0008
- DC #0010,#0020,#0040,#0080
- DC #0100,#0200,#0400,#0800
- DC #1000,#2000,#4000,#7FFF
- DC #8000
- DC #8001,#C000,#E000,#F000
- DC #F800,#FC00,#FE00,#FF00
- DC #FF80,#FFC0,#FFE0,#FFF0
- DC #FFF8,#FFFC,#FFFE,#FFFF
-CNT DC 34
- END