LOAD OUT-04.ASM

BLOAD OUT-04.ASM,A$1800


!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-04  CRANMER
   5 ;
   6        NLS 
   7 PRT/VC EQU $1E86
   8 LCNT   EQU $7208
   9 FORMF  EQU $1ED5
  10 AUTOLF EQU $1ED6
  11 ;
  12        JMP OUT
  13        JMP ZZZ
  14 ;
  15 ;
  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 CONTR  CMP #$0C
  35        BEQ FF
  36        JMP PRMON
  37 ;
  38 ;
  39 FF     LDA FORMF
  40        CMP $7208
  41        BCC ZIP
  42        BEQ FIN
  43 FF0    LDA FORMF
  44        CMP $7208
  45        BEQ ZIP
  46 LOOP   LDA #$0D
  47        JSR PRMON
  48        JSR LOOKLF
  49        INC $7208
  50        JMP FF0
  51 FIN    LDA #$0D
  52        JSR PRMON
  53        JSR LOOKLF
  54 ZIP    RTS 
  55 LOOKLF LDX AUTOLF
  56        BEQ LOOKF
  57        LDA #$0A
  58        JSR PRMON
  59 LOOKF  RTS 
  60 XX     HEX 00
  61        END 
!