LOAD OUT-05.ASM

BLOAD OUT-05.ASM,A$1800


!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-05 OLD LED
   5 ;
   6        NLS 
   7 CARWID EQU $1ED4
   8 FFCHAR EQU $1ED9
   9 TIMDEL EQU $1EDA
  10 PRT/VC EQU $1E86
  11 ;
  12        JMP OUT
  13        JMP ZZZ
  14 ;
  15 CARP   HEX 00
  16 CHAR   HEX 00
  17 PRMON  ORA #$80
  18        JMP (PRT/VC)
  19 OUT    AND #$7F
  20        STA CHAR
  21        TYA 
  22        PHA 
  23        TXA 
  24        PHA 
  25        JSR DOIT
  26        PLA 
  27        TAX 
  28        PLA 
  29        TAY 
  30 ZZZ    RTS 
  31 ;
  32 ;
  33 DOIT   LDA CHAR
  34        CMP #$20
  35        BCC CONTR
  36 SKIP   JSR PRMON
  37        INC CARP
  38        RTS 
  39 CONTR  CMP #$0D
  40        BEQ CR
  41        CMP #$0C
  42        BEQ FF
  43        JMP PRMON
  44 ;
  45 CR     LDY CARP
  46 CRX    CPY CARWID
  47        BCS CR0
  48        LDA #$20
  49        JSR PRMON
  50        INY 
  51        BNE CRX
  52 CR0    LDA #$0D
  53        JSR PRMON
  54        LDA #$00
  55        STA CARP
  56        RTS 
  57 FF     LDA #$0C
  58        LDX FFCHAR
  59        BEQ FFOK
  60        LDA #$0B
  61 FFOK   JSR PRMON
  62        LDA #$00
  63        STA CARP
  64        LDA TIMDEL
  65        BEQ DELAY
  66        RTS 
  67 ;
  68 DELAY  LDY #$10
  69 L1     LDA #$FF
  70        JSR $FCA8
  71        DEY 
  72        BPL L1
  73        RTS 
  74 XX     HEX 00
  75        END 
!