
 1000  *SAVE S.STRING ARRAY CLEAR
 1010  *--------------------------------
 1020  *      CLEAR STRING ARRAY
 1030  *--------------------------------
 1040  GETARYPT   .EQ $F7D9
 1050  CHKSTR     .EQ $DD6C
 1060  CHKCOM     .EQ $DEBE
 1070  *--------------------------------
 1080  FAC    .EQ $9D
 1090  LOWTR  .EQ $9B,9C
 1100         .OR $300
 1110  *--------------------------------
 1120  CLEAR
 1130         JSR CHKCOM
 1140         JSR GETARYPT
 1150         JSR CHKSTR
 1160         LDY #4       COMPUTE SIZE OF PREAMBLE
 1170         LDA (LOWTR),Y     # OF DIMS
 1180         ASL               *2, CLEAR CARRY
 1190         ADC #5            +5
 1200         STA FAC      SAVE PREAMBLE SIZE
 1210         LDY #2       POINT AT OFFSET
 1220         SEC          COMPUTE ARRAY LENGTH
 1230         LDA (LOWTR),Y
 1240         SBC FAC
 1250         PHA          # BYTES IN PARTIAL PAGE
 1260         INY
 1270         LDA (LOWTR),Y
 1280         SBC #0
 1290         TAX          # WHOLE PAGES
 1300         CLC          POINT AT BEGINNING OF DATA
 1310         LDA LOWTR
 1320         ADC FAC
 1330         STA LOWTR
 1340         BNE .2
 1350         INC LOWTR+1
 1360  .2     LDY #0
 1370         TXA          # WHOLE PAGES
 1380         BEQ .4 
 1390         TYA          SET A=0
 1400  .3     STA (LOWTR),Y
 1410         DEY
 1420         BNE .3
 1430         INC LOWTR+1
 1440         DEX          COUNT WHOLE PAGES
 1450         BNE .3
 1460  .4     PLA
 1470         BEQ .6       FINISHED
 1480         TAY
 1490         LDA #0
 1500  .5     DEY
 1510         STA (LOWTR),Y
 1520         BNE .5
 1530  .6     RTS

