LOAD OUT-06.ASM

BLOAD OUT-06.ASM,A$1800


!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-06 PED (PLATE)
   5 ; SPACE | LINE | SPACE | CR LF
   6 ;
   7        NLS 
   8 ;
   9 PRT/VC EQU $1E86
  10 CARWID EQU $1ED4
  11 COMPUT EQU $1E60
  12 LCNT   EQU $7208
  13 ;
  14        JMP OUT
  15        JMP INIT
  16 ;
  17 CARP   HEX 00
  18 CHAR   HEX 00
  19 FILLCH HEX 20
  20 ;
  21 PRMON  ORA #$80
  22        JMP (PRT/VC)
  23 ;
  24 ;
  25 OUT    AND #$7F
  26        STA CHAR
  27        TYA 
  28        PHA 
  29        TXA 
  30        PHA 
  31        JSR DOIT
  32        PLA 
  33        TAX 
  34        PLA 
  35        TAY 
  36        RTS 
  37 ;
  38 INIT   LDA #$00
  39        STA CARP
  40        RTS 
  41 ;
  42 DOIT   LDA CHAR
  43        CMP #$20
  44        BCC CONTR
  45        JSR FIX
  46 REG/CH LDA CARP
  47        BNE NT/1ST
  48        LDA FILLCH
  49        JSR PRMON
  50 NT/1ST LDA CHAR
  51        JSR PRMON
  52        INC CARP
  53        RTS 
  54 CONTR  CMP #$0D
  55        BEQ CR
  56        CMP #$0C
  57        BEQ FF
  58        CMP #$0A
  59        BEQ ZIPLF
  60        JMP PRMON
  61 ZIPLF  RTS 
  62 ;
  63 CRSP   LDY CARP
  64 CRX    CPY CARWID
  65        BCS CRSP0
  66        LDA FILLCH
  67        JSR PRMON
  68        INY 
  69        BNE CRX
  70 CRSP0  LDA FILLCH
  71        JSR PRMON
  72        LDA #$00
  73        STA CARP
  74        RTS 
  75 ;
  76 CR     JSR CRSP
  77        LDA #$0D
  78        JSR PRMON
  79        RTS 
  80 ;
  81 ;
  82 FF     JSR CRSP
  83        LDA #$0B
  84 FFOK   JSR PRMON
  85        RTS 
  86 FIX    CMP #$60
  87        BEQ DOFIX
  88        CMP #$7B
  89        BCC OK
  90 DOFIX  AND #$DF
  91        STA CHAR
  92 OK     RTS 
  93 ;
  94 ;
  95 ;
  96 XX     HEX 00
  97        END 
!