LOAD OUT-O2.ASM

BLOAD OUT-O2.ASM,A$1800

FILE NOT FOUND
    



!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-02 ETF-80
   5 ;
   6        NLS 
   7 ;
   8        JMP OUT
   9        JMP ZZZ
  10 PRT/VC EQU $1E86
  11 CARW   EQU $1ED4
  12 FORMF  EQU $1ED5
  13 DELAY  EQU $1ED9
  14 ;
  15 ;
  16 OUT    AND #$7F
  17        STA CHAR
  18        TYA 
  19        PHA 
  20        TXA 
  21        PHA 
  22        JSR DOIT
  23        LDA CHAR
  24        STA LAST
  25        PLA 
  26        TAX 
  27        PLA 
  28        TAY 
  29 ZZZ    RTS 
  30 ;
  31 ;
  32 DOIT   LDX CHAR
  33        CPX #$20
  34        BCC CONTR
  35        CPX LAST
  36        BNE SKIP
  37        JSR LONG
  38        JSR LONG
  39 SKIP   LDA CHAR
  40        SEC 
  41        SBC #$20
  42        TAX 
  43        LDA TABLE,X
  44        STA NEXT
  45        CMP #$20
  46        BEQ SQ
  47        SEC 
  48        SBC #$20
  49        TAX 
  50        LDA T2,X
  51        CMP LASTYP
  52        BEQ SQM
  53        BMI LOCK
  54        LDA #$8F
  55        JSR PRQ
  56        JSR LONG
  57        LDA #$80
  58        BMI SQM
  59 LOCK   LDA #$8E
  60        JSR PRQ
  61        JSR LONG
  62        LDA #$40
  63 SQM    STA LASTYP
  64 SQ     LDA NEXT
  65        JSR PRMON
  66        INC CARP
  67        RTS 
  68 CONTR  CPX #$0D
  69        BEQ CR
  70        CPX #$0C
  71        BEQ FF
  72        RTS 
  73 CR     LDA #$0D
  74        JSR PRMON
  75        JSR LONG
  76        LDA #$00
  77        STA CARP
  78        INC FORMP
  79        LDA FORMP
  80        CMP FORMF
  81        BEQ FF
  82        RTS 
  83 FF     JSR $FBDD
  84        JSR $FBDD
  85        JSR $FBDD
  86        JSR $FD1B
  87        LDA #$00
  88        STA CARP
  89        STA FORMP
  90        RTS 
  91 LONG   LDA DELAY
  92        JSR $FCA8
  93        LDA DELAY
  94        JSR $FCA8
  95        LDA DELAY
  96        JSR $FCA8
  97        LDA DELAY
  98        JSR $FCA8
  99        RTS 
 100 ;
 101 PRMON  ORA #$80
 102        PHA 
 103        JSR LONG
 104        PLA 
 105 PRQ    JMP (PRT/VC)
 106 ;
 107 TABLE  HEX 20563C3D4E4D5927
 108        HEX 52574B555B2D3E2F
 109        HEX 2921402324255E26
 110        HEX 2A28535F2B585A50
 111        HEX 2261626364656667
 112        HEX 68696A6B6C6D6E6F
 113        HEX 7071727374757677
 114        HEX 78797A4F54515D4C
 115        HEX 2261626364656667
 116        HEX 68696A6B6C6D6E6F
 117        HEX 7071727374757677
 118        HEX 78797A4F54515D4C
 119 T2     HEX 0080808080808040
 120        HEX 8080808040404040
 121        HEX 4040404040404040
 122        HEX 4040804080408080
 123        HEX 8080808080808080
 124        HEX 8080808080808080
 125        HEX 8080808080808080
 126        HEX 8080808040804080
 127        HEX 4040404040404040
 128        HEX 4040404040404040
 129        HEX 4040404040404040
 130        HEX 4040404040404040
 131 CARP   HEX 00
 132 FORMP  HEX 00
 133 FLAG   HEX 00
 134 CHAR   HEX 00
 135 LAST   HEX 00
 136 NEXT   HEX 00
 137 LASTYP HEX 00
 138        END 
!