LOAD OUT-01.ASM

BLOAD OUT-01.ASM,A$1800


!L
   1        NLS 
   2        ORG $1B00
   3        OBJ $800
   4 ;
   5 ;--->> OUT-01 DIPNER
   6 ;
   7        NLS 
   8        JMP OUT
   9        JMP LINX
  10 ;
  11 ;
  12 PRT/VC EQU $1E86
  13 CARWID EQU $1ED4
  14 DIRFLG EQU $1ED9
  15 PCHAR  EQU $1EDA
  16 PRMON  ORA #$80
  17        JMP (PRT/VC)
  18 ;
  19 ;
  20 PRX    CMP #$20
  21        BEQ PRMON
  22        LDA PCHAR
  23        BNE PRMON
  24 OUT    AND #$7F
  25        STA CHAR
  26        TYA 
  27        PHA 
  28        TXA 
  29        PHA 
  30        JSR DOIT
  31        PLA 
  32        TAX 
  33        PLA 
  34        TAY 
  35        RTS 
  36 ESCAP  LDX #$80
  37        STX ESCMD
  38 RLPRT  CMP #$0D
  39        BEQ STOP
  40        JMP PRMON
  41 STOP   LDX #$00
  42        STX ESCMD
  43        JMP PRMON
  44 DOIT   LDA CHAR
  45        LDX ESCMD
  46        BNE RLPRT
  47        CMP #$0D
  48        BEQ CR
  49        CMP #$0C
  50        BEQ FF
  51        CMP #$1B
  52        BEQ ESCAP
  53        CMP #$20
  54        BCC NIX
  55        SEC 
  56        SBC #$20
  57        CMP #$40
  58        BCC UC
  59        SBC #$20
  60 UC     LDX CCNT
  61        STA BUF,X
  62        INC CCNT
  63 NIX    RTS 
  64 CHAR   HEX 00
  65 CCNT   HEX 00
  66 ESCMD  HEX 00
  67 ROW    HEX 00
  68 SHY    HEX 00
  69 LOPFIN HEX 00
  70 FF     JSR CR
  71        LDA #$0C
  72        JSR PRMON
  73        JSR LINX
  74        JMP L650
  75 CR     JSR LINCK
  76        LDA #$00
  77        STA ROW
  78        JSR PROW
  79        LDA #$40
  80        STA ROW
  81        JSR PROW
  82        LDA #$80
  83        STA ROW
  84        JSR PROW
  85        JSR LINX
  86        LDA DIRFLG
  87        BEQ RT
  88        JSR L650
  89        JSR L650
  90 RT     JSR L650
  91        RTS 
  92 ;
  93 PROW   LDY #$00
  94 PROW1  CPY LOPFIN
  95        BEQ PROW2
  96        TYA 
  97        STY SHY
  98        LDX DIRFLG
  99        BNE PROW3
 100        SEC 
 101        LDA CARWID
 102        SBC SHY
 103        TAX 
 104        DEX 
 105        TXA 
 106 PROW3  TAX 
 107        LDA BUF,X
 108        CLC 
 109        ADC ROW
 110        TAX 
 111        LDA DIRFLG
 112        BEQ PROWBK
 113        LDA TB1,X
 114        JSR PRX
 115        LDA TB2,X
 116        JSR PRX
 117        JMP PROW4
 118 PROWBK LDA TB2,X
 119        JSR PRX
 120        LDA TB1,X
 121        JSR PRX
 122 PROW4  LDA #$20
 123        JSR PRX
 124        INY 
 125        BNE PROW1
 126 PROW2  JSR L650
 127        RTS 
 128 ;
 129 ;
 130 L650   LDA #$0D
 131        JMP PRMON
 132 LINX   LDY #$3F
 133        LDA #$00
 134        STA CCNT
 135 LX1    STA BUF,Y
 136        DEY 
 137        BNE LX1
 138        RTS 
 139 LINCK  LDY CARWID
 140 LC1    LDA BUF,Y
 141        BNE LC2
 142        DEY 
 143        BNE LC1
 144        DEY 
 145 LC2    INY 
 146        STY LOPFIN
 147        LDA DIRFLG
 148        BNE LC3
 149        LDA LOPFIN
 150        BEQ LC3
 151        LDA CARWID
 152        STA LOPFIN
 153 LC3    RTS 
 154 ;
 155 ;
 156 TB1    ASC '    ... . .               . .. . ........  ........  .. ... ..  '
 157 TB3    ASC ' .  . . ..       ........   ..    .   ..... .   ..... ..   ...  '
 158 TB5    ASC ' . .  .... . . .. .   ....   ..            ............ ...     '
 159 TB2    ASC ' . ....  . .  ..             ....  .. .. ..  .. .. ..  ... . ...'
 160 TB4    ASC '  ..    ..      .  .. .. ... ...    .. .. .   .. .. .  . .. ....'
 161 TB6    ASC ' . .... ....... .   .. .. .... .                     ......... .'
 162 BUF    DFS $40
 163 XX     HEX 00
 164        END 
!