DEVICE  ZXSPECTRUMNEXT
                ORG     0x8000
StackEnd:
                ds      128
StackStart:

StartAddress:
              call setsysvars           ; needed for using a NEX with Cspect with no NextZXOS loaded
              call 3503                 ; clear screen
          call SetChans
              ld hl,Message
              call PrintString
              jr  $   ; loop here

SetChans:
              ld a,2
              call 0x1601
              ret

PrintString:  ld a,(hl)
              cp 255
              ret z
              inc hl
              rst 16
              jr PrintString

setsysvars:
              ld hl,sysvars
              ld de,23552
              ld bc,256
              ldir
              ld iy,$5c3a                                        ; require for rom some calls
              ld a,0 : ld (23606),a : ld a,60 : ld (23607),a     ; sets font correctly
              ret
sysvars:
  ; copy of sysvars
  DB $FF, $00, $00, $00, $FF, $00, $23, $0D, $0D, $23, $02, $00, $00, $00
  DB $16, $00, $01, $00, $06, $00, $0B, $00, $01, $00, $01, $00, $06, $00
  DB $10, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00
  DB $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $00, $D5, $80
  DB $40, $00, $FF, $9C, $00, $FC, $5F, $00, $00, $00, $01, $00, $FF, $1E
  DB $00, $01, $0F, $00, $00, $F7, $5C, $00, $00, $B6, $5C, $BB, $5C, $CB
  DB $5C, $F7, $5C, $CA, $5C, $F8, $5C, $FC, $5C, $F6, $5C, $30, $5D, $FD
  DB $5C, $FD, $5C, $FD, $5C, $02, $92, $5C, $00, $02, $00, $00, $00, $00
  DB $00, $00, $00, $00, $69, $17, $00, $00, $75, $00, $00, $58, $FF, $00
  DB $00, $00, $00, $00, $21, $17, $54, $40, $E0, $50, $0D, $16, $21, $17
  DB $01, $38, $56, $38, $56, $00, $00, $00, $00, $00, $00, $00, $00, $00
  DB $00, $00, $00, $00, $00, $00, $00, $02, $03, $00, $00, $00, $00, $00
  DB $00, $00, $02, $02, $02, $00, $00, $00, $00, $00, $FF, $5F, $FF, $FF
  DB $F4, $09, $A8, $10, $4B, $F4, $09, $C4, $15, $53, $81, $0F, $C4, $15
  DB $52, $34, $5B, $2F, $5B, $50, $80, $00, $0A, $0D, $00, $FD, $32, $34
  DB $35, $37, $35, $0E, $00, $00, $FF, $5F, $00, $0D, $00, $14, $05, $00
  DB $EF, $22, $22, $AF, $0D, $00, $1E, $0E, $00, $F9, $C0, $32, $34, $35
  DB $37, $36, $0E, $00, $00, $00, $60, $00, $0D, $80, $EF, $22, $22, $0D
  DB $80, $00, $33, $80

Message: db 'Wahoo Ive printed to Screen from Assembley Language! Hello World eat your heart out!',255