
 1000  *---------------------------------
 1010  *      DEMONSTRATE USE OF .US DIRECTIVE
 1020  *---------------------------------
 1030  MON.COUT   .EQ $FDED
 1040  MON.CROUT  .EQ $FD8E
 1050  *---------------------------------
 1060  DEMO.US
 1070         LDA #10      DO 10 LINES
 1080         STA LINE.COUNT
 1090  .3     LDY #0
 1100  .1     LDA TEXT,Y   GET CHAR FROM TEXT STRING
 1110         BMI .2
 1120         ORA #$80     MAKE NORMAL VIDEO
 1130         JSR MON.COUT
 1140         INY          NEXT CHARACTER
 1150         BNE .1       ...ALWAYS
 1160  *---------------------------------
 1170  .2     JSR MON.COUT
 1180         JSR MON.CROUT
 1190         DEC LINE.COUNT
 1200         BNE .3
 1210         RTS
 1220  *---------------------------------
 1230  TEXT   .US /THIS IS MY MESSAGE/
 1240  LINE.COUNT .BS 1
 1250  *---------------------------------

