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 !FWA USER AREA 90 FWPRGM DAD 100002 !FWA PROGRAM AREA 100 FWCURR DAD 100004 !PTR TO CURRENT PGM 110 NXTMEM DAD 100006 !NEXT IN AVAIL USER MEM 120 LAVAIL DAD 100010 !LAST AVAIL BVTE IN PGM AREA 130 CALVRB DAD 100012 !START OF CALC VARIABLES 140 RTNSTK DAD 100014 !TOP OF GOSU8 RETURN STACK 150 NXTRTN DAD 100016 !NEXT AVAIL GOSUB/RTN 160 FWBIN DAD 100020 !=LWAMEM IF NO BPGM LOADED ELSE BINTAB-1 170 LWAMEM DAD 100022 !LWA USER MEM 180 LLDCOM DAD 100025 !LAST LINE DECOMPILE 190 FLDCOM DAD 100027 !FIRST LINE DECOMPILE 200 DISPTR DAD 100033 !DISP BUFFER PTR 210 PRTPTR DAD 100035 !PRINT BUFFER PTR 220 ONFLAG DAD 100040 !ON GOSUB FLAG 230 AUTO# DAD 100054 !AUTO LINE # LAST VAL 240 AUTOI DAD 100056 !AUTO LINE # INCREMENT 250 ERLIN# DAD 100062 !LINE# OF BAD LINE 260 ERNUM# DAD 100064 !ERROR NUMBER 270 ERRROM DAD 100065 !ROM# OF ERROR 280 ERROM# DAD 100066 !ROM # OF LAST ERROR 290 EDMOD2 DAD 100067 !INS/RPL MODE FLAG 300 ERRORS DAD 100070 !RUN TIME ERRORS 310 ERRTYP DAD 100071 !ERROR TVPE 320 KEYCNT DAD 100120 !KEYBOARD COUNTER RPT 330 KRPET1 DAD 100121 !MAJOR KYBD REPEAT 340 KRPET2 DAD 100122 !MINOR KYBD REPEAT 350 LDFLTR DAD 100123 !LIST BREAK LINE COUNT 360 DRG DAD 100125 !DEG/RAD/GRAD 370 SVCWRD DAD 100151 !SERVICE WORD 380 IOSW DAD 100152 !IO SVC WORD 390 CRTBYT DAD 100176 !CRT BYTE ADDRESS 400 CRTRAM DAD 100200 !CRT PAGE ADDRESS 410 XMAP DAD 100262 !LAST X PLOTTED (0-255) 420 YMAP DAD 100263 !LAST Y PLOTTED (0-255) 430 CS.C. DAD 100264 !CRT IS select code (B BYTES) 440 PS.C. DAD 100274 !PRINTER IS select code 450 INPBUF DAD 100310 !PARSER INPUT BUFFER 460 LASTIN DAD 100447 !END OF INPUT BUFFER 470 ERRBUF DAD 100450 !ERROR BUFFER (44 BYTES) 480 ERBEND DAD 100524 !END BUFFER +1 490 PRTBUF DAD 100524 !PRINT BUFFER 500 DISBUF DAD 100564 !DISPLAY BUFFER 510 PCR DAD 100642 !BASIC PGM LINE PTR 520 PRFLAG DAD 100644 !PRINTED YET? FLAG AT PRINT EOL FOR PRINT 530 DSFLAG DAD 100645 !PRINTED YET? FLAG AT PRINT EOL FOR DXGP 540 TIME DAD 100650 !TIME OF DAY 550 DATE DAD 100660 !JULIAN DAY YEAR 560 DISPLN DAD 100665 !1 BYTE DISPLAY LINE LEN 570 PRNTLN DAD 100666 !1 BYTE PRINTER LINE LEN 580 KEYHIT DAD 100671 !KEYBOARD ASCII CODE 590 INPTR DAD 100672 !INPUT LINE POINTER 600 LEGEND DAD 100710 !KEY LABEL LEGEND AREA 610 LEGEN2 DAD 100750 !SECOND LINE LEGEND AREA 620 CRTWRS DAD 101016 !CRT STATUS IN RAM 630 P.BUFF DAD 101075 !INDIRECT BUFFER PTR 640 P.PTR DAD 101077 !INDIRECT PTR TO BYTE COUNT FOR CURRENT BUFFER 650 P.FLAG DAD 101101 !INDIR. PTR TO PRFLAG OR DSFLAG OR P/P ROM FLAG 660 LINELN DAD 101103 !DEVICE LINE LENGTH 670 SCTEMP DAD 101110 !SELECT CODE TEMP STORE 680 STSIZE DAD 101130 !STATEMENT SIZE PLACE HOLDER PTR 690 TOS DAD 101132 !TOP OF R12 STACK 700 ROMFL DAD 101231 !ROM FLAG FOR INIT ROUTINES 710 BINTAB DAD 101233 !CONTAINS BASE ADDRESS OF BPGM 720 ROMTAB DAD 101235 !LIST OF PRESENT EXTERNAL ROMS 730 ROMLST DAD 101272 !LAST ENTRY IN ROM TABLE 740 STACK DAD 101300 !BEGINNING OF THE R6 STACK 750 !************************** 760 !* THE R6 STACK USES THE * 770 !* AREA OF MEMORY FROM * 780 !* 101300 THRU 101777. * 790 !************************** 800 IOTRFC DAD 102400 !I/O TRAFFIC INTERCEPT 810 IOSP DAD 102407 !I-O INTERRUPT SERVICE PTR 820 CHIDLE DAD 102416 !CHAR. EDXTOR INTERCEPT 830 KYIDLE DAD 102425 !KEYBOARD INTERRUPT INTERCEPT 840 RMIDLE DAD 102434 !EXEC LOOP INTERCEPT 850 IMERR DAD 102452 !IMAGE ERROR INTERCEPT 860 PRSIDL DAD 102461 !PARSER INTERCEPT 870 IRQ20 DAD 102470 !I-O INTERRUPT 880 SPAR0 DAD 102512 !SYSTEM MONITOR INTERRUPT HOOK 890 SPAR1 DAD 102523 !SPARE INTERRUPT HOOK #1 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 !I/O ROM 970 MSBASE DAD 102540 !MASS STORAGE ROM 980 AGLBAS DAD 102542 !PLOTTER/PRINTER ROM 990 APRBAS DAD 102544 !ADVANCED PROGRAMMING ROM 1000 BSRBAS DAD 102546 !BLUE SPRUCE 1010 MBASE DAD 102550 !MATRIX ROM 1020 ASMBAS DAD 102552 !ASSEMBLER ROM 1030 UNBAS1 DAD 102554 !UNUSED: AVAILABLE 1040 UNBAS2 DAD 102556 !UNUSED: AVAILABLE 1050 FWROM EQU 103300 !FWA USER PROGRAM ROMRAM 1060 !************************* 1065 !* * 1070 !* I/O ADDRESSES * 1075 !* * 1080 !************************* 1090 GINTEN DAD 177400 !GLOBAL INTERRUPT ENABLE 1100 GINTDS DAD 177401 !GLOBAL INTERRUPT DISABLE 1110 KEYSTS DAD 177402 !KEYBOARD STATUS 1120 KEYCOD DAD 177403 !KEYBOARD CODE AND EOJOB 1130 CRTSAD DAD 177404 !CRT START ADDRESS 1140 CRTBAD DAD 177405 !CRT BYTE ADDRESS 1150 CRTSTS DAD 177406 !CRT STATUS 1160 CRTDAT DAD 177407 !CRT DATA 1170 RSELEC DAD 177430 !ROM SELECT ADDRESS 1180 !************************* 1190 !* THE FOLLOWING ARE ONLY* 1200 !* CONVENIENT LABELS FOR * 1210 !* SOME ASCII CODES AND * 1220 !* SOME DIGITS * 1230 !************************* 1240 ZRO EQU 0 ! WAS ZRO IN HP MANUAL JAS 17/3/03 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