home *** CD-ROM | disk | FTP | other *** search
/ News-Disk 2 / News_Disk_Issue_02_19xx___BASIC.atr / ffdr.src < prev    next >
Text File  |  2023-02-26  |  16KB  |  1 lines
  1. 1000 ; הIJמבךáהנמקáגחצסכIJךáפנרקחמדצ¢1002 ; BY MARK KEATES¢1004 ; PROGRAMMING - SPRING 1991¢1006 ;¢1008 ; FOR USE IN YOUR OWN PROGRAMS¢1010 ; BUT PLEASE CREDIT ROUTINES TO ME.¢1012 ;¢1014 ; ------------¢1016 ; DEFINITIONS¢1018 ; ------------¢1020 DOSINI = $0C¢1022 SCRNTO = $D0¢1024 LOADADR = $1D00¢1026 MEMLO = $02E7¢1028 ; ------------¢1030     *=  LOADADR¢1032 ;¢1034 ; HEADER GET ADDED BY THE ASSEMBLER¢1036 ; FORMAT : $FF,$FF,LOAD ADR, END ADR¢1038 ;¢1040 INIT¢1042     LDA DOSINI  ; Copy original value¢1044     STA WARMST+1 ; of DOSINI into the¢1046     LDA DOSINI+1 ; operand of 'JSR OLDINIT'¢1048     STA WARMST+2¢1050     JMP WS_SKIP¢1052 ;¢1054 WARMST¢1056     JSR OLDINIT¢1058 WS_SKIP¢1060     LDA # <FINISH ; Reset MEMLO to reserve¢1062     STA MEMLO   ; this code area, sitting¢1064     LDA # >FINISH ; just above DOS.¢1066     STA MEMLO+1¢1068     LDA # <WARMST ; Change DOSINI so that¢1070     STA DOSINI  ; SYSTEM RESET doesn't¢1072     LDA # >WARMST ; wipe out the routines¢1074     STA DOSINI+1¢1076 OLDINIT¢1078     RTS ¢1080 ; -------------¢1082 START¢1084 ; -------------¢1086     JMP MESSAGE¢1088     JMP SETXY¢1090     JMP COLOUR¢1092     JMP DRWLET¢1094 ; ------------¢1096 ; INFO. REQ'D BY LETTER DRAWER¢1098 ; ------------¢1100 LETADR¢1102     .WORD 0¢1104 BITROT¢1106     .BYTE 0¢1108 LETTER¢1110     .BYTE 0¢1112 LETCOL¢1114     .BYTE 0¢1116 USECOL¢1118     .BYTE 0¢1120 LCTAB¢1122     .BYTE $00,$55,$AA,$FF¢1124 DRPVAL¢1126     .WORD 0,40,80,120,160,200¢1128     .WORD 240,280,320,360,400¢1130 HEIGHT¢1132     .BYTE 0¢1134 WRKSPC¢1136     .BYTE 0,0,0,0,0,0,0,0,0¢1138     .BYTE 0,0,0,0,0,0,0,0,0¢1140 ; ------------¢1142 DRWLET ;        BASIC ENTRY - A=USR(DRWLET,CHAR)¢1144     PLA         ; # OF ARGS¢1146     PLA         ; CHARACTER HIGH - DISREGARD¢1148     PLA         ; CHARACTER LOW¢1150 ONELET ;        MC ENTRY - A = CHARACTER TO DISPLAY¢1152     CMP #96¢1154     BCS LSKIP2¢1156     CMP #32¢1158     BCS LSKIP1¢1160     ADC #64¢1162     JMP LSKIP2¢1164 LSKIP1¢1166     SBC #32¢1168 LSKIP2¢1170     STA LETTER  ; STORE AFTER CONVERTING TO ASCII¢1172     TAX ¢1174     BEQ LD0     ; IF IT'S A SPACE THEN COLOUR=0¢1176     LDX LETCOL  ; OTHERWISE USE THE CURRENT COLOUR¢1178 LD0¢1180     STX USECOL¢1182     TAX ¢1184     ASL A¢1186     TAY ¢1188     LDA HEITAB,X¢1190     ASL A¢1192     STA HEIGHT¢1194     LDA CHRTAB,Y¢1196     STA LD1+1¢1198     LDA CHRTAB+1,Y¢1200     STA LD1+2   ; COPY CHARACTER INFORMATION¢1202     LDX #0¢1204 LD1¢1206     LDA $FFFF,X¢1208     STA WRKSPC,X¢1210     INX ¢1212     CPX HEIGHT¢1214     BNE LD1     ; COPY IMAGE INTO WORKSPACE¢1216     LDY BITROT¢1218     BEQ LD4     ; SKIP IF WE DON'T NEED TO ROTATE¢1220 LD2¢1222     LDX #0¢1224 LD3¢1226     LSR WRKSPC,X¢1228     ROR WRKSPC+1,X¢1230     INX ¢1232     INX ¢1234     CPX HEIGHT¢1236     BNE LD3¢1238     DEY ¢1240     BNE LD2     ; SHIFT INTO POSITION¢1242 LD4¢1244     LDY LETTER¢1246     LDA DRPTAB,Y¢1248     ASL A¢1250     TAY ¢1252     LDA LETADR¢1254     CLC ¢1256     ADC DRPVAL,Y¢1258     STA SCRNTO¢1260     LDA LETADR+1¢1262     ADC DRPVAL+1,Y¢1264     STA SCRNTO+1 ; ADD DROP VALUE*40 TO CURRENT SCREEN ADDRESS¢1266     LDY USECOL¢1268     LDA LCTAB,Y¢1270     STA USECOL¢1272     LDX #0¢1274 LD5¢1276     LDY #0¢1278 LD6¢1280     LDA WRKSPC,X ; GET IMAGE¢1282     EOR #$FF    ; INVERT¢1284     AND (SCRNTO),Y ; MASK OFF BACKGROUND¢1286     STA (SCRNTO),Y ; REPLACE¢1288     LDA WRKSPC,X ; GET IMAGE¢1290     AND USECOL  ; MAKE IT THE RIGHT COLOUR¢1292     ORA (SCRNTO),Y ; ADD BACKGROUND¢1294     STA (SCRNTO),Y ; DISPLAY IT¢1296     INX ¢1298     INY ¢1300     CPY #2¢1302     BNE LD6     ; 2 BYTES WIDE¢1304     LDA SCRNTO¢1306     CLC ¢1308     ADC #40¢1310     STA SCRNTO¢1312     LDA SCRNTO+1¢1314     ADC #0¢1316     STA SCRNTO+1¢1318     CPX HEIGHT¢1320     BNE LD5     ; FOR ALL OF HEIGHT¢1322 ;¢1324     LDY LETTER¢1326     LDA WIDTAB,Y ; ADD CHARACTER WIDTH TO BITROT¢1328     ASL A       ; *2 AS 1 COLOUR CLOCK = 2 BITS¢1330     ADC BITROT¢1332     TAY ¢1334     AND #$F8¢1336     BEQ LD9     ; SKIP IF IT DOESN'T ENTER NET BYTE¢1338     LSR A       ; OTHERWISE UPDATE THE LETADR¢1340     LSR A¢1342     LSR A¢1344     CLC ¢1346     ADC LETADR¢1348     STA LETADR¢1350     LDA LETADR+1¢1352     ADC #0¢1354     STA LETADR+1¢1356     TYA ¢1358     AND #7¢1360     TAY ¢1362 LD9¢1364     STY BITROT¢1366     RTS ¢1368 ; ------------¢1370 ; INFO REQ'D BY MESSAGE WRITER¢1372 ; ------------¢1374 XPOS¢1376     .BYTE 0¢1378 YPOS¢1380     .WORD 0¢1382 YPOS8¢1384     .WORD 0¢1386 ; ------------¢1388 SETXY ;         BASIC ENTRY - A=(SETXY,XPOS,YPOS)¢1390     PLA         ; # OF ARGS¢1392     PLA         ; XPOS HIGH - DISREGARD¢1394     PLA         ; XPOS LOW¢1396     TAX ¢1398     PLA         ; YPOS HIGH - DISREGARD¢1400     STA YPOS+1¢1402     PLA         ; YPOS LOW¢1404     TAY ¢1406 POSITION ;      MC ENTRY - X=XPOS, Y=YPOS¢1408     LDA #$00¢1410     STA YPOS+1¢1412     STY YPOS¢1414     STX XPOS¢1416     TXA ¢1418     AND #3¢1420     ASL A¢1422     STA BITROT  ; BITROT=(XPOS&3)*2¢1424     LSR XPOS¢1426     LSR XPOS    ; XPOS = XPOS/4¢1428     ASL YPOS¢1430     ROL YPOS+1  ; *2¢1432     ASL YPOS¢1434     ROL YPOS+1  ; *4¢1436     ASL YPOS¢1438     ROL YPOS+1  ; *8¢1440     LDA YPOS¢1442     STA YPOS8¢1444     LDA YPOS+1¢1446     STA YPOS8+1¢1448     ASL YPOS¢1450     ROL YPOS+1  ; *16¢1452     ASL YPOS¢1454     ROL YPOS+1  ; *32¢1456     LDA YPOS¢1458     CLC ¢1460     ADC YPOS8¢1462     STA YPOS¢1464     LDA YPOS+1¢1466     ADC YPOS8+1¢1468     STA YPOS+1  ; YPOS = (Y*32)+(Y*8)¢1470     LDA YPOS¢1472     CLC ¢1474     ADC XPOS¢1476     STA LETADR¢1478     LDA YPOS+1¢1480     ADC #0¢1482     STA LETADR+1 ; LETADR = YPOS + XPOS¢1484     LDA LETADR¢1486     CLC ¢1488     ADC $58¢1490     STA LETADR¢1492     LDA LETADR+1¢1494     ADC $59¢1496     STA LETADR+1 ; ADD SCREEN ADDRESS TO LETADR¢1498     RTS ¢1500 ; ------------¢1502 COLOUR ;        BASIC ENTRY - A=USR(COLOUR,VAL)¢1504     PLA         ; # OF ARGS¢1506     PLA         ; COLOUR HIGH - DISREGARD¢1508     PLA         ; COLOUR LOW¢1510 SETCOL ;        MC ENTRY - A=COLOUR VALUE¢1512     AND #3      ; COLOURS 0-3 ONLY¢1514     STA LETCOL¢1516     RTS ¢1518 ; ------------¢1520 MESSAGE ;       BASIC ENTRY - A=USR(MESSAGE,ADR(MESSAGE$))¢1522     PLA         ; # OF ARGS¢1524     PLA         ; MESSAGE ADDRESS HIGH-BYTE¢1526     TAX ¢1528     PLA         ; MESSAGE ADDRESS LOW-BYTE¢1530     TAY ¢1532 DOMSG ;         MC ENTRY - X=MESSAGE ADDRESS HIGH BYTE, Y=LOW BYTE¢1534     STX MLOOP+2¢1536     STY MLOOP+1¢1538 MLOOP¢1540     LDA $FFFF   ; GET CHARACTER¢1542     PHA ¢1544     AND #$7F    ; IGNORE INVERSE¢1546     JSR ONELET  ; DISPLAY IT¢1548     INC MLOOP+1 ; INCREMENT POINTER¢1550     BNE MSKIP¢1552     INC MLOOP+2¢1554 MSKIP¢1556     PLA ¢1558     BPL MLOOP   ; IF LAST LETTER WAS INVERSE THEN STOP¢1560     RTS ¢1562 ; ------------¢1564 ; END OF DISPLAY ROUTINES¢1566 ; ------------¢1568 ; ------------¢1570 ; START OF CHARACTER SET INFO.¢1572 ; ------------¢1574 CHRTAB¢1576     .WORD SPACE,XMARK,DQUOT,HASH¢1578     .WORD STRNG,PERC,AMPER,SQUOT¢1580     .WORD LBRAK,RBRAK,TIMES,PLUS¢1582     .WORD COMMA,MINUS,FSTOP,DIVD¢1584     .WORD N0,N1,N2,N3,N4,N5,N6¢1586     .WORD N7,N8,N9,COLON,SEMI¢1588     .WORD LTHAN,EQUAL,GTHAN¢1590     .WORD QUERY,AT,CA,CB,CC,CD¢1592     .WORD CE,CF,CG,CH,CI,CJ,CK¢1594     .WORD CL,CM,CN,CO,CP,CQ,CR¢1596     .WORD CS,CT,CU,CV,CW,CX,CY¢1598     .WORD CZ,OPSQR,BSLSH,CLSQR¢1600     .WORD CARAT,UNDER,CTL00¢1602     .WORD CTL01,CTL02,CTL03¢1604     .WORD CTL04,CTL05,CTL06¢1606     .WORD CTL07,CTL08,CTL09¢1608     .WORD CTL10,CTL11,CTL12¢1610     .WORD CTL13,CTL14,CTL15¢1612     .WORD CTL16,CTL17,CTL18¢1614     .WORD CTL19,CTL20,CTL21¢1616     .WORD CTL22,CTL23,CTL24¢1618     .WORD CTL25,CTL26,ESC,CURUP¢1620     .WORD CURDN,CURLT,CURRT¢1622     .WORD DIAMD,LA,LB,LC,LD,LE¢1624     .WORD LF,LG,LH,LI,LJ,LK,LL¢1626     .WORD LM,LN,LO,LP,LQ,LR,LS¢1628     .WORD LT,LU,LV,LW,LX,LY,LZ¢1630     .WORD SPADE,VBAR,CLR,BS,TAB¢1632 ; ------------¢1634 HEITAB¢1636     .BYTE 9,7,9,9,9,9,9,2,7,7¢1638     .BYTE 9,9,2,1,1,9,5,5,5,5¢1640     .BYTE 5,5,5,5,5,5,5,9,9,9¢1642     .BYTE 9,9,9,7,7,7,7,7,7,7¢1644     .BYTE 7,7,7,7,7,7,7,7,7,7¢1646     .BYTE 7,7,7,7,7,7,7,7,7,9¢1648     .BYTE 9,9,9,9,9,9,9,9,9,9¢1650     .BYTE 9,9,9,9,9,9,9,9,9,9¢1652     .BYTE 9,9,9,9,9,9,9,9,9,9¢1654     .BYTE 9,9,9,9,9,9,9,5,7,5¢1656     .BYTE 7,5,7,7,7,7,9,7,7,5¢1658     .BYTE 5,5,7,7,5,5,7,5,5,5¢1660     .BYTE 5,7,5,9,9,9,9,9¢1662 ; ------------¢1664 WIDTAB¢1666     .BYTE 4,2,4,4,4,4,4,2,3,3¢1668     .BYTE 4,4,2,6,2,4,6,6,6,6¢1670     .BYTE 6,6,6,6,6,6,2,4,4,4¢1672     .BYTE 4,4,4,6,6,6,6,6,6,6¢1674     .BYTE 6,6,6,6,6,6,6,6,6,6¢1676     .BYTE 6,6,6,6,6,6,6,6,6,4¢1678     .BYTE 4,4,4,4,4,4,4,4,4,4¢1680     .BYTE 4,4,4,4,4,4,4,4,4,4¢1682     .BYTE 4,4,4,4,4,4,4,4,4,4¢1684     .BYTE 4,4,4,4,4,4,4,6,6,6¢1686     .BYTE 6,6,4,6,6,2,3,5,3,6¢1688     .BYTE 6,6,6,6,4,6,3,6,6,6¢1690     .BYTE 6,6,6,4,4,4,4,4¢1692 ; ------------¢1694 DRPTAB¢1696     .BYTE 0,0,0,0,0,0,0,0,0,0¢1698     .BYTE 0,0,6,3,6,0,2,2,2,2¢1700     .BYTE 2,2,2,2,2,2,2,0,0,0¢1702     .BYTE 0,0,0,0,0,0,0,0,0,0¢1704     .BYTE 0,0,0,0,0,0,0,0,0,0¢1706     .BYTE 0,0,0,0,0,0,0,0,0,0¢1708     .BYTE 0,0,0,0,0,0,0,0,0,0¢1710     .BYTE 0,0,0,0,0,0,0,0,0,0¢1712     .BYTE 0,0,0,0,0,0,0,0,0,0¢1714     .BYTE 0,0,0,0,0,0,0,2,0,2¢1716     .BYTE 0,2,0,2,0,0,0,0,0,2¢1718     .BYTE 2,2,2,2,2,2,0,2,2,2¢1720     .BYTE 2,2,2,0,0,0,0,0¢1722 ; ------------¢1724 ; IMAGE DATA FOLLOWS¢1726 ; ------------¢1728 ; PLACE UN-USED CHARACTER¢1730 ; LABELS HERE - THIS MAKES¢1732 ; EQUIVALENT TO SPACES¢1734 ; ------------¢1736 DQUOT¢1738 HASH¢1740 STRNG¢1742 PERC¢1744 AMPER¢1746 TIMES¢1748 PLUS¢1750 DIVD¢1752 SEMI¢1754 LTHAN¢1756 EQUAL¢1758 GTHAN¢1760 QUERY¢1762 AT¢1764 OPSQR¢1766 BSLSH¢1768 CLSQR¢1770 CARAT¢1772 UNDER¢1774 CTL00¢1776 CTL01¢1778 CTL02¢1780 CTL03¢1782 CTL04¢1784 CTL05¢1786 CTL06¢1788 CTL07¢1790 CTL08¢1792 CTL09¢1794 CTL10¢1796 CTL11¢1798 CTL12¢1800 CTL13¢1802 CTL14¢1804 CTL15¢1806 CTL16¢1808 CTL17¢1810 CTL18¢1812 CTL19¢1814 CTL20¢1816 CTL21¢1818 CTL22¢1820 CTL23¢1822 CTL24¢1824 CTL25¢1826 CTL26¢1828 ESC¢1830 CURUP¢1832 CURDN¢1834 CURLT¢1836 CURRT¢1838 DIAMD¢1840 SPADE¢1842 VBAR¢1844 CLR¢1846 BS¢1848 TAB¢1850 ; ------------¢1852 ; DEFINITIONS START HERE¢1854 ; ------------¢1856 SPACE¢1858     .BYTE 0,0,0,0,0,0,0,0,0¢1860     .BYTE 0,0,0,0,0,0,0,0,0¢1862 ; ------------¢1864 ; CAPITALS¢1866 ; ------------¢1868 CA¢1870     .DBYTE $FC00,$C300,$C0C0,$CFC0¢1872     .DBYTE $C0C0,$C0C0,$C0C0¢1874 CB¢1876     .DBYTE $F000,$CC00,$C300,$FFC0¢1878     .DBYTE $C0C0,$C300,$FC00¢1880 CC¢1882     .DBYTE $0FC0,$3000,$C000,$C000¢1884     .DBYTE $C000,$C000,$FFC0¢1886 CD¢1888     .DBYTE $FC00,$C300,$C0C0,$C0C0¢1890     .DBYTE $C0C0,$C300,$CC00¢1892 CE¢1894     .DBYTE $0FC0,$3000,$C000,$FC00¢1896     .DBYTE $C000,$C000,$FFC0¢1898 CF¢1900     .DBYTE $0FC0,$3000,$C000,$FC00¢1902     .DBYTE $C000,$C000,$C000¢1904 CG¢1906     .DBYTE $0FC0,$3000,$C000,$CF00¢1908     .DBYTE $C0C0,$C0C0,$FF00¢1910 CH¢1912     .DBYTE $C0C0,$C0C0,$C0C0,$FFC0¢1914     .DBYTE $C0C0,$C0C0,$C0C0¢1916 CI¢1918     .DBYTE $C000,$C000,$C000,$C000¢1920     .DBYTE $C000,$C000,$C000¢1922 CJ¢1924     .DBYTE $C0,$C0,$C0,$C0¢1926     .DBYTE $C0,$C0C0,$3FC0¢1928 CK¢1930     .DBYTE $C000,$C0C0,$C300,$CC00¢1932     .DBYTE $FC00,$C300,$C0C0¢1934 CL¢1936     .DBYTE $C000,$C000,$C000,$C000¢1938     .DBYTE $C000,$C000,$3FC0¢1940 CM¢1942     .DBYTE $3300,$CCC0,$CCC0,$CCC0¢1944     .DBYTE $CCC0,$CCC0,$CCC0¢1946 CN¢1948     .DBYTE $FC00,$C300,$C0C0,$C0C0¢1950     .DBYTE $C0C0,$C0C0,$C0C0¢1952 CO¢1954     .DBYTE $0FC0,$30C0,$C0C0,$C0C0¢1956     .DBYTE $C0C0,$C0C0,$CFC0¢1958 CP¢1960     .DBYTE $FFC0,$C0C0,$C300,$CC00¢1962     .DBYTE $C000,$C000,$C000¢1964 CQ¢1966     .DBYTE $0FC0,$30C0,$C0C0,$C0C0¢1968     .DBYTE $CCC0,$C3C0,$F0C0¢1970 CR¢1972     .DBYTE $FFC0,$C0C0,$C300,$CC00¢1974     .DBYTE $CC00,$C300,$C0C0¢1976 CS¢1978     .DBYTE $0FC0,$3000,$C000,$FFC0¢1980     .DBYTE $C0,$0300,$FC00¢1982 CT¢1984     .DBYTE $FFC0,$0C00,$0C00,$0C00¢1986     .DBYTE $0C00,$0C00,$0C00¢1988 CU¢1990     .DBYTE $C0C0,$C0C0,$C0C0,$C0C0¢1992     .DBYTE $C0C0,$30C0,$0FC0¢1994 CV¢1996     .DBYTE $C0C0,$C0C0,$C300,$C300¢1998     .DBYTE $CC00,$CC00,$F000¢2000 CW¢2002     .DBYTE $CCC0,$CCC0,$CCC0,$CCC0¢2004     .DBYTE $CCC0,$CCC0,$3300¢2006 CX¢2008     .DBYTE $C0C0,$C0C0,$3300,$0C00¢2010     .DBYTE $3300,$C0C0,$C0C0¢2012 CY¢2014     .DBYTE $C0C0,$30C0,$0CC0,$03C0¢2016     .DBYTE $C0,$C0,$3F00¢2018 CZ¢2020     .DBYTE $FFC0,$C0,$0300,$0C00¢2022     .DBYTE $3000,$C000,$FFC0¢2024 ; ------------¢2026 ; LOWER CASE¢2028 ; ------------¢2030 LA¢2032     .DBYTE $FFC0,$C0C0,$C0C0¢2034     .DBYTE $30C0,$0CC0¢2036 LB¢2038     .DBYTE $C000,$C000,$FFC0,$C0C0¢2040     .DBYTE $C0C0,$C300,$CC00¢2042 LC¢2044     .DBYTE $3FC0,$C000,$C000¢2046     .DBYTE $C000,$3FC0¢2048 LD¢2050     .DBYTE $C0,$C0,$FFC0,$C0C0¢2052     .DBYTE $C0C0,$30C0,$0CC0¢2054 LE¢2056     .DBYTE $3FC0,$C300,$CC00¢2058     .DBYTE $C000,$3FC0¢2060 LF¢2062     .DBYTE $3C00,$C000,$F000,$C000¢2064     .DBYTE $C000,$C000,$C000¢2066 LG¢2068     .DBYTE $FFC0,$C0C0,$C0C0,$30C0¢2070     .DBYTE $0CC0,$C0,$FFC0¢2072 LH¢2074     .DBYTE $C000,$C000,$FF00,$C0C0¢2076     .DBYTE $C0C0,$C0C0,$C0C0¢2078 LI¢2080     .DBYTE $C000,$00,$C000,$C000¢2082     .DBYTE $C000,$C000,$C000¢2084 LJ¢2086     .DBYTE $3000,$00,$3000¢2088     .DBYTE $3000,$3000,$3000¢2090     .DBYTE $3000,$3000,$C000¢2092 LK¢2094     .DBYTE $C000,$C000,$C300,$CC00¢2096     .DBYTE $F000,$CC00,$C300¢2098 LL¢2100     .DBYTE $C000,$C000,$C000,$C000¢2102     .DBYTE $C000,$C000,$3000¢2104 LM¢2106     .DBYTE $3300,$CCC0,$CCC0¢2108     .DBYTE $CCC0,$CCC0¢2110 LN¢2112     .DBYTE $3F00,$C0C0,$C0C0¢2114     .DBYTE $C0C0,$C0C0¢2116 LO¢2118     .DBYTE $3F00,$C0C0,$C0C0¢2120     .DBYTE $C0C0,$3F00¢2122 LP¢2124     .DBYTE $FFC0,$C0C0,$C0C0,$C300¢2126     .DBYTE $CC00,$C000,$C000¢2128 LQ¢2130     .DBYTE $FFC0,$C0C0,$C0C0,$30C0¢2132     .DBYTE $0CC0,$C0,$C0¢2134 LR¢2136     .DBYTE $3C00,$C000,$C000¢2138     .DBYTE $C000,$C000¢2140 LS¢2142     .DBYTE $3FC0,$C000,$3F00¢2144     .DBYTE $C0,$FF00¢2146 LT¢2148     .DBYTE $C000,$C000,$F000,$C000¢2150     .DBYTE $C000,$C000,$3000¢2152 LU¢2154     .DBYTE $C0C0,$C0C0,$C0C0¢2156     .DBYTE $C0C0,$3F00¢2158 LV¢2160     .DBYTE $C0C0,$C300,$CC00¢2162     .DBYTE $F000,$3000¢2164 LW¢2166     .DBYTE $CCC0,$CCC0,$CCC0¢2168     .DBYTE $CCC0,$3300¢2170 LX¢2172     .DBYTE $C0C0,$C0C0,$3F00¢2174     .DBYTE $C0C0,$C0C0¢2176 LY¢2178     .DBYTE $C0C0,$C0C0,$30C0,$0CC0¢2180     .DBYTE $03C0,$C0,$0FC0¢2182 LZ¢2184     .DBYTE $FFC0,$0300,$0C00¢2186     .DBYTE $3000,$FFC0¢2188 ; ------------¢2190 ; NUMBERS¢2192 ; ------------¢2194 N0¢2196     .DBYTE $3F00,$C3C0,$CCC0¢2198     .DBYTE $F0C0,$3F00¢2200 N1¢2202     .DBYTE $3C00,$0C00,$0C00¢2204     .DBYTE $0C00,$0C00¢2206 N2¢2208     .DBYTE $FF00,$C0,$3F00¢2210     .DBYTE $C000,$3FC0¢2212 N3¢2214     .DBYTE $FF00,$C0,$FF00¢2216     .DBYTE $C0,$FF00¢2218 N4¢2220     .DBYTE $C000,$C300,$3FC0¢2222     .DBYTE $0300,$0300¢2224 N5¢2226     .DBYTE $FFC0,$C000,$3F00¢2228     .DBYTE $C0,$FF00¢2230 N6¢2232     .DBYTE $3FC0,$C000,$CF00¢2234     .DBYTE $C0C0,$3F00¢2236 N7¢2238     .DBYTE $FF00,$C0,$C0¢2240     .DBYTE $C0,$C0¢2242 N8¢2244     .DBYTE $3F00,$C0C0,$3F00¢2246     .DBYTE $C0C0,$3F00¢2248 N9¢2250     .DBYTE $3F00,$C0C0,$3FC0¢2252     .DBYTE $C0,$FF00¢2254 ; ------------¢2256 ; EXTRAS¢2258 ; ------------¢2260 FSTOP¢2262     .DBYTE $C000¢2264 COMMA¢2266 SQUOT¢2268     .DBYTE $C000,$C000¢2270 COLON¢2272     .DBYTE $C000,$00,$00,$00,$C000¢2274 MINUS¢2276     .DBYTE $FFC0¢2278 XMARK¢2280     .DBYTE $C000,$C000,$C000,$C000¢2282     .DBYTE $C000,$00,$C000¢2284 LBRAK¢2286     .DBYTE $F000,$C000,$C000,$C000¢2288     .DBYTE $C000,$C000,$F000¢2290 RBRAK¢2292     .DBYTE $F000,$3000,$3000,$3000¢2294     .DBYTE $3000,$3000,$F000¢2296 ; ------------¢2298 ; END OF CHARACTER DEFINITIONS¢2300 ; ------------¢2302 FINISH¢2304 ; ------------¢2306     *=  $02E0¢2308     .WORD INIT  ; Insert disk initialisation adr.¢