home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
News-Disk 2
/
News_Disk_Issue_02_19xx___BASIC.atr
/
ffdr.src
< prev
next >
Wrap
Text File
|
2023-02-26
|
16KB
|
1 lines
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.¢