
 1000  *SAVE S.INIT BUFFERS
 1010  *--------------------------------
 1020  PNTR       .EQ $40,41
 1030  HIMEM      .EQ $4C,4D
 1040  FP.STRINGS .EQ $6F,70
 1050  FP.HIMEM   .EQ $73,74
 1060  PP         .EQ $CA,CB
 1070  *--------------------------------
 1080  BUF.START         .EQ $9D00
 1090  NO.FILES          .EQ $AA57
 1100  TEMP              .EQ $AA63
 1110  ACTIVE.BASIC.FLAG .EQ $AAB6
 1120  *--------------------------------
 1130         .OR $A7D4
 1140         .TA $08D4
 1150  *--------------------------------
 1160  INIT.FILE.BUFFERS
 1170         SEC
 1180         LDA BUF.START
 1190         STA PNTR  
 1200         LDA BUF.START+1
 1210         STA PNTR+1  
 1220         LDA NO.FILES
 1230         STA TEMP
 1240  *--------------------------------
 1250  .1     LDY #0
 1260         TYA
 1270         STA (PNTR),Y
 1280         LDY #$1E
 1290         SEC
 1300         LDA PNTR  
 1310         SBC #$2D
 1320         STA (PNTR),Y
 1330         PHA
 1340         LDA PNTR+1  
 1350         SBC #0
 1360         INY
 1370         STA (PNTR),Y
 1380         TAX
 1390         DEX
 1400         PLA
 1410         PHA
 1420         INY
 1430         STA (PNTR),Y
 1440         TXA
 1450         INY
 1460         STA (PNTR),Y
 1470         TAX
 1480         DEX
 1490         PLA
 1500         PHA
 1510         INY
 1520         STA (PNTR),Y
 1530         INY
 1540         TXA
 1550         STA (PNTR),Y
 1560         DEC TEMP
 1570         BEQ .2
 1580         TAX
 1590         PLA
 1600         SEC
 1610         SBC #$26
 1620         INY
 1630         STA (PNTR),Y
 1640         PHA
 1650         TXA
 1660         SBC #0
 1670         INY
 1680         STA (PNTR),Y
 1690         STA PNTR+1  
 1700         PLA
 1710         STA PNTR  
 1720         JMP .1
 1730  *--------------------------------
 1740  .2     PHA
 1750         LDA #0
 1760         INY
 1770         STA (PNTR),Y
 1780         INY
 1790         STA (PNTR),Y
 1800         LDA ACTIVE.BASIC.FLAG
 1810         BEQ .3
 1820         PLA
 1830         STA FP.HIMEM+1  
 1840         STA FP.STRINGS+1  
 1850         PLA
 1860         STA FP.HIMEM  
 1870         STA FP.STRINGS  
 1880         RTS
 1890  *--------------------------------
 1900  .3     PLA
 1910         STA HIMEM+1  
 1920         STA PP+1  
 1930         PLA
 1940         STA HIMEM  
 1950         STA PP  
 1960         RTS
 1970  *--------------------------------

