LOAD OUT-03.ASM

BLOAD OUT-03.ASM,A$1800


!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-03  SAGEM
   5 ;
   6        NLS 
   7 ;
   8        JMP OUT
   9        JMP ZZZ
  10 CHAR   HEX 00
  11 ;
  12 ;
  13 PRT/VC EQU $1E86
  14 ;
  15 ;
  16 OUT    AND #$7F
  17        STA CHAR
  18        TYA 
  19        PHA 
  20        TXA 
  21        PHA 
  22        JSR DOIT
  23        PLA 
  24        TAX 
  25        PLA 
  26        TAY 
  27 ZZZ    RTS 
  28 ;
  29 ;
  30 DOIT   LDA CHAR
  31        CMP #$0D
  32        BEQ CR
  33        CMP #$FF
  34        BEQ FF
  35 R/OUT  ORA #$80
  36        JMP (PRT/VC)
  37 ;
  38 CR     JSR R/OUT
  39        JMP DELAY
  40 FF     JSR R/OUT
  41 DELAY  LDA #$FF
  42        JMP $FCA8
  43 XX     HEX 00
  44        END 
!