LDC  (1000), Text
  CALL PrintText
  LDC  (1000), Text
  CALL PrintText
  CALL PrintInc
  CALL PrintInc
  HALT


PrintInc:
  LDC  (1000), 65
  LDC  (1001), 30
Label:
  OUT  (0), (1000)
  INC  (1000)
  DEC  (1001)
  JPNZ (1001), Label
  RET

PrintText:
  LDM  (1001), ((1000))
  JPZ  (1001), Label2
  OUT  (0), (1001)
  INC  (1000)
  JP   PrintText
Label2:
  RET

Text:
  DB 'Text ', 0