LOAD JOUT-07.ASM

BLOAD JOUT-07.ASM,A$1800


!L
   1        ORG $1B00
   2        OBJ $800
   3 ;
   4 ;--->> OUT-07 JESSE'S EXAMPLE MAKER
   5 ;
   6        NLS 
   7 PRT/VC EQU $1E86
   8 LCNT   EQU $7208
   9 CARWID EQU $1ED4
  10 FORMF  EQU $1ED5
  11 AUTOLF EQU $1ED6
  12 ;
  13        JMP OUT
  14        JMP INIT
  15 ;
  16 CARP   HEX 00
  17 ;
  18 CHAR   HEX 00
  19 PRMON  ORA #$80
  20        JMP (PRT/VC)
  21 OUT    AND #$7F
  22        STA CHAR
  23        TYA 
  24        PHA 
  25        TXA 
  26        PHA 
  27        JSR DOIT
  28        PLA 
  29        TAX 
  30        PLA 
  31        TAY 
  32 ZZZ    RTS 
  33 ;
  34 DOIT   LDA CHAR
  35 CONTR  CMP #$0C
  36        BEQ FF
  37        CMP #$0D
  38        BEQ CR
  39        JSR PRMON
  40        INC CARP
  41        RTS 
  42 ;
  43 FF     LDA FORMF
  44        CMP $7208
  45        BCC ZIP
  46        BEQ FIN
  47 FF0    LDA FORMF
  48        CMP $7208
  49        BEQ ZIP
  50 LOOP   JSR CR
  51        JSR LOOKLF
  52        INC $7208
  53        JMP FF0
  54 FIN    JSR CR
  55        JSR LOOKLF
  56 ZIP    RTS 
  57 LOOKLF LDX AUTOLF
  58        BEQ LOOKF
  59        LDA #$0A
  60        JSR PRMON
  61 LOOKF  RTS 
  62 ;
  63 CR     JSR FILL
  64        LDA #$0D
  65        JSR PRMON
  66        RTS 
  67 FILL   LDY CARP
  68 CRX    CPY CARWID
  69        BCS INIT
  70        LDA #$20
  71        JSR PRMON
  72        INY 
  73        BNE CRX
  74 INIT   LDA #$00
  75        STA CARP
  76        RTS 
  77 XX     HEX 00
  78        END 
!