1000 ; FANCY FONT DISPLAY ROUTINES 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 ; just above DOS. 1066 STA MEMLO+1 1068 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.