LA  OAD OUT-0C.ASM

BAD CMD
!LOAD OUT-0C.ASM

BLOAD OUT-0C.ASM,A$1800


!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-0C PAPERLESS BRLR
   5 ;
   6        NLS 
   7 ;
   8 PRT/VC EQU $1E86
   9 SLOT   EQU $1E07
  10 Z1C    EPZ $1C
  11 ABOR\F EQU $1E4E
  12 ;
  13        JMP OUT
  14        JMP INIT
  15 ;
  16 COUNT  HEX 00
  17 CHAR   HEX 00
  18 PCHAR  HEX 00
  19 PPCHAR HEX 00
  20 PPFLG  HEX 00
  21 ;
  22 PRMON  LDX SLOT
  23        CPX #$03
  24        BNE PRX
  25        LDX COUNT
  26        STX $24
  27        STX $57B
  28        JSR PRX
  29        LDA $57B
  30        STA COUNT
  31        RTS 
  32 PRX    ORA #$80
  33        JMP (PRT/VC)
  34 ;
  35 ;
  36 OUT    AND #$7F
  37        STA CHAR
  38        TYA 
  39        PHA 
  40        TXA 
  41        PHA 
  42        JSR DOIT
  43        PLA 
  44        TAX 
  45        PLA 
  46        TAY 
  47        RTS 
  48 ;
  49 INIT   LDY #$00
  50        STA COUNT
  51        LDX SLOT
  52        CPX #$03
  53        BNE IN/LP
  54        LDA #$8D
  55        JSR PRMON
  56 IN/LP  LDA $7200,Y
  57        CMP '$
  58        BNE IN/MR
  59        LDA $7201,Y
  60        CMP '$
  61        BNE IN/MR
  62        LDA $7202,Y
  63        CMP 'd
  64        BNE IN/MR
  65        LDA #$F0
  66        STA $7200,Y
  67        RTS 
  68 IN/MR  INY 
  69        BNE IN/LP
  70        RTS 
  71 ;
  72 DOIT   LDA $C000
  73        CMP #$9B
  74        BNE NOESC
  75        STA ABOR\F
  76        LDY #$05
  77        LDA #$FF
  78 ESCLP  STA (Z1C),Y
  79        DEY 
  80        BPL ESCLP
  81        LDA $C010
  82 NOESC  LDA $C061
  83        BMI DOIT
  84        LDA CHAR
  85        CMP #$20
  86        BEQ SPACE
  87        CMP #$1F
  88        BEQ GONE
  89        CMP #$1E
  90        BEQ GONE
  91        CMP #$14
  92        BEQ CONT
  93        CMP #$13
  94        BNE DO/PRT
  95        LDA #$20
  96 DO/PRT JSR PRMON
  97 GONE   LDA PCHAR
  98        STA PPCHAR
  99        LDA CHAR
 100        STA PCHAR
 101        RTS 
 102 ;
 103 CONT   LDA PCHAR
 104        CMP '3
 105        BNE GONE
 106        LDA PPCHAR
 107        CMP #$22
 108        BNE GONE
 109        STA PPFLG
 110        JMP GONE
 111 SPACE  LDX PPFLG
 112        BEQ DO/PRT
 113        LDA '3
 114        JSR PRMON
 115        LDA '1
 116        JSR PRMON
 117        LDA #$20
 118        JSR PRMON
 119        LDX #$00
 120        STX PPFLG
 121        BEQ GONE
 122 ;
 123 XX     HEX 00
 124        END 
!