LOAD OUT-07.ASM

BLOAD OUT-07.ASM,A$1800


!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-07  HAWAII
   5 ;
   6        NLS 
   7        JMP OUT
   8        JMP ZZZ
   9 ;
  10 BUFZZ  HEX FF
  11 CCNT   HEX 00
  12 CHAR   HEX 00
  13 SHY    HEX 00
  14 LOPFIN HEX 00
  15 ;
  16 CARWID EQU $1ED4
  17 FORMF  EQU $1ED5
  18 PRT/VC EQU $1E86
  19 LCNT   EQU $7208
  20 ;
  21 ;
  22 PRMON  ORA #$80
  23        JMP (PRT/VC)
  24 ;
  25 ;
  26 ;
  27 OUT    AND #$7F
  28        STA CHAR
  29        TYA 
  30        PHA 
  31        TXA 
  32        PHA 
  33        JSR DOIT
  34        PLA 
  35        TAX 
  36        PLA 
  37        TAY 
  38 ZZZ    RTS 
  39 ;
  40 ;
  41 DOIT   LDA BUFZZ
  42        CMP #$FF
  43        BNE DOITX
  44        JSR LINX
  45 DOITX  LDA CHAR
  46        CMP #$0D
  47        BEQ CR
  48        CMP #$0C
  49        BEQ FF
  50        CMP #$20
  51        BCC NIX
  52        SEC 
  53        SBC #$20
  54        CMP #$40
  55        BCC UC
  56        SBC #$20
  57 UC     LDX CCNT
  58        STA BUF,X
  59        INC CCNT
  60 NIX    RTS 
  61 ;
  62 ;
  63 CR     LDY #$00
  64 CRLOOP STY SHY
  65        CLC 
  66        LDA CARWID
  67        SBC SHY
  68        TAX 
  69        LDA BUF,X
  70        ASL 
  71        TAX 
  72        LDA TABLE+1,X
  73        JSR PRMON
  74        LDA TABLE,X
  75        JSR PRMON
  76        LDA #$20
  77        JSR PRMON
  78        INY 
  79        CPY CARWID
  80        BCC CRLOOP
  81 ;
  82 ;
  83 DOCR   JSR LINX
  84        LDA #$0D
  85        JMP PRMON
  86 ;
  87 ;
  88 LINX   LDY #$00
  89        LDA #$00
  90        STA CCNT
  91 LX1    STA BUF,Y
  92        DEY 
  93        BNE LX1
  94        STA BUFZZ
  95        RTS 
  96 ;
  97 FF     JSR CR
  98        LDA FORMF
  99        CMP LCNT
 100        BCC ZIP
 101        BEQ ZIP
 102        INC LCNT
 103 FF0    LDA FORMF
 104        CMP LCNT
 105        BEQ ZIP
 106 LOOP   LDA #$0D
 107        JSR PRMON
 108        INC LCNT
 109        JMP FF0
 110 ZIP    LDA #$0D
 111        JSR PRMON
 112        JSR PRMON
 113        JMP PRMON
 114 ;
 115 ;
 116 ;
 117 ;
 118 TABLE  ASC '  IU !:NJU,UNU: '
 119        ASC 'NIIN,::U ::: U:,'
 120        ASC ':I! I !!!I!:I!II'
 121        ASC 'I::!,I IJ:NN:J,N'
 122        ASC ' ,, J ,,,J,!J,JJ'
 123        ASC 'J!!,!JU N U,UJU!'
 124        ASC 'N,NJN!I,IJU:N:!N'
 125        ASC 'UUUNUI!UJIJN J N'
 126 ;
 127 XX     HEX 00
 128 BUF    HEX 00
 129        END 
!