LOAD PUTIN.ASM

BLOAD PUTIN.ASM,A$1800


!L
   1        ORG $1800
   2        OBJ $0800
   3        NLS 
   4        JMP START
   5 ERROR  HEX 00
   6 DISK   HEX 02
   7 ;
   8 ;
   9        JMP GETOLD
  10 STUFF  EQU $300
  11 Z1A    EPZ $1A
  12 Z1B    EPZ $1B
  13 RWTS   EQU $BD00
  14 BUF    EQU $2000
  15 TBUF   EQU $3000
  16 L|0380 EQU $380
  17 L|0381 EQU $381
  18 BTRAK  HEX 00
  19 BSECT  HEX 00
  20 BLENG  HEX 00
  21 ;
  22 CON    HEX 016001
  23        HEX 00FFFF
  24        ADR DEV
  25        ADR BUF
  26        HEX 0000
  27        HEX 00
  28        HEX 00FE60
  29 LDRIVE HEX 01
  30 DEV    HEX 0001EFD8
  31 TX     HEX 00
  32 TYPE   HEX 00
  33 POINT  HEX 00
  34 PLIM   HEX 00
  35 SECTOR HEX 00
  36 RWTS0  LDY #CON
  37        LDA /CON
  38        JSR RWTS
  39        BCC RW/DN
  40        BRK 
  41 RW/DN  RTS 
  42 SBOGUS LDA #$AD
  43        STA $B858
  44        STA $B8F1
  45        JSR RWTS0
  46        LDA #$AA
  47        STA $B858
  48        STA $B8F1
  49        RTS 
  50 ;
  51 START  JSR LOADVT
  52        JSR PUT/IT
  53        JMP SAVEVT
  54 ;
  55 GETOLD JSR LOADVT
  56        JMP MOVBK
  57 ;
  58 LOADVT LDA DISK
  59        STA CON+2
  60        LDA #BUF
  61        STA CON+8
  62        LDA /BUF
  63        STA CON+9
  64        LDA #$01
  65        STA CON+12
  66        LDA #$00
  67        STA CON+5
  68        LDA #$11
  69        STA CON+4
  70        JSR RWTS0
  71        RTS 
  72 ;
  73 PUT/IT LDY #$1F
  74 PUTIN  LDA STUFF,Y
  75        CLC 
  76        ADC #$07
  77        EOR #$FF
  78        STA BUF+7,Y
  79        DEY 
  80        BPL PUTIN
  81        RTS 
  82 ;
  83 ;
  84 MOVBK  LDY #$1F
  85 MOVL   LDA BUF+7,Y
  86        EOR #$FF
  87        SEC 
  88        SBC #$07
  89        STA STUFF,Y
  90        DEY 
  91        BPL MOVL
  92        RTS 
  93 ;
  94 ;
  95 SAVEVT LDA #$02
  96        STA CON+12
  97        JSR RWTS0
  98 ;
  99        LDA /TBUF
 100        STA CON+9
 101        LDA #$02
 102        STA CON+4
 103        LDA #$0F
 104        STA CON+5
 105 ;
 106        LDA L|0380
 107        BEQ DUP
 108        BMI MASTER
 109 REG    LDA #$A3
 110        STA $30FF
 111        LDA L|0381
 112        STA $30FE
 113        JMP SBOGUS
 114 DUP    JMP RWTS0
 115 MASTER LDA #$29
 116        STA $30FF
 117        LDA #$00
 118        STA $30FE
 119        JMP SBOGUS
 120 ;
 121 ;
 122 XX     HEX 00
 123        END 
!