
 1000  *SAVE S.MAKE HIRES ADDRS
 1010  *--------------------------------
 1020  I      .EQ 0
 1030  JL     .EQ 1
 1040  JH     .EQ 2
 1050  K      .EQ 3
 1060  Q      .EQ 4
 1070  R      .EQ 5
 1080  *--------------------------------
 1090  ADDRL  .EQ $900
 1100  ADDRH  .EQ $9C0
 1110  QUO.1  .EQ $A80
 1120  QUO.2  .EQ QUO.1+192
 1130  REM.1  .EQ QUO.1+280
 1140  REM.2  .EQ REM.1+192
 1150  *--------------------------------
 1160  BUILD  LDX #0       FOR X = 0 TO 191 STEP 1
 1170         STX I        FOR I = 0 TO $50 STEP $28
 1180         STX JL       FOR J = 0 TO $0380 STEP $0080
 1190         STX JH
 1200         STX K        FOR K = 0 TO $1C STEP $04
 1210         STX Q        QUOTIENT = 0
 1220         STX R        REMAINDER = 0
 1230  *---BUILD NEXT HI-RES ADDR-------
 1240  .1     LDA I
 1250         ORA JL
 1260         STA ADDRL,X
 1270         LDA #$20
 1280         ORA JH
 1290         ORA K
 1300         STA ADDRH,X
 1310  *---SAVE NEXT Q/R PAIR-----------
 1320         LDA Q
 1330         STA QUO.1,X
 1340         LDA R
 1350         STA REM.1,X
 1360  *---NEXT K-----------------------
 1370         CLC
 1380         LDA K
 1390         ADC #4
 1400         STA K
 1410         EOR #$20
 1420         BNE .2
 1430  *---NEXT J-----------------------
 1440         STA K
 1450         LDA JL
 1460         EOR #$80
 1470         STA JL
 1480         BNE .2
 1490         INC JH
 1500         LDA JH
 1510         EOR #4
 1520         BNE .2
 1530  *---NEXT I-----------------------
 1540         STA JH
 1550         CLC
 1560         LDA I
 1570         ADC #$28
 1580         STA I
 1590  *---BUMP Q/R PAIR----------------
 1600  .2     INC R        R COUNTS 0...6
 1610         LDA R
 1620         EOR #7       IF R=7, MAKE 0 AND BUMP Q
 1630         BNE .3       ...NOT 7 YET
 1640         STA R        ...R=7, SO MAKE IT 0
 1650         INC Q             AND BUMP Q
 1660  *---NEXT X-----------------------
 1670  .3     INX
 1680         CPX #192
 1690         BCC .1
 1700  *---NOW FINISH Q/R PAIRS---------
 1710  *---BETWEEN 192 AND 279----------
 1720         LDX #0       FOR X = 0 TO 280-192-1
 1730  .4     LDA Q
 1740         STA QUO.2,X
 1750         LDA R
 1760         STA REM.2,X
 1770  *---BUMP Q/R PAIR AS BEFORE------
 1780         INC R
 1790         LDA R
 1800         EOR #7
 1810         BNE .5
 1820         STA R
 1830         INC Q
 1840  *---NEXT X-----------------------
 1850  .5     INX
 1860         CPX #280-192
 1870         BCC .4
 1880         RTS
 1890  *--------------------------------
 1900         .LIST OFF

