10 !*************************** 15 !* * 20 !* HP-83/85 ASSEMBLER * 30 !* GLOBAL FILE * 40 !* (c) Hewlett-Packard Co. * 50 !* 1980 * 55 !* * 60 !*************************** 70 GLO 80 FWUSER DAD 100000 90 FWPRGM DAD 100002 100 FWCURR DAD 100004 110 NXTMEM DAD 100006 120 LAVAIL DAD 100010 130 CALVRB DAD 100012 140 RTNSTK DAD 100014 150 NXTRTN DAD 100016 160 FWBIN DAD 100020 170 LWAMEM DAD 100022 180 LLDCOM DAD 100025 190 FLDCOM DAD 100027 200 DISPTR DAD 100033 210 PRTPTR DAD 100035 220 ONFLAG DAD 100040 230 AUTO# DAD 100054 240 AUTOI DAD 100056 250 ERLIN# DAD 100062 260 ERNUM# DAD 100064 270 ERRROM DAD 100065 280 ERROM# DAD 100066 290 EDMOD2 DAD 100067 300 ERRORS DAD 100070 310 ERRTYP DAD 100071 320 KEYCNT DAD 100120 330 KRPET1 DAD 100121 340 KRPET2 DAD 100122 350 LDFLTR DAD 100123 360 DRG DAD 100125 370 SVCWRD DAD 100151 380 IOSW DAD 100152 390 CRTBYT DAD 100176 400 CRTRAM DAD 100200 410 XMAP DAD 100262 420 YMAP DAD 100263 430 CS.C. DAD 100264 440 PS.C. DAD 100274 450 INPBUF DAD 100310 460 LASTIN DAD 100447 470 ERRBUF DAD 100450 480 ERBEND DAD 100524 490 PRTBUF DAD 100524 500 DISBUF DAD 100564 510 PCR DAD 100642 520 PRFLAG DAD 100644 530 DSFLAG DAD 100645 540 TIME DAD 100650 550 DATE DAD 100660 560 DISPLN DAD 100665 570 PRNTLN DAD 100666 580 KEYHIT DAD 100671 590 INPTR DAD 100672 600 LEGEND DAD 100710 610 LEGEN2 DAD 100750 620 CRTWRS DAD 101016 630 P.BUFF DAD 101075 640 P.PTR DAD 101077 650 P.FLAG DAD 101101 660 LINELN DAD 101103 670 SCTEMP DAD 101110 680 STSIZE DAD 101130 690 TOS DAD 101132 700 ROMFL DAD 101231 710 BINTAB DAD 101233 720 ROMTAB DAD 101235 730 ROMLST DAD 101272 740 STACK DAD 101300 750 !************************* 760 !* THE R6 STACK USES THE * 770 !* AREA OF MEMORY FROM * 780 !* 101300 THRU 101777. * 790 !************************* 800 IOTRFC DAD 102400 810 IOSP DAD 102407 820 CHIDLE DAD 102416 830 KYIDLE DAD 102425 840 RMIDLE DAD 102434 850 IMERR DAD 102452 860 PRSIDL DAD 102461 870 IRQ20 DAD 102470 880 SPAR0 DAD 102512 890 SPAR1 DAD 102523 900 !************************** 910 !* THE FOLLOWING LOCATIONS* 920 !* CONTAIN BASE ADDRESSES * 930 !* OF STOLEN RAM FOR EACH * 940 !* OF THE EXTERNAL ROMS. * 950 !************************** 960 IOBASE DAD 102536 970 MSBASE DAD 102540 980 AGLBAS DAD 102542 990 APRBAS DAD 102544 1000 BSRBAS DAD 102546 1010 MBASE DAD 102550 1020 ASMBAS DAD 102552 1030 UNBAS1 DAD 102554 1040 UNBAS2 DAD 102556 1050 FWROM EQU 103300 1060 !************************* 1065 !* * 1070 !* I/O ADDRESSES * 1075 !* * 1080 !************************* 1090 GINTEN DAD 177400 1100 GINTDS DAD 177401 1110 KEYSTS DAD 177402 1120 KEYCOD DAD 177403 1130 CRTSAD DAD 177404 1140 CRTBAD DAD 177405 1150 CRTSTS DAD 177406 1160 CRTDAT DAD 177407 1170 RSELEC DAD 177430 1180 !************************* 1190 !* THE FOLLOWING ARE ONLY* 1200 !* CONVENIENT LABELS FOR * 1210 !* SOME ASCII CODES AND * 1220 !* SOME DIGITS * 1230 !************************* 1240 ZRO EQU 0 1250 ONE EQU 1 1260 TWO EQU 2 1270 THREE EQU 3 1280 FOUR EQU 4 1290 FIVE EQU 5 1300 SIX EQU 6 1310 SEVEN EQU 7 1320 EIGHT EQU 10 1330 NINE EQU 11 1340 TEN EQU 12 1350 BLANK EQU 40 1360 BANG EQU 41 1370 " EQU 42 1380 # EQU 43 1390 $ EQU 44 1400 % EQU 45 1410 & EQU 46 1420 ' EQU 47 1430 ( EQU 50 1440 ) EQU 51 1450 * EQU 52 1460 + EQU 53 1470 , EQU 54 1480 - EQU 55 1490 . EQU 56 1500 / EQU 57 1510 : EQU 72 1520 ; EQU 73 1530 < EQU 74 1540 = EQU 75 1550 > EQU 76 1560 ? EQU 77 1570 @ EQU 100 1580 A EQU 101 1590 B EQU 102 1600 C EQU 103 1610 D EQU 104 1620 E EQU 105 1630 F EQU 106 1640 G EQU 107 1650 H EQU 110 1660 I EQU 111 1670 J EQU 112 1680 K EQU 113 1690 L EQU 114 1700 M EQU 115 1710 N EQU 116 1720 O EQU 117 1730 P EQU 120 1740 Q EQU 121 1750 R EQU 122 1760 S EQU 123 1770 T EQU 124 1780 U EQU 125 1790 V EQU 126 1800 W EQU 127 1810 X EQU 130 1820 Y EQU 131 1830 Z EQU 132 1840 [ EQU 133 1850 \ EQU 134 1860 ] EQU 135 1870 ^ EQU 136 1880 _ EQU 137 1890 ` EQU 140 1900 a EQU 141 1910 b EQU 142 1920 c EQU 143 1930 d EQU 144 1940 e EQU 145 1950 f EQU 146 1960 g EQU 147 1970 h EQU 150 1980 i EQU 151 1990 j EQU 152 2000 k EQU 153 2010 l EQU 154 2020 m EQU 155 2030 n EQU 156 2040 o EQU 157 2050 p EQU 160 2060 q EQU 161 2070 r EQU 162 2080 s EQU 163 2090 t EQU 164 2100 u EQU 165 2110 v EQU 166 2120 w EQU 167 2130 x EQU 170 2140 y EQU 171 2150 z EQU 172 2160 LNK GLO2S