99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0001 Version 2.0 (Weiand 1985) Options : LCSFPF [0001] [0002] *********************************************************** [0003] COPY 'DSK5.MYXB7-A' <0001> TITL 'REA GROM 7' <0002> * <0003> * GROM <0004> * <0005> 0000 G0000 EQU >0000 <0006> 0001 G0001 EQU >0001 <0007> 0010 DSRLNK EQU >0010 <0008> 0012 DSRRET EQU >0012 <0009> 001C BERR EQU >001C <0010> 0038 BGETSS EQU >0038 <0011> 6372 RXB EQU >6372 <0012> * <0013> * CPU <0014> * <0015> 8318 CHRCUR EQU >8318 <0016> 831C PABPTR EQU >831C <0017> 831E COUNT EQU >831E CATALOG COUNT FILES <0018> 8320 CURADD EQU >8320 <0019> 8322 CODE EQU >8322 <0020> 8324 STLN EQU >8324 <0021> 8326 ENDLN EQU >8326 <0022> 8342 XTOKEN EQU >8342 <0023> 8347 LDFLAG EQU >8347 <0024> 8348 FLAG EQU >8348 <0025> 8349 FLAG2 EQU >8349 <0026> 834A FAC EQU >834A <0027> 834B FAC1 EQU >834B <0028> 834C FAC2 EQU >834C <0029> 834D FAC3 EQU >834D <0030> 834E FAC4 EQU >834E <0031> 834F FAC5 EQU >834F <0032> 8350 FAC6 EQU >8350 <0033> 8351 FAC7 EQU >8351 <0034> 8352 FAC8 EQU >8352 <0035> 8353 FAC9 EQU >8353 <0036> 8354 ERCODE EQU >8354 <0037> 8355 FAC11 EQU >8355 <0038> 8356 FAC12 EQU >8356 <0039> 8356 VPAB EQU >8356 <0040> 835C ARG EQU >835C <0041> 836E VSTACK EQU >836E <0042> 8373 SUBSTK EQU >8373 <0043> 8374 KBNO EQU >8374 <0044> 8375 KEY EQU >8375 <0045> 8379 ITIMER EQU >8379 <0046> 837D VCHAR EQU >837D <0047> * <0048> * GENERAL <0049> * <0050> 0001 AID EQU 1 <0051> 0002 CLEAR EQU 2 <0052> 0006 REDO EQU 6 <0053> 000C PROCD EQU 12 <0054> 000D ENTER EQU 13 <0055> 000E BEGIN EQU 14 <0056> 000F BACK EQU 15 <0057> 0020 SPACE EQU 32 <0058> * XML's ************ <0059> 0002 ROUND EQU >02 <0060> 0023 CIF EQU >23 <0061> * VDP ************** <0062> 077F COLOR EQU >077F 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0002 REA GROM 7 <0063> *********************************************************** <0064> GROM >E000 <0065> AORG >0000 <0066> TITL 'E/A GROM' <0067> * GROM Header <0068> E000 AA,10,01 BYTE >AA,>10,>01,>00 E003 00 <0069> * RXB PATCH CODE FOR RXB MODULE * <0070> E004 00,00 DATA >0000 * POWER UP <0071> E006 E0,10 DATA MENU * Cartridge menu <0072> E008 FC,B7 DATA VEIW40 * DSRs <0073> E00A 00,00 DATA >0000 * SUBROUTINES <0074> E00C 00,00,00 DATA >0000,>0000 E00F 00 <0075> E010 00,00 MENU BYTE >00,>00 <0076> E012 E0,25 DATA SOLDEA <0077> E014 10,52,58 STRI 'RXB SUPER E/A ' E017 42,20,53 E01A 55,50,45 E01D 52,20,45 E020 2F,41,20 E023 20,20 <0078> E025 06,E6,DB SOLDEA CALL NESCRN <0079> E028 CA,42,38 OLDEA CHE >38,@XTOKEN <0080> E02B 60,32 BS CLREA <0081> E02D CA,42,31 CHE >31,@XTOKEN <0082> E030 60,37 BS NEWEA <0083> E032 06,EF,65 CLREA CALL CLRREA <0084> E035 86,42 CLR @XTOKEN <0085> E037 87,8F,9D NEWEA DCLR @>2000 E03A 00 <0086> E03B 06,E6,E1 GE029 CALL EASCRN <0087> E03E 86,44 CLR @>8344 * SEARCH FLAG <0088> E040 BF,4A,0B DST >0B00,@FAC E043 00 <0089> E044 06,00,4A CALL UPCASE <0090> E047 86,74 GE056 CLR @KBNO <0091> E049 BF,4A,09 DST >0900,@FAC E04C 00 <0092> E04D 06,00,18 CALL LOCASE <0093> E050 86,A8,00 CLR V@>0800 <0094> E053 35,00,FF MOVE >00FF,V@>0800,V@>0801 E056 A8,01,A8 E059 00 <0095> E05A 39,00,06 MOVE 6,G@VREGS,#1 E05D 01,ED,DC <0096> E060 06,EE,22 CALL BUGS <0097> E063 31,00,10 MOVE 16,G@CURPAT,V@>08F0 E066 A8,F0,ED E069 CC <0098> E06A 31,00,10 MOVE 16,G@DARROW,V@>0C10 E06D AC,10,E1 E070 7F <0099> * <0100> * Display Main Menu <0101> * <0102> E071 BE,73,7E MMENU ST >7E,@SUBSTK <0103> E074 87,22 DCLR @CODE <0104> E076 87,48 DCLR @FLAG <0105> E078 86,47 CLR @LDFLAG <0106> E07A 07,20 ALL SPACE <0107> E07C CA,42,38 GE116 CHE >38,@XTOKEN <0108> E07F 60,86 BS MSCRN <0109> E081 CA,42,31 CHE >31,@XTOKEN 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0003 E/A GROM <0110> E084 61,8F BS MYEAXB <0111> E086 87,7E MSCRN HOME <0112> E088 08 FMT <0113> E089 FF,08 COL 8 <0114> E08B 0F,46,49 HTEX 'FIRMWARE CONTROL' E08E 52,4D,57 E091 41,52,45 E094 20,43,4F E097 4E,54,52 E09A 4F,4C <0115> E09C A0 ROW+ 1 <0116> E09D FF,00 COL 0 <0117> E09F 5F,5F HCHAR 32,95 <0118> E0A1 A0 ROW+ 1 <0119> E0A2 FF,02 COL 2 <0120> E0A4 1C,52,58 HTEX 'RXB Editor & Assembler V=2001' E0A7 42,20,45 E0AA 64,69,74 E0AD 6F,72,20 E0B0 26,20,41 E0B3 73,73,65 E0B6 6D,62,6C E0B9 65,72,20 E0BC 56,3D,32 E0BF 30,30,31 <0121> E0C2 A0 ROW+ 1 <0122> E0C3 FF,00 COL 0 <0123> E0C5 5F,5F HCHA 32,95 <0124> E0C7 A0 ROW+ 1 <0125> E0C8 FF,08 COL 8 <0126> E0CA 11,30,20 HTEX '0 SCREEN COLORS' E0CD 20,20,20 E0D0 53,43,52 E0D3 45,45,4E E0D6 20,43,4F E0D9 4C,4F,52 E0DC 53 <0127> E0DD A1 ROW+ 2 <0128> E0DE FF,08 COL 8 <0129> E0E0 0A,31,20 HTEX '1 EDITOR' E0E3 20,20,20 E0E6 45,44,49 E0E9 54,4F,52 <0130> E0EC A1 ROW+ 2 <0131> E0ED FF,08 COL 8 <0132> E0EF 0D,32,20 HTEX '2 ASSEMBLER' E0F2 20,20,20 E0F5 41,53,53 E0F8 45,4D,42 E0FB 4C,45,52 <0133> E0FE A1 ROW+ 2 <0134> E0FF FF,08 COL 8 <0135> E101 10,33,20 HTEX '3 LOAD and RUN' E104 20,20,20 E107 4C,4F,41 E10A 44,20,61 E10D 6E,64,20 E110 52,55,4E <0136> E113 A1 ROW+ 2 <0137> E114 FF,08 COL 8 <0138> E116 07,34,20 HTEX '4 RUN' E119 20,20,20 E11C 52,55,4E <0139> E11F A1 ROW+ 2 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0004 E/A GROM <0140> E120 FF,08 COL 8 <0141> E122 14,35,20 HTEX '5 RUN PROGRAM FILE' E125 20,20,20 E128 52,55,4E E12B 20,50,52 E12E 4F,47,52 E131 41,4D,20 E134 46,49,4C E137 45 <0142> E138 A1 ROW+ 2 <0143> E139 FF,08 COL 8 <0144> E13B 11,36,20 HTEX '6 R X B LOADER' E13E 20,20,20 E141 52,20,58 E144 20,42,20 E147 20,4C,4F E14A 41,44,45 E14D 52 <0145> E14E A1 ROW+ 2 <0146> E14F FF,08 COL 8 <0147> E151 0D,37,20 HTEX '7 DIRECTORY' E154 20,20,20 E157 44,49,52 E15A 45,43,54 E15D 4F,52,59 <0148> E160 A1 ROW+ 2 <0149> E161 FF,08 COL 8 <0150> E163 09,2E,20 HTEX '. R X B' E166 20,20,20 E169 52,20,58 E16C 20,42 <0151> E16E FB FEND <0152> E16F 03 NEWSCN SCAN <0153> E170 41,6F BR NEWSCN <0154> E172 D6,75,2E CEQ >2E,@KEY <0155> E175 61,7C BS RTRXB <0156> E177 D6,75,0F CEQ BACK,@KEY <0157> E17A 41,99 BR GE11F <0158> E17C 05,63,72 RTRXB B RXB <0159> E17F 00,10,18 DARROW DATA >0010,>18FC,>1810,>0000 * RIGHT ARROW E182 FC,18,10 E185 00,00 <0160> E187 00,20,60 DATA >0020,>60FC,>6020,>0000 * LEFT ARROW E18A FC,60,20 E18D 00,00 <0161> E18F 87,AF,22 MYEAXB DCLR V@>2250 E192 50 <0162> E193 BC,75,42 ST @XTOKEN,@KEY <0163> E196 BE,42,EA ST >EA,@XTOKEN <0164> E199 A6,75,30 GE11F SUB >30,@KEY <0165> E19C CA,75,0A CHE >0A,@KEY <0166> E19F 61,6F BS NEWSCN <0167> E1A1 8A,75 CASE @KEY <0168> E1A3 41,B7 BR COLORS * SCREEN COLOR 0 <0169> E1A5 42,46 BR EDITOR 1 <0170> E1A7 48,2D BR ASSEM 2 <0171> E1A9 49,E4 BR LANDR * EA3 3 <0172> E1AB 4A,59 BR RUN 4 <0173> E1AD 47,16 BR PRGRM * EA5 5 <0174> E1AF 4E,D9 BR XBINP * XBINPT 6 <0175> E1B1 56,C4 BR DIRECT * DIRECTORY 7 <0176> E1B3 40,28 BR OLDEA 8 <0177> E1B5 40,28 BR OLDEA 9 <0178> ******************************* 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0005 E/A GROM <0179> * <0180> E1B7 07,20 COLORS ALL SPACE <0181> E1B9 06,E6,E1 CALL EASCRN <0182> E1BC 08 FMT <0183> E1BD FF,0B COL >0B <0184> E1BF FE,01 ROW 1 <0185> E1C1 09,2A,20 HTEX '* COLORS *' E1C4 43,4F,4C E1C7 4F,52,53 E1CA 20,2A <0186> E1CC FF,03 COL 3 <0187> E1CE A2 ROW+ 3 <0188> E1CF 0D,46,4F HTEX 'FORGROUND = F' E1D2 52,47,52 E1D5 4F,55,4E E1D8 44,20,20 E1DB 3D,20,46 <0189> E1DE FF,03 COL 3 <0190> E1E0 A2 ROW+ 3 <0191> E1E1 0D,42,41 HTEX 'BACKGROUND = B' E1E4 43,4B,47 E1E7 52,4F,55 E1EA 4E,44,20 E1ED 3D,20,42 <0192> E1F0 FF,03 COL 3 <0193> E1F2 A4 ROW+ 5 <0194> E1F3 1A,41,4E HTEX 'ANY OTHER KEY FOR MAIN MENU' E1F6 59,20,4F E1F9 54,48,45 E1FC 52,20,4B E1FF 45,59,20 E202 46,4F,52 E205 20,4D,41 E208 49,4E,20 E20B 4D,45,4E E20E 55 <0195> E20F FB FEND <0196> E210 03 COLSCN SCAN <0197> E211 42,10 BR COLSCN <0198> E213 BC,00,A7 ST V@COLOR,@>8300 * Get COLOR byte E216 7F <0199> E217 E6,00,04 SRL 4,@>8300 * Foreground <0200> E21A BC,01,A7 ST V@COLOR,@>8301 * Get COLOR byte E21D 7F <0201> E21E E2,01,04 SLL 4,@>8301 * Strip left bits <0202> E221 E6,01,04 SRL 4,@>8301 * Restore bits <0203> E224 D6,75,46 CEQ 'F',@KEY <0204> E227 42,2D BR COLBAC <0205> E229 90,00 INC @>8300 * Foreground+1 <0206> E22B 42,3A BR COLEND <0207> E22D D6,75,42 COLBAC CEQ 'B',@KEY <0208> E230 40,3B BR GE029 <0209> E232 90,01 INC @>8301 * Background+1 <0210> E234 E2,01,04 SLL 4,@>8301 * Strip left bits <0211> E237 E6,01,04 SRL 4,@>8301 * Restore bits <0212> E23A E2,00,04 COLEND SLL 4,@>8300 * Restore left bits <0213> E23D A0,00,01 ADD @>8301,@>8300 * Get Background <0214> E240 BC,A7,7F ST @>8300,V@COLOR * Add to COLOR E243 00 <0215> E244 41,B7 BR COLORS <0216> * <0217> * Main Menu Option 1: EDIT <0218> * <0219> E246 06,E6,E1 EDITOR CALL EASCRN 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0006 E/A GROM <0220> E249 87,48 DCLR @FLAG <0221> E24B 86,47 CLR @LDFLAG <0222> E24D 08 FMT <0223> E24E FF,0B COL >0B <0224> E250 FE,01 ROW 1 <0225> E252 09,2A,20 HTEX '* EDITOR *' E255 45,44,49 E258 54,4F,52 E25B 20,2A <0226> E25D A2 ROW+ 3 <0227> E25E FF,03 COL 3 <0228> E260 08,31,20 HTEX '1 LOAD' E263 20,20,20 E266 4C,4F,41 E269 44 <0229> E26A A0 ROW+ 1 <0230> E26B 96 COL+ 23 <0231> E26C 08,32,20 HTEX '2 EDIT' E26F 20,20,20 E272 45,44,49 E275 54 <0232> E276 A0 ROW+ 1 <0233> E277 96 COL+ 23 <0234> E278 08,33,20 HTEX '3 SAVE' E27B 20,20,20 E27E 53,41,56 E281 45 <0235> E282 A0 ROW+ 1 <0236> E283 96 COL+ 23 <0237> E284 09,34,20 HTEX '4 PRINT' E287 20,20,20 E28A 50,52,49 E28D 4E,54 <0238> E28F A0 ROW+ 1 <0239> E290 95 COL+ 22 <0240> E291 09,35,20 HTEX '5 VIEW ' E294 20,20,20 E297 56,49,45 E29A 57,20 <0241> E29C A0 ROW+ 1 <0242> E29D 95 COL+ 22 <0243> E29E 09,36,20 HTEX '6 PURGE' E2A1 20,20,20 E2A4 50,55,52 E2A7 47,45 <0244> E2A9 A0 ROW+ 1 <0245> E2AA 95 COL+ 22 <0246> E2AB FB FEND <0247> E2AC 87,48 DCLR @FLAG <0248> E2AE BE,73,7E ST >7E,@SUBSTK <0249> E2B1 BF,20,00 DST >0082,@CURADD E2B4 82 <0250> E2B5 03 GE19B SCAN <0251> E2B6 42,B5 BR GE19B <0252> E2B8 D6,75,0F CEQ BACK,@KEY <0253> E2BB 60,32 BS CLREA <0254> E2BD A6,75,31 SUB >31,@KEY <0255> E2C0 CA,75,06 CHE >06,@KEY <0256> E2C3 62,B5 BS GE19B <0257> E2C5 BC,00,75 ST @KEY,@>8300 <0258> E2C8 AA,00,40 MUL >40,@>8300 <0259> E2CB A1,20,00 DADD @>8300,@CURADD <0260> E2CE BE,B0,20 ST 130,V*CURADD E2D1 82 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0007 E/A GROM <0261> E2D2 BC,04,75 ST @KEY,@>8304 <0262> E2D5 D6,75,05 CEQ >05,@KEY * PURGE? <0263> E2D8 42,FF BR GE1E4 * No, next check <0264> * Edit Menu Option 6: PURGE <0265> E2DA 08 FMT <0266> E2DB A1 ROW+ 2 <0267> E2DC 13,41,72 HTEX 'Are you sure (Y/N)? ' E2DF 65,20,79 E2E2 6F,75,20 E2E5 73,75,72 E2E8 65,20,28 E2EB 59,2F,4E E2EE 29,3F,20 <0268> E2F1 FB FEND <0269> E2F2 06,E9,B7 CALL YESNO <0270> E2F5 D6,75,59 CEQ >59,@KEY <0271> E2F8 42,46 BR EDITOR <0272> E2FA 06,E7,08 CALL CLRXOP <0273> E2FD 42,46 GE1E2 BR EDITOR <0274> E2FF D6,75,03 GE1E4 CEQ >03,@KEY * PRINT? <0275> E302 63,54 BS GE1FC * YES! <0276> E304 D6,75,04 CEQ >04,@KEY * VIEW <0277> E307 63,54 BS GE1FC <0278> E309 D7,8F,9D DCEQ >55AA,@>2000 * EDIT1 loaded? E30C 00,55,AA <0279> E30F 63,54 BS GE1FC * Yes <0280> E311 35,00,63 MOVE 99,V@>2250,@>EA00 E314 8F,67,00 E317 AF,22,50 <0281> E31A BC,8F,7C ST @XTOKEN,@>FFFB E31D FB,42 <0282> E31F 86,42 CLR @XTOKEN <0283> E321 31,00,08 MOVE 8,G@CUREDP,V@>08F0 E324 A8,F0,ED E327 C4 <0284> E328 06,E7,AE CALL LODPGM * Load EDIT1 <0285> E32B E8,28 DATA DEDIT1 <0286> E32D 06,EE,3C CALL DEVICE <0287> E330 D6,75,0F CEQ BACK,@KEY <0288> E333 62,46 BS EDITOR <0289> E335 BE,47,01 ST 1,@LDFLAG * Set Editor flag <0290> E338 06,E7,D9 GE1F6 CALL PGMLOD <0291> E33B D7,8F,9D DCEQ >55AA,@>2000 E33E 00,55,AA <0292> E341 42,46 BR EDITOR <0293> E343 06,E7,08 CALL CLRXOP <0294> E346 35,00,63 MOVE 99,@>EA00,V@>2250 E349 AF,22,50 E34C 8F,67,00 <0295> E34F BC,42,8F ST @>FFFB,@XTOKEN E352 7C,FB <0296> E354 D6,04,01 GE1FC CEQ >01,@>8304 * Edit? <0297> E357 63,CF BS EMOPT2 * Yes <0298> E359 D6,04,02 CEQ >02,@>8304 * Save? <0299> E35C 43,90 BR GE237 * No <0300> * Edit Menu Option 3: SAVE <0301> E35E 86,42 CLR @XTOKEN <0302> E360 08 FMT <0303> E361 FF,02 COL 2 <0304> E363 FE,10 ROW 16 <0305> E365 12,44,56 HTEX 'DV80 Format (Y/N)? ' E368 38,30,20 E36B 46,6F,72 E36E 6D,61,74 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0008 E/A GROM E371 20,28,59 E374 2F,4E,29 E377 3F,20 <0306> E379 FB FEND <0307> E37A 06,E9,B7 CALL YESNO <0308> E37D D6,75,59 CEQ >59,@KEY <0309> E380 43,85 BR GE22C <0310> E382 B6,49,02 OR >02,@FLAG2 <0311> E385 D6,75,0F GE22C CEQ BACK,@KEY <0312> E388 62,46 BS EDITOR <0313> E38A BF,20,02 DST >0262,@CURADD E38D 62 <0314> E38E 43,9B BR GE23B <0315> E390 BF,20,02 GE237 DST >0202,@CURADD * Print or View or Load E393 02 <0316> E394 35,00,FF MOVE 255,V@>0200,V@>201 E397 A2,01,A2 E39A 00 <0317> E39B 31,00,0A GE23B MOVE 10,G@GE25B,V*CURADD E39E B0,20,E3 E3A1 C5 <0318> E3A2 A3,20,00 DADD >0040,@CURADD E3A5 40 <0319> E3A6 BF,1C,10 DST >1000,@PABPTR E3A9 00 <0320> E3AA 06,E5,1D CALL GETALL <0321> E3AD D6,75,0F CEQ BACK,@KEY * BACK? <0322> E3B0 60,32 BS CLREA <0323> E3B2 D6,04,02 CEQ >02,@>8304 * Save? <0324> E3B5 64,31 BS GE2B5 <0325> E3B7 D6,04,03 CEQ >03,@>8304 * Print? <0326> E3BA 64,55 BS GE2D9 <0327> E3BC D6,04,04 CEQ >04,@>8304 * View? <0328> E3BF 64,06 BS VIT40 <0329> E3C1 8E,04 CZ @>8304 * Load? <0330> E3C3 63,DC BS GE272 <0331> E3C5 46,49,4C GE25B TEXT 'FILE NAME?' E3C8 45,20,4E E3CB 41,4D,45 E3CE 3F <0332> * Edit Menu Option 2: EDIT <0333> E3CF 0F,23 EMOPT2 XML >23 <0334> E3D1 6B,3C BS GE8B0 <0335> E3D3 39,00,01 MOVE 1,G@GE271,#1 E3D6 01,E3,DB <0336> E3D9 42,46 BR EDITOR <0337> E3DB E0 GE271 BYTE >E0 <0338> E3DC 06,E3,E5 GE272 CALL GE27B <0339> E3DF 0F,21 XML >21 <0340> E3E1 6B,3F BS GE8B3 <0341> E3E3 42,46 BR EDITOR <0342> E3E5 BE,E0,01 GE27B ST >04,V@>0001(@PABPTR) E3E8 1C,04 <0343> E3EA B2,49,FD AND >FD,@FLAG2 <0344> E3ED BD,56,1C GE283 DST @PABPTR,@VPAB <0345> E3F0 A3,56,00 DADD >0009,@VPAB E3F3 09 <0346> E3F4 06,00,10 CALL DSRLNK <0347> E3F7 08 BYTE >08 <0348> E3F8 6B,E4 BS CHKERR <0349> E3FA DA,E0,01 CLOG >E0,V@>0001(@PABPTR) E3FD 1C,E0 <0350> E3FF 44,18 BR GE29C <0351> E401 BE,B0,1C ST >02,V*PABPTR 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0009 E/A GROM E404 02 <0352> E405 00 RTN <0353> E406 BE,42,EA VIT40 ST >EA,@XTOKEN <0354> E409 31,00,05 MOVE 5,G@VIEWR,V@>2256 E40C AF,22,56 E40F E4,13 <0355> E411 44,55 BR GE2D9 <0356> E413 03,56,34 VIEWR STRI 'V40' E416 30 <0357> E417 0D BYTE >0D <0358> E418 BC,00,E0 GE29C ST V@>0001(@PABPTR),@>8300 E41B 01,1C <0359> E41D B2,00,1F AND >1F,@>8300 <0360> E420 D6,00,04 CEQ >04,@>8300 <0361> E423 44,2F BR GE2B3 <0362> E425 BE,E0,01 ST >14,V@>0001(@PABPTR) E428 1C,14 <0363> E42A B6,49,02 OR >02,@FLAG2 <0364> E42D 43,ED BR GE283 <0365> E42F 4B,E4 GE2B3 BR CHKERR <0366> E431 BE,E0,01 GE2B5 ST >02,V@>0001(@PABPTR) E434 1C,02 <0367> E436 DA,49,02 CLOG >02,@FLAG2 <0368> E439 64,40 BS GE2C4 <0369> E43B BE,E0,01 ST >12,V@>0001(@PABPTR) E43E 1C,12 <0370> E440 06,E5,6A GE2C4 CALL DOIO <0371> E443 BE,B0,1C ST >03,V*PABPTR E446 03 <0372> E447 BE,E0,05 ST >50,V@>0005(@PABPTR) E44A 1C,50 <0373> E44C 0F,22 XML >22 <0374> E44E 6B,3F BS GE8B3 <0375> E450 06,E5,66 CALL CLOSE <0376> E453 42,46 BR EDITOR <0377> * Edit Menu Option 4 or 5: PRINT or VIEW output <0378> E455 06,E3,E5 GE2D9 CALL GE27B <0379> E458 08 FMT <0380> E459 FF,02 COL 2 <0381> E45B FE,14 ROW 20 <0382> E45D 0B,44,45 HTEX 'DEVICE NAME?' E460 56,49,43 E463 45,20,4E E466 41,4D,45 E469 3F <0383> E46A FB FEND <0384> E46B BF,20,02 DST >02C2,@CURADD * Cursor Address E46E C2 <0385> E46F BF,1C,11 DST >1100,@PABPTR * PAB address E472 00 <0386> E473 D6,04,04 CEQ >04,@>8304 * VIEW? <0387> E476 64,7D BS VFILE * No <0388> E478 86,42 CLR @XTOKEN <0389> E47A 06,EF,65 CALL CLRREA <0390> E47D 06,E5,1D VFILE CALL GETALL <0391> E480 86,42 CLR @XTOKEN <0392> E482 BE,E0,05 ST >50,V@>0005(@PABPTR) E485 1C,50 <0393> E487 BE,E0,01 GE30A ST >12,V@>0001(@PABPTR) E48A 1C,12 <0394> E48C BF,E0,02 DST >1080,V@>0002(@PABPTR) E48F 1C,10,80 <0395> E492 06,E5,6A CALL DOIO <0396> E495 D6,E0,04 CEQ >20,V@>0004(@PABPTR) 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0010 E/A GROM E498 1C,20 <0397> E49A 44,9F BR GE322 <0398> E49C B6,48,02 OR >02,@FLAG <0399> E49F BE,B0,1C GE322 ST >03,V*PABPTR E4A2 03 <0400> E4A3 DA,48,02 CLOG >02,@FLAG <0401> E4A6 65,0A BS GE38D <0402> E4A8 BF,1C,10 GE32B DST >1000,@PABPTR E4AB 00 <0403> E4AC 06,E5,51 CALL BLNKBU <0404> E4AF 06,E5,6A CALL DOIO <0405> E4B2 BF,1C,11 DST >1100,@PABPTR E4B5 00 <0406> E4B6 BF,00,10 DST >1080,@>8300 E4B9 80 <0407> E4BA A3,00,00 DADD >004F,@>8300 E4BD 4F <0408> E4BE BE,02,50 ST >50,@>8302 <0409> E4C1 BC,03,B0 GE344 ST V*>8300,@>8303 E4C4 00 <0410> E4C5 D6,03,20 CEQ >20,@>8303 <0411> E4C8 64,DE BS GE361 <0412> E4CA D6,03,0C CEQ >0C,@>8303 <0413> E4CD 44,DC BR GE35F <0414> E4CF BE,B0,00 ST >20,V*>8300 E4D2 20 <0415> E4D3 06,E5,6A CALL DOIO <0416> E4D6 06,E5,6A CALL DOIO <0417> E4D9 06,E5,6A CALL DOIO <0418> E4DC 44,E4 GE35F BR GE367 <0419> E4DE 93,00 GE361 DDEC @>8300 <0420> E4E0 92,02 DEC @>8302 <0421> E4E2 44,C1 BR GE344 <0422> E4E4 06,E5,6A GE367 CALL DOIO <0423> E4E7 A6,02,20 SUB >20,@>8302 <0424> E4EA CE,02,00 CGT >00,@>8302 <0425> E4ED 44,FD BR GE380 <0426> E4EF A3,E0,02 DADD >0020,V@>0002(@PABPTR) E4F2 1C,00,20 <0427> E4F5 BC,E0,05 ST @>8302,V@>0005(@PABPTR) E4F8 1C,02 <0428> E4FA 05,E4,E4 B GE367 <0429> E4FD BF,E0,02 GE380 DST >1080,V@>0002(@PABPTR) E500 1C,10,80 <0430> E503 BE,E0,05 ST >20,V@>0005(@PABPTR) E506 1C,20 <0431> E508 44,A8 BR GE32B <0432> E50A BF,1C,10 GE38D DST >1000,@PABPTR E50D 00 <0433> E50E 06,E5,51 CALL BLNKBU <0434> E511 06,E5,6A CALL DOIO <0435> E514 BF,1C,11 DST >1100,@PABPTR E517 00 <0436> E518 06,E5,6A CALL DOIO <0437> E51B 45,0A BR GE38D <0438> E51D 06,E5,51 GETALL CALL BLNKBU <0439> * Build PAB with name <0440> E520 06,E5,7F BLDPAB CALL VZERO <0441> E523 BD,E0,02 DST @PABPTR,V@>0002(@PABPTR) E526 1C,1C <0442> E528 A3,E0,02 DADD >0080,V@>0002(@PABPTR) E52B 1C,00,80 <0443> E52E BE,E0,08 ST >00,V@>0008(@PABPTR) E531 1C,00 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0011 E/A GROM <0444> E533 BF,E0,04 DST >5000,V@>0004(@PABPTR) E536 1C,50,00 <0445> E539 87,AF,22 DCLR V@>2250 E53C 50 <0446> E53D 06,E5,8B CALL GETINP <0447> E540 8F,50 DCZ @FAC6 <0448> E542 65,50 BS GE3CF <0449> E544 34,50,E0 PABNAM MOVE @FAC6,V*FAC4,V@>000A(@PABPTR) E547 0A,1C,B0 E54A 4E <0450> E54B BC,E0,09 ST @FAC7,V@>0009(@PABPTR) E54E 1C,51 <0451> E550 00 GE3CF RTN <0452> E551 A3,1C,00 BLNKBU DADD >0080,@PABPTR E554 80 <0453> E555 BE,B0,1C ST >20,V*PABPTR E558 20 <0454> E559 35,00,4F MOVE >004F,V*PABPTR,V@>0001(@PABPTR) E55C E0,01,1C E55F B0,1C <0455> E561 A7,1C,00 DSUB >0080,@PABPTR E564 80 <0456> E565 00 RTN <0457> E566 BE,B0,1C CLOSE ST >01,V*PABPTR E569 01 <0458> E56A BD,56,1C DOIO DST @PABPTR,@VPAB <0459> E56D A3,56,00 DADD >0009,@VPAB E570 09 <0460> E571 06,00,10 CALL DSRLNK <0461> E574 08 BYTE >08 <0462> E575 6B,E4 BS CHKERR <0463> E577 DA,E0,01 CLOG >E0,V@>0001(@PABPTR) E57A 1C,E0 <0464> E57C 4B,E4 BR CHKERR <0465> E57E 00 RTN <0466> E57F 86,B0,1C VZERO CLR V*PABPTR <0467> E582 35,00,45 MOVE >0045,V*PABPTR,V@>0001(@PABPTR) E585 E0,01,1C E588 B0,1C <0468> E58A 00 RTN <0469> E58B 06,E5,BE GETINP CALL GETKEY <0470> E58E BD,20,24 DST @STLN,@CURADD <0471> E591 BE,00,3C ST >3C,@>8300 <0472> E594 87,50 DCLR @FAC6 <0473> E596 D6,B0,20 GE415 CEQ SPACE,V*CURADD E599 20 <0474> E59A 45,AC BR GE42B <0475> E59C 91,20 DINC @CURADD <0476> E59E 92,00 DEC @>8300 <0477> E5A0 45,96 BR GE415 <0478> E5A2 BD,20,24 DST @STLN,@CURADD <0479> E5A5 DA,48,04 CLOG >04,@FLAG <0480> E5A8 45,BD BR GE43C <0481> E5AA 45,8B BR GETINP <0482> E5AC BD,4E,20 GE42B DST @CURADD,@FAC4 <0483> E5AF D6,B0,20 GE42E CEQ SPACE,V*CURADD E5B2 20 <0484> E5B3 65,BD BS GE43C <0485> E5B5 91,50 DINC @FAC6 <0486> E5B7 91,20 DINC @CURADD <0487> E5B9 92,00 DEC @>8300 <0488> E5BB 45,AF BR GE42E <0489> E5BD 00 GE43C RTN <0490> * Key input routine 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0012 E/A GROM <0491> E5BE BE,18,1F GETKEY ST >1F,@CHRCUR <0492> E5C1 BD,26,20 DST @CURADD,@ENDLN <0493> E5C4 BD,24,20 DST @CURADD,@STLN <0494> E5C7 86,79 GE446 CLR @ITIMER <0495> E5C9 C0,18,B0 EX V*CURADD,@CHRCUR E5CC 20 [0004] *********************************************************** [0005] COPY 'DSK5.MYXB7-B' <0001> * REPEAT KEYS <0002> E5CD 03 GE44C SCAN <0003> E5CE 65,F6 BS GE456 <0004> E5D0 CA,79,07 CHE 7,@ITIMER <0005> E5D3 45,CD BR GE44C <0006> E5D5 D6,42,EA CEQ >EA,@XTOKEN * ANYTHING <0007> E5D8 45,C7 BR GE446 <0008> E5DA BD,76,AF PSCANX DST V@>2250,@>8376 E5DD 22,50 <0009> E5DF BC,75,EF ST V@>2257(@>8376),@KEY E5E2 22,57,76 <0010> E5E5 91,76 DINC @>8376 <0011> E5E7 BD,AF,22 DST @>8376,V@>2250 E5EA 50,76 <0012> E5EC D4,AF,22 CEQ @>8376,V@>2256 E5EF 56,76 <0013> E5F1 45,F6 BR GE456 <0014> E5F3 BE,75,0D ST >0D,@KEY * Store ENTER <0015> E5F6 D6,B0,20 GE456 CEQ >1F,V*CURADD E5F9 1F <0016> E5FA 46,00 BR GE460 <0017> E5FC C0,18,B0 EX V*CURADD,@CHRCUR E5FF 20 <0018> E600 BD,00,20 GE460 DST @CURADD,@>8300 <0019> E603 A5,00,24 DSUB @STLN,@>8300 <0020> E606 C6,75,19 CH >19,@KEY * SPACE key and higher? <0021> E609 66,21 BS GE46B <0022> E60B D6,75,07 CEQ 7,@KEY * FCTN 3? <0023> E60E 46,3B BR GE485 <0024> E610 BE,B0,24 ST SPACE,V*STLN E613 20 <0025> E614 35,00,3F MOVE >003F,V*STLN,V@1(@STLN) E617 E0,01,24 E61A B0,24 <0026> E61C BD,20,24 DST @STLN,@CURADD <0027> E61F 45,BE BR GETKEY <0028> E621 DA,48,01 GE46B CLOG >01,@FLAG <0029> E624 46,93 BR GE4DD <0030> E626 BC,B0,20 GE470 ST @KEY,V*CURADD E629 75 <0031> E62A C5,20,26 DCH @ENDLN,@CURADD <0032> E62D 46,32 BR GE47C <0033> E62F BD,26,20 DST @CURADD,@ENDLN <0034> E632 C6,01,3F GE47C CH >3F,@>8301 <0035> E635 65,C7 BS GE446 <0036> E637 91,20 DINC @CURADD <0037> E639 45,C7 BR GE446 <0038> E63B B2,48,FE GE485 AND >FE,@FLAG <0039> E63E D6,75,0F CEQ BACK,@KEY <0040> E641 46,4F BR GE499 <0041> E643 DA,48,20 CLOG >20,@FLAG <0042> E646 40,32 BR CLREA * GE97F <0043> E648 DA,48,04 CLOG >04,@FLAG <0044> E64B 40,32 BR CLREA <0045> E64D 42,46 BR EDITOR <0046> E64F D6,75,09 GE499 CEQ >09,@KEY 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0013 E/A GROM <0047> E652 66,32 BS GE47C <0048> E654 D6,75,08 CEQ >08,@KEY <0049> E657 46,61 BR GE4AB <0050> E659 8E,01 CZ @>8301 <0051> E65B 65,C7 BS GE446 <0052> E65D 93,20 DDEC @CURADD <0053> E65F 45,C7 BR GE446 <0054> E661 D6,75,0D GE4AB CEQ >0D,@KEY <0055> E664 66,B9 BS GE503 <0056> E666 D6,75,03 CEQ >03,@KEY <0057> E669 46,89 BR GE4D3 <0058> E66B BE,B0,20 ST SPACE,V*CURADD E66E 20 <0059> E66F BD,00,26 DST @ENDLN,@>8300 <0060> E672 A5,00,20 DSUB @CURADD,@>8300 <0061> E675 CE,01,00 CGT >00,@>8301 <0062> E678 45,C7 BR GE446 <0063> E67A 34,00,B0 MOVE @>8300,V@>0001(@CURADD),V*CURADD E67D 20,E0,01 E680 20 <0064> E681 BE,B0,26 ST SPACE,V*ENDLN E684 20 <0065> E685 93,26 DDEC @ENDLN <0066> E687 45,C7 BR GE446 <0067> E689 D6,75,04 GE4D3 CEQ >04,@KEY <0068> E68C 46,B7 BR GE501 <0069> E68E B6,48,01 OR >01,@FLAG <0070> E691 45,C7 BR GE446 <0071> E693 BD,00,26 GE4DD DST @ENDLN,@>8300 <0072> E696 A5,00,24 DSUB @STLN,@>8300 <0073> E699 C6,01,3F CH >3F,@>8301 <0074> E69C 65,C7 BS GE446 <0075> E69E BD,00,26 DST @ENDLN,@>8300 <0076> E6A1 A5,00,20 DSUB @CURADD,@>8300 <0077> E6A4 91,00 DINC @>8300 <0078> E6A6 34,00,A3 MOVE @>8300,V*CURADD,V@>03C0 E6A9 C0,B0,20 <0079> E6AC 34,00,E0 MOVE @>8300,V@>03C0,V@>0001(@CURADD) E6AF 01,20,A3 E6B2 C0 <0080> E6B3 91,26 DINC @ENDLN <0081> E6B5 46,26 BR GE470 <0082> E6B7 45,C7 GE501 BR GE446 <0083> E6B9 00 GE503 RTN <0084> * Check for Expansion Memory <0085> E6BA BC,00,8F EXPMEM ST @>2000,@>8300 E6BD 9D,00 <0086> E6BF BE,8F,9D ST >FF,@>2000 E6C2 00,FF <0087> E6C4 D6,8F,9D CEQ >FF,@>2000 E6C7 00,FF <0088> E6C9 4B,A4 BR GE91D <0089> E6CB 86,8F,9D CLR @>2000 E6CE 00 <0090> E6CF 8E,8F,9D CZ @>2000 E6D2 00 <0091> E6D3 4B,A4 BR GE91D <0092> E6D5 BC,8F,9D ST @>8300,@>2000 E6D8 00,00 <0093> E6DA 00 RTN <0094> E6DB 04,F4 NESCRN BACK >F4 <0095> E6DD BE,A7,7F ST >F4,V@COLOR E6E0 F4 <0096> E6E1 BE,A3,00 EASCRN ST >D0,V@>0300 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0014 E/A GROM E6E4 D0 <0097> E6E5 BC,A3,80 ST V@COLOR,V@>0380 E6E8 A7,7F <0098> E6EA 35,00,1F MOVE 31,V@>0380,V@>0381 E6ED A3,81,A3 E6F0 80 <0099> E6F1 07,20 ALL SPACE <0100> E6F3 3D,00,01 MOVE 1,V@COLOR,#7 E6F6 07,A7,7F <0101> E6F9 00 RTN <0102> E6FA BE,A3,80 USSCRN ST >13,V@>0380 E6FD 13 <0103> E6FE 35,00,1F MOVE 31,V@>0380,V@>0381 E701 A3,81,A3 E704 80 <0104> E705 07,20 ALL SPACE <0105> E707 00 RTN <0106> E708 86,8F,7C CLRXOP CLR @>FFD8 E70B D8 <0107> E70C 35,00,05 MOVE 5,@>FFD8,@>FFD9 E70F 8F,7C,D9 E712 8F,7C,D8 <0108> E715 00 RTN <0109> * <0110> * Main Menu Option 5: RUN PROGRAM FILE <0111> * <0112> E716 07,20 PRGRM ALL SPACE <0113> E718 08 FMT <0114> E719 FF,06 COL 6 <0115> E71B FE,01 ROW 1 <0116> E71D 13,2A,20 HTEX '* RUN PROGRAM FILE *' E720 52,55,4E E723 20,50,52 E726 4F,47,52 E729 41,4D,20 E72C 46,49,4C E72F 45,20,2A <0117> E732 FB FEND <0118> E733 D6,42,FF CEQ >FF,@XTOKEN <0119> E736 47,44 BR NOEABF <0120> E738 35,00,40 MOVE 64,V@>2400,V@>2255 E73B AF,22,55 E73E AF,24,00 <0121> E741 BE,42,EA ST >EA,@XTOKEN <0122> E744 06,ED,E2 NOEABF CALL BINIT2 * INITILIZE LOW8K <0123> E747 B6,49,08 OR >08,@FLAG2 <0124> E74A BF,20,01 DST >0102,@CURADD E74D 02 <0125> E74E 31,00,0A MOVE 10,G@GE25B,V*CURADD * FILE NAME? E751 B0,20,E3 E754 C5 <0126> E755 A3,20,00 DADD >0040,@CURADD E758 40 <0127> E759 B6,48,04 OR >04,@FLAG <0128> E75C 06,E5,8B CALL GETINP <0129> E75F D6,51,01 CEQ 1,@FAC7 <0130> E762 47,85 BR NO1KEY <0131> E764 BF,AF,24 DST >000B,V@>2400 E767 00,00,0B <0132> E76A 31,00,05 MOVE 5,G@DDSK1,V@>2402 E76D AF,24,02 E770 E8,23 <0133> E772 BC,AF,24 ST V*STLN,V@>2405 E775 05,B0,24 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0015 E/A GROM <0134> E778 31,00,06 MOVE 6,G@DUTIL1,V@>2407 E77B AF,24,07 E77E EE,17 <0135> E780 BE,42,FF ST >FF,@XTOKEN <0136> E783 47,16 BR PRGRM <0137> E785 8F,50 NO1KEY DCZ @FAC6 * ENTER? <0138> E787 47,93 BR GE597 * No <0139> E789 BE,44,31 ST '1',@>8344 * Search flag <0140> E78C 06,E7,AE MYSRCH CALL LODPGM * Load DATA <0141> E78F EE,17 DATA DUTIL1 * DSK1.UTIL1 <0142> E791 47,A2 BR GE5A6 <0143> E793 06,E7,BB GE597 CALL LODUSR <0144> E796 06,E5,44 CALL PABNAM <0145> E799 D7,B0,4E DCEQ >4353,V*FAC4 * CS ?? E79C 43,53 <0146> E79E 47,A2 BR GE5A6 * ????? <0147> E7A0 07,20 ALL SPACE <0148> E7A2 06,E7,D9 GE5A6 CALL PGMLOD <0149> E7A5 06,E6,FA CALL USSCRN <0150> E7A8 0F,F0 XML >F0 <0151> E7AA 6B,6F BS GE8E3 <0152> E7AC 4B,34 BR GE8A8 <0153> E7AE 88,10 LODPGM FETCH @>8310 <0154> E7B0 88,11 FETCH @>8311 <0155> E7B2 33,00,05 MOVE 5,G@G0000(@>8310),V@>100F E7B5 AF,10,0F E7B8 00,00,10 <0156> E7BB 87,00 LODUSR DCLR @>8300 <0157> E7BD BF,1C,10 DST >1000,@PABPTR E7C0 00 <0158> E7C1 31,00,0F MOVE 15,G@PAB,V*PABPTR E7C4 B0,1C,E8 E7C7 19 <0159> E7C8 8E,44 CZ @>8344 * Check Search flag <0160> E7CA 67,D1 BS PMSG * No, go on <0161> E7CC BC,E0,0D ST @>8344,V@13(@PABPTR) * Yes, store next drive # E7CF 1C,44 <0162> E7D1 31,00,0F PMSG MOVE 15,G@PLEASE,V@>02A2 E7D4 A2,A2,E9 E7D7 A8 <0163> E7D8 00 RTN <0164> * Load Program <0165> E7D9 06,E5,6A PGMLOD CALL DOIO <0166> E7DC 35,00,06 MOVE 6,V@>1380,@>8310 E7DF 10,AF,13 E7E2 80 <0167> E7E3 8F,00 DCZ @>8300 <0168> E7E5 47,EA BR GE5E5 <0169> E7E7 BD,00,14 DST @>8314,@>8300 <0170> E7EA A7,14,83 GE5E5 DSUB >8300,@>8314 E7ED 00 <0171> E7EE 34,12,C0 MOVE @>8312,V@>1386,@>8300(@>8314) E7F1 00,14,AF E7F4 13,86 <0172> E7F6 8F,10 DCZ @>8310 <0173> E7F8 68,0A BS GE605 <0174> E7FA 87,02 DCLR @>8302 <0175> E7FC BC,03,AF ST V@>1009,@>8303 E7FF 10,09 <0176> E801 A3,02,10 DADD >1009,@>8302 E804 09 <0177> E805 90,B0,02 INC V*>8302 <0178> E808 47,D9 BR PGMLOD <0179> E80A BE,A2,A2 GE605 ST SPACE,V@>02A2 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0016 E/A GROM E80D 20 <0180> E80E 35,00,13 MOVE 19,V@>02A2,V@>02A3 E811 A2,A3,A2 E814 A2 <0181> E815 06,E5,7F CALL VZERO <0182> E818 00 RTN <0183> E819 05,00,13 PAB BYTE >05,>00,>13,>80,>00,>00,>21,>00 E81C 80,00,00 E81F 21,00 <0184> E821 00,0A DLEN BYTE >00,>0A <0185> E823 44,53,4B DDSK1 TEXT 'DSK1.' E826 31,2E <0186> E828 45,44,49 DEDIT1 TEXT 'EDIT1' E82B 54,31 <0187> *********************************************************** <0188> * <0189> * Main Menu Option 2: ASSEMBLER <0190> * <0191> E82D 07,20 ASSEM ALL SPACE <0192> E82F 08 FMT <0193> E830 FF,0A COL 10 <0194> E832 FE,01 ROW 1 <0195> E834 0C,2A,20 HTEX '* ASSEMBLER *' E837 41,53,53 E83A 45,4D,42 E83D 4C,45,52 E840 20,2A <0196> E842 FB FEND <0197> E843 87,48 DCLR @FLAG <0198> E845 86,47 CLR @LDFLAG <0199> E847 BE,73,7E ST >7E,@SUBSTK <0200> E84A B6,48,20 OR >20,@FLAG <0201> E84D D7,8F,9D DCEQ >AA55,@>2000 E850 00,AA,55 <0202> E853 68,80 BS GE687 <0203> E855 35,00,63 MOVE 99,V@>2250,@>EA00 E858 8F,67,00 E85B AF,22,50 <0204> E85E BC,8F,7C ST @XTOKEN,@>FFFB E861 FB,42 <0205> E863 86,42 CLR @XTOKEN <0206> E865 06,E7,AE CALL LODPGM <0207> E868 EE,12 DATA DASSM1 <0208> E86A 06,EE,3C CALL DEVICE <0209> E86D D6,75,0F CEQ BACK,@KEY <0210> E870 60,32 BS CLREA <0211> E872 BE,47,02 ST 2,@LDFLAG <0212> E875 06,E7,D9 GE654 CALL PGMLOD <0213> E878 D7,8F,9D DCEQ >AA55,@>2000 E87B 00,AA,55 <0214> E87E 48,2D BR ASSEM <0215> * CALL FILES (4) <0216> E880 BF,AF,13 GE687 DST >0116,V@>1380 E883 80,01,16 <0217> E886 BF,56,13 DST >1380,@VPAB E889 80 <0218> E88A BE,4C,04 ST >04,@FAC2 <0219> E88D 06,00,10 CALL DSRLNK <0220> E890 0A BYTE >0A <0221> E891 35,00,63 MOVE 99,@>EA00,V@>2250 E894 AF,22,50 E897 8F,67,00 <0222> E89A BC,42,8F ST @>FFFB,@XTOKEN E89D 7C,FB 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0017 E/A GROM <0223> E89F 07,20 ALL 32 <0224> E8A1 08 FMT <0225> E8A2 FF,0A COL 10 <0226> E8A4 FE,01 ROW 1 <0227> E8A6 0C,2A,20 HTEX '* ASSEMBLER *' E8A9 41,53,53 E8AC 45,4D,42 E8AF 4C,45,52 E8B2 20,2A <0228> E8B4 FF,02 COL 2 <0229> E8B6 FE,04 ROW 4 <0230> E8B8 10,53,6F HTEX 'Source File Name?' E8BB 75,72,63 E8BE 65,20,46 E8C1 69,6C,65 E8C4 20,4E,61 E8C7 6D,65,3F <0231> E8CA FB FEND <0232> E8CB BF,1C,10 DST >1000,@PABPTR E8CE 00 <0233> E8CF BF,20,00 DST >00C2,@CURADD E8D2 C2 <0234> E8D3 06,E5,20 CALL BLDPAB <0235> E8D6 D6,75,0F CEQ BACK,@KEY * BACK? <0236> E8D9 60,32 BS CLREA <0237> E8DB BF,E0,02 DST >1080,V@>0002(@PABPTR) E8DE 1C,10,80 <0238> E8E1 06,E3,E5 CALL GE27B <0239> E8E4 86,42 CLR @XTOKEN <0240> E8E6 08 FMT <0241> E8E7 FF,02 COL 2 <0242> E8E9 FE,08 ROW 8 <0243> E8EB 10,4F,62 HTEX 'Object File Name?' E8EE 6A,65,63 E8F1 74,20,46 E8F4 69,6C,65 E8F7 20,4E,61 E8FA 6D,65,3F <0244> E8FD FB FEND <0245> E8FE BF,1C,11 DST >1100,@PABPTR E901 00 <0246> E902 BF,20,01 DST >0142,@CURADD E905 42 <0247> E906 06,E5,20 CALL BLDPAB <0248> E909 BE,E0,01 ST >00,V@>0001(@PABPTR) E90C 1C,00 <0249> E90E BF,E0,02 DST >1180,V@>0002(@PABPTR) E911 1C,11,80 <0250> E914 06,E5,6A CALL DOIO <0251> E917 B6,48,40 OR >40,@FLAG <0252> E91A 08 FMT <0253> E91B FF,02 COL 2 <0254> E91D FE,0C ROW 12 <0255> E91F 0E,4C,69 HTEX 'List File Name?' E922 73,74,20 E925 46,69,6C E928 65,20,4E E92B 61,6D,65 E92E 3F <0256> E92F FB FEND <0257> E930 BF,1C,12 DST >1200,@PABPTR E933 00 <0258> E934 B6,48,04 OR >04,@FLAG <0259> E937 BF,20,01 DST >01C2,@CURADD 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0018 E/A GROM E93A C2 <0260> E93B 06,E5,20 CALL BLDPAB <0261> E93E 8F,50 DCZ @FAC6 <0262> E940 69,53 BS GE736 <0263> E942 BE,E0,01 ST >12,V@>0001(@PABPTR) E945 1C,12 <0264> E947 BF,E0,02 DST >1280,V@>0002(@PABPTR) E94A 1C,12,80 <0265> E94D 06,E5,6A CALL DOIO <0266> E950 B6,48,80 OR >80,@FLAG <0267> E953 08 GE736 FMT <0268> E954 FF,02 COL 2 <0269> E956 FE,10 ROW 16 <0270> E958 07,4F,70 HTEX 'Options?' E95B 74,69,6F E95E 6E,73,3F <0271> E961 FB FEND <0272> E962 BF,20,02 DST >0242,@CURADD E965 42 <0273> E966 06,E5,8B CALL GETINP <0274> E969 B2,48,FB AND >FB,@FLAG <0275> E96C 8F,50 DCZ @FAC6 <0276> E96E 49,73 BR GE756 <0277> E970 BD,4E,20 DST @CURADD,@FAC4 <0278> E973 35,00,0F GE756 MOVE 15,V*FAC4,@>20D2 E976 8F,9D,D2 E979 B0,4E <0279> E97B 06,E7,08 CALL CLRXOP <0280> E97E 07,20 ALL SPACE <0281> E980 0F,21 XML >21 <0282> E982 6B,3F BS GE8B3 <0283> E984 06,E7,08 GE767 CALL CLRXOP <0284> E987 BF,1C,10 DST >1000,@PABPTR E98A 00 <0285> E98B 06,E5,66 CALL CLOSE <0286> E98E BF,1C,11 DST >1100,@PABPTR E991 00 <0287> E992 06,E5,66 CALL CLOSE <0288> E995 DA,48,80 CLOG >80,@FLAG <0289> E998 69,A1 BS GE784 <0290> E99A BF,1C,12 DST >1200,@PABPTR E99D 00 <0291> E99E 06,E5,66 CALL CLOSE <0292> E9A1 86,48 GE784 CLR @FLAG <0293> E9A3 06,EC,C4 CALL WENTER <0294> E9A6 40,28 BR OLDEA <0295> E9A8 50,6C,65 PLEASE TEXT 'Please wait ...' E9AB 61,73,65 E9AE 20,77,61 E9B1 69,74,20 E9B4 2E,2E,2E <0296> * Get Yes/No reply <0297> E9B7 BE,18,1F YESNO ST >1F,@CHRCUR <0298> E9BA 86,79 GE7A2 CLR @ITIMER <0299> E9BC C0,18,7D EX @VCHAR,@CHRCUR <0300> E9BF BE,74,03 GE7A7 ST >03,@KBNO <0301> E9C2 03 SCAN <0302> E9C3 69,CC BS GE7B1 <0303> E9C5 CA,79,06 CHE >06,@ITIMER <0304> E9C8 49,BF BR GE7A7 <0305> E9CA 49,BA BR GE7A2 <0306> E9CC D6,75,0F GE7B1 CEQ BACK,@KEY <0307> E9CF 69,DB BS GE7C0 <0308> E9D1 D6,75,59 CEQ >59,@KEY 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0019 E/A GROM <0309> E9D4 69,DB BS GE7C0 <0310> E9D6 D6,75,4E CEQ >4E,@KEY <0311> E9D9 49,BA BR GE7A2 <0312> E9DB BC,7D,75 GE7C0 ST @KEY,@VCHAR <0313> E9DE BE,74,05 ST >05,@KBNO <0314> E9E1 86,42 CLR @XTOKEN <0315> E9E3 00 RTN <0316> * <0317> * Main Menu Option 3: LOAD AND RUN <0318> * <0319> E9E4 87,48 LANDR DCLR @FLAG <0320> E9E6 B6,49,01 OR >01,@FLAG2 <0321> E9E9 07,20 ALL SPACE <0322> E9EB 08 FMT <0323> E9EC FF,08 COL 8 <0324> E9EE FE,00 ROW 0 <0325> E9F0 0F,2A,20 HTEX '* LOAD and RUN *' E9F3 4C,4F,41 E9F6 44,20,61 E9F9 6E,64,20 E9FC 52,55,4E E9FF 20,2A <0326> EA01 89 COL+ 10 <0327> EA02 A1 ROW+ 2 <0328> EA03 09,46,49 HTEX 'FILE NAME?' EA06 4C,45,20 EA09 4E,41,4D EA0C 45,3F <0329> EA0E FB FEND <0330> EA0F 06,E6,BA CALL EXPMEM <0331> EA12 B6,49,40 OR >40,@FLAG2 <0332> EA15 BE,A0,A2 GE7F2 ST SPACE,V@162 EA18 20 <0333> EA19 35,00,3B MOVE >003B,V@162,V@163 EA1C A0,A3,A0 EA1F A2 <0334> EA20 BF,20,00 DST 162,@CURADD EA23 A2 <0335> EA24 B6,48,04 OR >04,@FLAG <0336> EA27 BF,1C,10 DST >1000,@PABPTR EA2A 00 <0337> EA2B 06,E5,1D CALL GETALL <0338> EA2E 86,42 CLR @XTOKEN <0339> EA30 8F,50 DCZ @FAC6 <0340> EA32 4A,3B BR GE816 <0341> EA34 06,ED,E2 CALL BINIT2 <0342> EA37 4A,59 BR RUN <0343> EA39 4A,46 BR GE821 <0344> EA3B DA,49,40 GE816 CLOG >40,@FLAG2 <0345> EA3E 6A,46 BS GE821 <0346> EA40 06,ED,EA CALL BINIT3 <0347> EA43 B2,49,BF AND >BF,@FLAG2 <0348> EA46 BE,E0,01 GE821 ST >04,V@>0001(@PABPTR) EA49 1C,04 <0349> EA4B BD,56,1C GE826 DST @PABPTR,@VPAB <0350> EA4E A3,56,00 DADD >0009,@VPAB EA51 09 <0351> EA52 0F,22 XML >22 <0352> EA54 6B,3F BS GE8B3 <0353> EA56 05,EA,15 B GE7F2 <0354> * <0355> * Main Menu Option 4: RUN <0356> * <0357> EA59 07,20 RUN ALL SPACE 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0020 E/A GROM <0358> EA5B BE,73,7E GE848 ST >7E,@SUBSTK <0359> EA5E 08 FMT <0360> EA5F FE,00 ROW 0 <0361> EA61 FF,02 COL 2 <0362> EA63 06,2A,20 HTEX '* RUN *' EA66 52,55,4E EA69 20,2A <0363> EA6B A1 ROW+ 2 <0364> EA6C FF,02 COL 2 <0365> EA6E 0C,50,52 HTEX 'PROGRAM NAME?' EA71 4F,47,52 EA74 41,4D,20 EA77 4E,41,4D EA7A 45,3F <0366> EA7C FB FEND <0367> EA7D 06,E6,BA CALL EXPMEM <0368> EA80 86,42 CLR @XTOKEN <0369> EA82 BF,06,00 DST 194,@>8306 * Screen location LOCATION EA85 C2 <0370> EA86 BF,08,3F DST >3FF8,@>8308 * Locataion of LINK TABLE EA89 F8 <0371> EA8A BD,02,08 FNDLNK DST @>8308,@>8302 * Copy it. <0372> EA8D BE,04,06 ST 6,@>8304 * Length of each name. <0373> EA90 CA,CF,7D FNDLP CHE 128,@0(@>8302) * ~? EA93 00,02,80 <0374> EA96 6A,ED BS FNDDON * Yes, done. <0375> EA98 CA,CF,7D CHE 32,@0(@>8302) * Space or higher? EA9B 00,02,20 <0376> EA9E 4A,ED BR FNDDON * No, done. <0377> EAA0 D6,CF,7D CEQ 32,@0(@>8302) * Space? EAA3 00,02,20 <0378> EAA6 4A,AD BR FNDSHO * No. <0379> EAA8 D6,04,06 CEQ 6,@>8304 * 6? <0380> EAAB 6A,ED BS FNDDON * Yes. <0381> EAAD BC,E0,00 FNDSHO ST @0(@>8302),V@0(@>8306) EAB0 06,CF,7D EAB3 00,02 <0382> EAB5 91,06 DINC @>8306 * COL+1 <0383> EAB7 CB,06,03 DCHE 768,@>8306 * End of screen? EABA 00 <0384> EABB 4A,DC BR MORSCN <0385> EABD 31,00,14 MOVE 20,G@OUTSCN,V@>8 EAC0 A0,08,EA EAC3 CA <0386> EAC4 06,00,36 CALL BADTON <0387> EAC7 05,EA,ED B FNDDON <0388> EACA 2A,20,37 OUTSCN TEXT '* 72 NAMES SHOWN *' EACD 32,20,4E EAD0 41,4D,45 EAD3 53,20,53 EAD6 48,4F,57 EAD9 4E,20,2A <0389> EADC 91,02 MORSCN DINC @>8302 * Next character. <0390> EADE 92,04 DEC @>8304 * Length-1 <0391> EAE0 4A,90 BR FNDLP * No, keep looping. <0392> EAE2 95,06 DINCT @>8306 * Reset next column <0393> EAE4 A7,08,00 DSUB 8,@>8308 * Link Table Address+8 EAE7 08 <0394> EAE8 D6,08,00 CEQ >2600,@>8308 * Last Table name? <0395> EAEB 4A,8A BR FNDLNK * No <0396> EAED BF,20,00 FNDDON DST 130,@CURADD * Yes, screen input address EAF0 82 <0397> EAF1 B6,48,04 OR >04,@FLAG <0398> EAF4 06,E5,8B CALL GETINP 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0021 E/A GROM <0399> EAF7 8F,50 DCZ @FAC6 <0400> EAF9 6B,11 BS GE883 <0401> EAFB BD,20,4E DST @FAC4,@CURADD <0402> EAFE C7,50,00 DCH >0006,@FAC6 EB01 06 <0403> EB02 6B,CB BS GE944 <0404> EB04 BE,4A,20 ST SPACE,@FAC <0405> EB07 35,00,05 MOVE 5,@FAC,@FAC1 EB0A 4B,4A <0406> EB0C 34,50,4A MOVE @FAC6,V*CURADD,@FAC EB0F B0,20 <0407> EB11 D7,8F,9D GE883 DCEQ >A55A,@>2000 EB14 00,A5,5A <0408> EB17 4B,9D BR GE916 <0409> EB19 06,E6,FA CALL USSCRN <0410> EB1C 87,22 GE88E DCLR @CODE <0411> EB1E 0F,21 XML >21 <0412> EB20 6B,6F BS GE8E3 <0413> EB22 DA,49,20 CLOG >20,@FLAG2 <0414> EB25 6B,31 BS GE8A3 <0415> EB27 94,73 INCT @SUBSTK <0416> EB29 BF,90,73 DST GE88E,*SUBSTK EB2C EB,1C <0417> EB2E 94,73 INCT @SUBSTK <0418> EB30 00 RTN <0419> EB31 05,EB,34 GE8A3 B GE8A8 <0420> EB34 06,E6,E1 GE8A8 CALL EASCRN <0421> EB37 06,EC,C4 CALL WENTER <0422> EB3A 40,3B BR GE029 <0423> EB3C 06,E6,E1 GE8B0 CALL EASCRN <0424> EB3F 06,EB,88 GE8B3 CALL GE8FC <0425> EB42 CA,22,08 CHE >08,@CODE <0426> EB45 4B,E4 BR CHKERR <0427> EB47 A6,22,08 SUB >08,@CODE <0428> EB4A C6,22,05 CH >05,@CODE <0429> EB4D 6B,60 BS GE8D4 <0430> EB4F 06,EC,30 CALL CLSALL <0431> EB52 8A,22 CASE @CODE <0432> EB54 4B,96 BR GE90F <0433> EB56 4B,8F BR GE908 <0434> EB58 4B,AF BR GE928 <0435> EB5A 4B,B6 BR GE92F <0436> EB5C 4B,BD BR GE936 <0437> EB5E 4B,C4 BR GE93D <0438> EB60 DA,48,20 GE8D4 CLOG >20,@FLAG <0439> EB63 49,84 BR GE767 <0440> EB65 DA,49,01 CLOG >01,@FLAG2 <0441> EB68 49,E4 BR LANDR <0442> EB6A 06,EC,4D CALL CLSPAB <0443> EB6D 42,46 BR EDITOR <0444> EB6F 06,EB,88 GE8E3 CALL GE8FC <0445> EB72 06,E6,E1 CALL EASCRN <0446> EB75 D6,22,0F CEQ >0F,@CODE <0447> EB78 4B,81 BR GE8F5 <0448> EB7A 06,EC,6D CALL ERRMSG <0449> EB7D ED,B2 DATA ERRPNF <0450> EB7F 4B,D0 BR GE949 <0451> EB81 06,EC,6D GE8F5 CALL ERRMSG <0452> EB84 ED,48 DATA ERRC <0453> EB86 40,3B BR GE029 <0454> EB88 39,00,01 GE8FC MOVE 1,G@GE271,#1 EB8B 01,E3,DB <0455> EB8E 00 GE907 RTN <0456> EB8F 06,EC,61 GE908 CALL WRNMSG 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0022 E/A GROM <0457> EB92 ED,53 DATA CCRMSG <0458> EB94 4B,60 BR GE8D4 <0459> EB96 06,EC,6D GE90F CALL ERRMSG <0460> EB99 ED,0B DATA ERRMF <0461> EB9B 4B,60 BR GE8D4 <0462> EB9D 06,EC,6D GE916 CALL ERRMSG <0463> EBA0 ED,B2 DATA ERRPNF <0464> EBA2 40,28 BR OLDEA <0465> EBA4 DA,48,08 GE91D CLOG >08,@FLAG <0466> EBA7 4B,A9 BR GE9E2 <0467> EBA9 06,EC,6D GE9E2 CALL ERRMSG <0468> EBAC ED,26 DATA ERRNME <0469> EBAE 0B EXIT <0470> EBAF 06,EC,6D GE928 CALL ERRMSG <0471> EBB2 ED,6D DATA ERRIT <0472> EBB4 49,E4 BR LANDR <0473> EBB6 06,EC,6D GE92F CALL ERRMSG <0474> EBB9 ED,79 DATA ERRCE <0475> EBBB 49,E4 BR LANDR <0476> EBBD 06,EC,6D GE936 CALL ERRMSG <0477> EBC0 ED,88 DATA ERRDD <0478> EBC2 49,E4 BR LANDR <0479> EBC4 06,EC,6D GE93D CALL ERRMSG <0480> EBC7 ED,9D DATA ERRUR <0481> EBC9 49,E4 BR LANDR <0482> EBCB 06,EC,6D GE944 CALL ERRMSG <0483> EBCE ED,3A DATA ERRNTL <0484> EBD0 8F,50 GE949 DCZ @FAC6 <0485> EBD2 6B,DF BS GE958 <0486> EBD4 BE,B0,4E ST SPACE,V*FAC4 EBD7 20 <0487> EBD8 34,50,E0 MOVE @FAC6,V*FAC4,V@>0001(@FAC4) EBDB 01,4E,B0 EBDE 4E <0488> EBDF 06,EC,D4 GE958 CALL CLRMSG <0489> EBE2 4A,5B BR GE848 [0006] *********************************************************** [0007] COPY 'DSK5.MYXB7-C' <0001> EBE4 8E,44 CHKERR CZ @>8344 * Check Search flag <0002> EBE6 6B,EF BS CHKER2 * Yes, normal error <0003> EBE8 90,44 INC @>8344 * Drive # + 1 <0004> EBEA D6,44,3A CEQ 58,@>8344 * Last drive? <0005> EBED 47,8C BR MYSRCH * No, continue Search <0006> EBEF BC,4E,E0 CHKER2 ST V@>0001(@PABPTR),@FAC4 EBF2 01,1C <0007> EBF4 B2,4E,E0 AND >E0,@FAC4 <0008> EBF7 E6,4E,05 SRL >05,@FAC4 <0009> EBFA B6,4E,30 OR >30,@FAC4 <0010> EBFD B2,E0,01 AND >1F,V@>0001(@PABPTR) EC00 1C,1F <0011> EC02 D6,4E,35 CEQ >35,@FAC4 Error Read past EOF <0012> EC05 4C,0D BR GE97A <0013> EC07 06,EC,30 CALL CLSALL <0014> EC0A 05,E2,46 B EDITOR <0015> EC0D 06,EC,6D GE97A CALL ERRMSG <0016> EC10 ED,17 DATA ERRIOC <0017> EC12 D6,47,01 CEQ 1,@LDFLAG <0018> EC15 62,46 BS EDITOR <0019> EC17 D6,47,02 CEQ 2,@LDFLAG <0020> EC1A 68,2D BS ASSEM <0021> EC1C 06,EC,30 GE97F CALL CLSALL <0022> EC1F DA,48,20 CLOG >20,@FLAG <0023> EC22 40,28 BR OLDEA <0024> EC24 DA,49,01 CLOG >01,@FLAG2 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0023 E/A GROM <0025> EC27 49,E4 BR LANDR <0026> EC29 DA,49,08 CLOG >08,@FLAG2 <0027> EC2C 40,28 BR OLDEA <0028> EC2E 42,46 BR EDITOR <0029> EC30 BF,1C,10 CLSALL DST >1000,@PABPTR EC33 00 <0030> EC34 06,EC,4D CALL CLSPAB <0031> EC37 BF,1C,11 DST >1100,@PABPTR EC3A 00 <0032> EC3B 06,EC,4D CALL CLSPAB <0033> EC3E BF,1C,12 DST >1200,@PABPTR EC41 00 <0034> EC42 06,EC,4D CALL CLSPAB <0035> EC45 BF,1C,13 DST >1300,@PABPTR EC48 00 <0036> EC49 06,EC,4D CALL CLSPAB <0037> EC4C 00 RTN <0038> EC4D BD,56,1C CLSPAB DST @PABPTR,@VPAB <0039> EC50 A3,56,00 DADD >0009,@VPAB EC53 09 <0040> EC54 BE,B0,1C ST >01,V*PABPTR EC57 01 <0041> EC58 06,00,10 CALL DSRLNK <0042> EC5B 08 BYTE >08 <0043> EC5C 86,E0,09 CLR V@>0009(@PABPTR) EC5F 1C <0044> EC60 00 RTN <0045> EC61 06,EC,D4 WRNMSG CALL CLRMSG <0046> EC64 31,00,0B MOVE 11,G@WARN,V@>02A2 EC67 A2,A2,ED EC6A 00 <0047> EC6B 4C,77 BR GE9DA <0048> EC6D 06,EC,D4 ERRMSG CALL CLRMSG <0049> EC70 31,00,09 MOVE 9,G@ERROR,V@>02A2 EC73 A2,A2,EC EC76 E0 <0050> EC77 88,4A GE9DA FETCH @FAC <0051> EC79 88,4B FETCH @FAC1 <0052> EC7B 86,4C CLR @FAC2 <0053> EC7D 33,00,01 MOVE 1,G@G0000(@FAC),@FAC3 EC80 4D,00,00 EC83 4A <0054> EC84 32,4C,A2 MOVE @FAC2,G@G0001(@FAC),V@>02C2 EC87 C2,00,01 EC8A 4A <0055> EC8B D7,4A,ED DCEQ ERRIOC,@FAC EC8E 17 <0056> EC8F 4C,95 BR GE9F8 <0057> EC91 BC,A2,D2 ST @FAC4,V@>02D2 EC94 4E <0058> EC95 D7,4A,ED GE9F8 DCEQ ERRC,@FAC EC98 48 <0059> EC99 4C,C4 BR WENTER <0060> EC9B E7,22,00 DSRL >0004,@CODE EC9E 04 <0061> EC9F E6,23,04 SRL >04,@>8323 <0062> ECA2 C6,22,09 CH >09,@CODE <0063> ECA5 4C,AF BR GEA12 <0064> ECA7 C6,22,0F CH >0F,@CODE <0065> ECAA 6C,C4 BS WENTER <0066> ECAC A2,22,07 ADD >07,@CODE <0067> ECAF C6,23,09 GEA12 CH >09,@>8323 <0068> ECB2 4C,BC BR GEA1F <0069> ECB4 C6,23,0F CH >0F,@>8323 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0024 E/A GROM <0070> ECB7 6C,C4 BS WENTER <0071> ECB9 A2,23,07 ADD >07,@>8323 <0072> ECBC A3,22,30 GEA1F DADD >3030,@CODE ECBF 30 <0073> ECC0 BD,A2,D0 DST @CODE,V@>02D0 ECC3 22 <0074> * Wait for ENTER <0075> ECC4 31,00,17 WENTER MOVE 23,G@PRESS,V@>02E2 ECC7 A2,E2,EC ECCA E9 <0076> ECCB 03 GEA2E SCAN <0077> ECCC 4C,CB BR GEA2E <0078> ECCE D6,75,0D CEQ >0D,@KEY <0079> ECD1 4C,CB BR GEA2E <0080> ECD3 00 RTN <0081> ECD4 BE,A2,A0 CLRMSG ST SPACE,V@>02A0 ECD7 20 <0082> ECD8 35,00,5F MOVE >005F,V@>02A0,V@>02A1 ECDB A2,A1,A2 ECDE A0 <0083> ECDF 00 RTN <0084> ECE0 2A,20,45 ERROR TEXT '* ERROR *' ECE3 52,52,4F ECE6 52,20,2A <0085> ECE9 50,72,65 PRESS TEXT 'Press ENTER to continue' ECEC 73,73,20 ECEF 45,4E,54 ECF2 45,52,20 ECF5 74,6F,20 ECF8 63,6F,6E ECFB 74,69,6E ECFE 75,65 <0086> ED00 2A,20,57 WARN TEXT '* WARNING *' ED03 41,52,4E ED06 49,4E,47 ED09 20,2A <0087> ED0B 0B,4D,45 ERRMF STRI 'MEMORY FULL' ED0E 4D,4F,52 ED11 59,20,46 ED14 55,4C,4C <0088> ED17 0E,49,2F ERRIOC STRI 'I/O ERROR CODE' ED1A 4F,20,45 ED1D 52,52,4F ED20 52,20,43 ED23 4F,44,45 <0089> ED26 13,4E,4F ERRNME STRI 'NO MEMORY EXPANSION' ED29 20,4D,45 ED2C 4D,4F,52 ED2F 59,20,45 ED32 58,50,41 ED35 4E,53,49 ED38 4F,4E <0090> ED3A 0D,4E,41 ERRNTL STRI 'NAME TOO LONG' ED3D 4D,45,20 ED40 54,4F,4F ED43 20,4C,4F ED46 4E,47 <0091> ED48 0A,45,52 ERRC STRI 'ERROR CODE' ED4B 52,4F,52 ED4E 20,43,4F ED51 44,45 <0092> ED53 19,43,4F CCRMSG STRI 'CONTROL CHARACTER REMOVED' ED56 4E,54,52 ED59 4F,4C,20 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0025 E/A GROM ED5C 43,48,41 ED5F 52,41,43 ED62 54,45,52 ED65 20,52,45 ED68 4D,4F,56 ED6B 45,44 <0093> ED6D 0B,49,4C ERRIT STRI 'ILLEGAL TAG' ED70 4C,45,47 ED73 41,4C,20 ED76 54,41,47 <0094> ED79 0E,43,48 ERRCE STRI 'CHECKSUM ERROR' ED7C 45,43,4B ED7F 53,55,4D ED82 20,45,52 ED85 52,4F,52 <0095> ED88 14,44,55 ERRDD STRI 'DUPLICATE DEFINITION' ED8B 50,4C,49 ED8E 43,41,54 ED91 45,20,44 ED94 45,46,49 ED97 4E,49,54 ED9A 49,4F,4E <0096> ED9D 14,55,4E ERRUR STRI 'UNRESOLVED REFERENCE' EDA0 52,45,53 EDA3 4F,4C,56 EDA6 45,44,20 EDA9 52,45,46 EDAC 45,52,45 EDAF 4E,43,45 <0097> EDB2 11,50,52 ERRPNF STRI 'PROGRAM NOT FOUND' EDB5 4F,47,52 EDB8 41,4D,20 EDBB 4E,4F,54 EDBE 20,46,4F EDC1 55,4E,44 <0098> EDC4 FF,FF,FF CUREDP BYTE >FF,>FF,>FF,>FF,>FF,>FF,>FF,>FF EDC7 FF,FF,FF EDCA FF,FF <0099> EDCC 81,00,00 CURPAT BYTE >81,>00,>00,>00,>00,>00,>00,>81 EDCF 00,00,00 EDD2 00,81 <0100> EDD4 84,00,00 BYTE >84,>00,>00,>00,>00,>00,>00,>84 EDD7 00,00,00 EDDA 00,84 <0101> EDDC E0,00,0E VREGS BYTE >E0,>00,>0E,>01,>06,>00 EDDF 01,06,00 <0102> * <0103> * CALL INIT <0104> * <0105> EDE2 D7,8F,9D BINIT2 DCEQ >A55A,@>2000 EDE5 00,A5,5A <0106> EDE8 6E,11 BS GEBBD <0107> EDEA 06,E6,BA BINIT3 CALL EXPMEM <0108> EDED BE,4A,03 ST >03,@FAC <0109> EDF0 BF,4C,EF DST GF000,@FAC2 EDF3 94 <0110> EDF4 33,00,04 GEBA0 MOVE 4,G@G0000(@FAC2),@FAC4 EDF7 4E,00,00 EDFA 4C <0111> EDFB A3,4C,00 DADD >0004,@FAC2 EDFE 04 <0112> EDFF 32,4E,CF MOVE @FAC4,G@G0000(@FAC2),@0(@FAC6) EE02 7D,00,50 EE05 00,00,4C 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0026 E/A GROM <0113> EE08 A1,4C,4E DADD @FAC4,@FAC2 <0114> EE0B 92,4A DEC @FAC <0115> EE0D 4D,F4 BR GEBA0 <0116> EE0F 47,08 BR CLRXOP <0117> EE11 00 GEBBD RTN <0118> <0119> EE12 41,53,53 DASSM1 TEXT 'ASSM1' EE15 4D,31 <0120> EE17 55,54,49 DUTIL1 TEXT 'UTIL1' EE1A 4C,31 <0121> EE1C 0D BYTE >0D <0122> EE1D 4C,4F,41 DLOAD TEXT 'LOAD' EE20 44 <0123> EE21 0D BYTE >0D <0124> * NEW PATCH STUFF ***************************************** <0125> <0126> EE22 86,AF,10 BUGS CLR V@>1000 * CLEAR PAB AREAS EE25 00 <0127> EE26 35,03,80 MOVE >0380,V@>1000,V@>1001 EE29 AF,10,01 EE2C AF,10,00 <0128> EE2F B2,80,C2 AND >EF,@>83C2 EE32 EF <0129> EE33 00 RTN <0130> ******************************* <0131> EE34 86,4A CLRFAC CLR @FAC <0132> EE36 35,00,07 MOVE 7,@FAC,@FAC1 EE39 4B,4A <0133> EE3B 00 RTN <0134> ******************************* <0135> EE3C 06,E6,BA DEVICE CALL EXPMEM Clear expansion memory <0136> EE3F 35,00,80 MOVE 128,V@>027F,V@>0280 EE42 A2,80,A2 EE45 7F <0137> EE46 BC,06,75 ST @KEY,@>8306 Save key <0138> EE49 08 FMT <0139> EE4A FE,10 ROW 16 <0140> EE4C FF,02 COL 2 <0141> EE4E 0B,53,65 HTEX 'Select DSK#.' EE51 6C,65,63 EE54 74,20,44 EE57 53,4B,23 EE5A 2E <0142> EE5B FB FEND <0143> EE5C 35,00,05 MOVE 5,V@>100F,V@>020E EDIT1 or ASSM1 EE5F A2,0E,AF EE62 10,0F <0144> EE64 03 DEV1 SCAN KEY? <0145> EE65 4E,64 BR DEV1 No. <0146> EE67 D6,75,20 CEQ SPACE,@KEY SPACE BAR? <0147> EE6A 6E,81 BS DEV4 Yes <0148> EE6C D6,75,0F CEQ BACK,@KEY BACK? <0149> EE6F 6E,80 BS DEV3 Yes <0150> EE71 BC,A2,0C ST @KEY,V@>020C Any other key SAVE EE74 75 <0151> EE75 BC,AF,10 ST @KEY,V@>100D Put into PAB EE78 0D,75 <0152> EE7A BC,75,06 DEVNO ST @>8306,@KEY Restore old key <0153> EE7D 06,E7,D1 DEV2 CALL PMSG PLEASE WAIT... <0154> EE80 00 DEV3 RTN <0155> EE81 08 DEV4 FMT <0156> EE82 FE,10 ROW 16 <0157> EE84 FF,02 COL 2 <0158> EE86 10,45,78 HTEX 'Example: WDS1.EA.' 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0027 E/A GROM EE89 61,6D,70 EE8C 6C,65,3A EE8F 20,57,44 EE92 53,31,2E EE95 45,41,2E <0159> EE98 FE,12 ROW 18 <0160> EE9A FF,02 COL 2 <0161> EE9C 0E,46,55 HTEX 'FULL PATH NAME?' EE9F 4C,4C,20 EEA2 50,41,54 EEA5 48,20,4E EEA8 41,4D,45 EEAB 3F <0162> EEAC FB FEND <0163> EEAD 35,00,05 MOVE 5,V@>100F,V@>0213 EDIT1 or ASSM1 EEB0 A2,13,AF EEB3 10,0F <0164> EEB5 BF,20,02 DST >0282,@CURADD EEB8 82 <0165> EEB9 86,44 CLR @>8344 Clear search flag <0166> EEBB B6,48,04 OR >04,@FLAG Set return flag <0167> EEBE 06,E5,8B CALL GETINP <0168> EEC1 BD,00,20 DST @CURADD,@>8300 <0169> EEC4 A6,01,82 SUB >82,@>8301 <0170> EEC7 BC,AF,10 ST @>8301,V@>1009 EECA 09,01 <0171> EECC 34,00,AF MOVE @>8300,V@>0282,V@>100A EECF 10,0A,A2 EED2 82 <0172> EED3 BE,48,20 ST >20,@FLAG <0173> EED6 05,EE,7A B DEVNO <0174> ******************************************** <0175> EED9 07,20 XBINP ALL SPACE <0176> EEDB BE,4A,01 ST 1,@FAC <0177> EEDE 08 XBAGN FMT <0178> EEDF FF,08 COL 8 <0179> EEE1 FE,01 ROW 1 <0180> EEE3 08,2A,20 HTEX '* R X B *' EEE6 52,20,58 EEE9 20,42,20 EEEC 2A <0181> EEED A3 ROW+ 4 <0182> EEEE FF,02 COL 2 <0183> EEF0 09,46,49 HTEX 'FILE NAME?' EEF3 4C,45,20 EEF6 4E,41,4D EEF9 45,3F <0184> EEFB FB FEND <0185> EEFC 92,4A DEC @FAC <0186> EEFE 4E,DE BR XBAGN <0187> EF00 D6,42,FF CEQ >FF,@XTOKEN <0188> EF03 4F,11 BR XBINP1 <0189> EF05 35,00,40 MOVE 64,V@>2400,V@>2255 EF08 AF,22,55 EF0B AF,24,00 <0190> EF0E BE,42,EA ST >EA,@XTOKEN <0191> EF11 BF,20,01 XBINP1 DST >0102,@CURADD EF14 02 <0192> EF15 BF,1C,10 DST >1000,@PABPTR EF18 00 <0193> EF19 B6,48,20 OR >20,@FLAG <0194> EF1C 06,E5,1D CALL GETALL <0195> EF1F 8F,50 DCZ @FAC6 <0196> EF21 6F,5B BS XBINP3 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0028 E/A GROM <0197> EF23 D6,51,01 CEQ 1,@FAC7 <0198> EF26 4F,49 BR XBINP2 <0199> EF28 BF,AF,24 DST >000A,V@>2400 EF2B 00,00,0A <0200> EF2E 31,00,05 MOVE 5,G@DDSK1,V@>2402 EF31 AF,24,02 EF34 E8,23 <0201> EF36 BC,AF,24 ST V*STLN,V@>2405 EF39 05,B0,24 <0202> EF3C 31,00,05 MOVE 5,G@DLOAD,V@>2407 EF3F AF,24,07 EF42 EE,1D <0203> EF44 BE,42,FF ST >FF,@XTOKEN <0204> EF47 4E,D9 BR XBINP <0205> EF49 06,EF,65 XBINP2 CALL CLRREA <0206> EF4C BF,AF,22 DST >994A,V@>2254 EF4F 54,99,4A <0207> EF52 35,00,50 MOVE 80,V@9(@PABPTR),V@>2256 EF55 AF,22,56 EF58 E0,09,1C <0208> EF5B 86,00 XBINP3 CLR @>8300 <0209> EF5D 35,00,6E MOVE >006E,@>8300,@>8301 EF60 01,00 <0210> EF62 05,63,72 B RXB <0211> ******************************************** <0212> EF65 86,AF,22 CLRREA CLR V@>2250 EF68 50 <0213> EF69 35,00,50 MOVE 80,V@>2250,V@>2251 EF6C AF,22,51 EF6F AF,22,50 <0214> EF72 00 RTN <0215> EF73 D6,E0,09 ONEKEY CEQ 1,V@9(@PABPTR) One character for drive#? EF76 1C,01 <0216> EF78 4F,93 BR TWOKEY No, normal continue <0217> EF7A BC,80,C0 ST V@10(@PABPTR),@>83C0 Yes, save # character EF7D E0,0A,1C <0218> EF80 31,00,05 MOVE 5,G@DDSK1,V@10(@PABPTR) DSK1. loaded into pab EF83 E0,0A,1C EF86 E8,23 <0219> EF88 BE,E0,09 ST >05,V@9(@PABPTR) DSK1. has 5 characters EF8B 1C,05 <0220> EF8D BC,E0,0D ST @>83C0,V@13(@PABPTR) Load charcter drive#/le EF90 1C,80,C0 <0221> EF93 00 TWOKEY RTN <0222> *********************************************************** <0223> * <0224> * Data for Initialization of <0225> * Memory Expansion <0226> * <0227> EF94 00,08,20 GF000 DATA >0008,>2000,>A55A,>2128,>2398,>225A,>0654 EF97 00,A5,5A EF9A 21,28,23 EF9D 98,22,5A EFA0 06,54 <0228> EFA2 20,22,00 DATA >2022,>0000,>A000,>FFD7,>2676,>3F38 EFA5 00,A0,00 EFA8 FF,D7,26 EFAB 76,3F,38 <0229> EFAE 00,00,00 DATA 0,0,0,0,0,0,0,0,0 EFB1 00,00,00 EFB4 00,00,00 EFB7 00,00,00 EFBA 00,00,00 EFBD 00,00,00 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0029 E/A GROM <0230> EFC0 00,00,00 DATA 0,0,0,0,0,0,0,0 EFC3 00,00,00 EFC6 00,00,00 EFC9 00,00,00 EFCC 00,00,00 EFCF 00 <0231> EFD0 00,00,00 DATA 0,0,0,0,0,0,0 EFD3 00,00,00 EFD6 00,00,00 EFD9 00,00,00 EFDC 00,00 <0232> EFDE 00,00,00 DATA 0,0,0,0,0,0,0,0 EFE1 00,00,00 EFE4 00,00,00 EFE7 00,00,00 EFEA 00,00,00 EFED 00 <0233> EFEE 00,00,00 DATA 0,0,0,0,0,0,0 EFF1 00,00,00 EFF4 00,00,00 EFF7 00,00,00 EFFA 00,00 <0234> EFFC 00,00,00 DATA 0,0,0,0,0,0,0,0 EFFF 00,00,00 F002 00,00,00 F005 00,00,00 F008 00,00,00 F00B 00 <0235> F00C 00,00,00 DATA 0,0,0,0,0,0,0 F00F 00,00,00 F012 00,00,00 F015 00,00,00 F018 00,00 <0236> F01A 00,00,00 DATA 0,0,0,0,0,0,0,0 F01D 00,00,00 F020 00,00,00 F023 00,00,00 F026 00,00,00 F029 00 <0237> F02A 00,00,00 DATA 0,0,0,0,0,0,0 F02D 00,00,00 F030 00,00,00 F033 00,00,00 F036 00,00 <0238> F038 00,00,00 DATA 0,0,0,0,0,0,0,0 F03B 00,00,00 F03E 00,00,00 F041 00,00,00 F044 00,00,00 F047 00 <0239> F048 00,00,00 DATA 0,0,0,0,0,0,0 F04B 00,00,00 F04E 00,00,00 F051 00,00,00 F054 00,00 <0240> F056 00,00,00 DATA 0,0,0,0,0,0,0,0 F059 00,00,00 F05C 00,00,00 F05F 00,00,00 F062 00,00,00 F065 00 <0241> F066 00,00,00 DATA 0,0,0,0,0,0,0 F069 00,00,00 F06C 00,00,00 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0030 E/A GROM F06F 00,00,00 F072 00,00 <0242> F074 00,00,00 DATA 0,0,0,0,>0064,>2000,>2EAA,>2094 F077 00,00,00 F07A 00,00,00 F07D 64,20,00 F080 2E,AA,20 F083 94 <0243> F084 21,C4,20 DATA >21C4,>2094,>2196,>2094,>21DE,>2094,>21F4 F087 94,21,96 F08A 20,94,21 F08D DE,20,94 F090 21,F4 <0244> F092 20,94,22 DATA >2094,>2200,>2094,>220E,>2094,>221A,>2094,>2228 F095 00,20,94 F098 22,0E,20 F09B 94,22,1A F09E 20,94,22 F0A1 28 <0245> F0A2 20,9A,22 DATA >209A,>22B2,>20DA,>23BA,>C80B,>2030,>D060, F0A5 B2,20,DA F0A8 23,BA,C8 F0AB 0B,20,30 F0AE D0,60 <0246> F0B0 83,49,20 DATA >8349,>2060,>20FC,>132A,>C020,>8350,>1311,>06A0 F0B3 60,20,FC F0B6 13,2A,C0 F0B9 20,83,50 F0BC 13,11,06 F0BF A0 <0247> F0C0 26,46,10 DATA >2646,>101E,>0281,>3F38,>1319,>C001,>0202 F0C3 1E,02,81 F0C6 3F,38,13 F0C9 19,C0,01 F0CC 02,02 <0248> F0CE 83,4A,8C DATA >834A,>8CB0,>1611,>8CB0,>160F,>8CB0,>160D,>C810 F0D1 B0,16,11 F0D4 8C,B0,16 F0D7 0F,8C,B0 F0DA 16,0D,C8 F0DD 10 <0249> F0DE 20,22,02 DATA >2022,>02E0,>20BA,>C020,>2022,>1309,>0690 F0E1 E0,20,BA F0E4 C0,20,20 F0E7 22,13,09 F0EA 06,90 <0250> F0EC 02,E0,83 DATA >02E0,>83E0,>C2E0,>2030,>045B,>0221,>0008,>10E4 F0EF E0,C2,E0 F0F2 20,30,04 F0F5 5B,02,21 F0F8 00,08,10 F0FB E4 <0251> F0FC 02,00,0F DATA >0200,>0F00,>D800,>8322,>02E0,>83E0,>0460 F0FF 00,D8,00 F102 83,22,02 F105 E0,83,E0 F108 04,60 <0252> F10A 00,CE,58 DATA >00CE,>5820,>20FC,>8349,>02E0,>2094,>0380,>C83E F10D 20,20,FC F110 83,49,02 F113 E0,20,94 F116 03,80,C8 F119 3E <0253> F11A 83,E2,02 DATA >83E2,>02E0,>83E0,>C80B,>20AA,>C081,>0281 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0031 E/A GROM F11D E0,83,E0 F120 C8,0B,20 F123 AA,C0,81 F126 02,81 <0254> F128 80,00,1B DATA >8000,>1B07,>09C1,>0A11,>0A42,>09B2,>A0A1,>0CFA F12B 07,09,C1 F12E 0A,11,0A F131 42,09,B2 F134 A0,A1,0C F137 FA <0255> F138 C0,92,06 DATA >C092,>0692,>02E0,>2094,>C80B,>83F6,>0380 F13B 92,02,E0 F13E 20,94,C8 F141 0B,83,F6 F144 03,80 <0256> F146 D0,60,83 DATA >D060,>8373,>0981,>C87E,>8304,>F820,>20FC,>8349 F149 73,09,81 F14C C8,7E,83 F14F 04,F8,20 F152 20,FC,83 F155 49 <0257> F156 02,E0,83 DATA >02E0,>83E0,>C2E0,>2030,>045B,>02E0,>83E0 F159 E0,C2,E0 F15C 20,30,04 F15F 5B,02,E0 F162 83,E0 <0258> F164 C8,0B,20 DATA >C80B,>20AA,>06A0,>000E,>02E0,>2094,>C80B,>83F6 F167 AA,06,A0 F16A 00,0E,02 F16D E0,20,94 F170 C8,0B,83 F173 F6 <0259> F174 03,80,06 DATA >0380,>06A0,>223A,>D82D,>0002,>8C00,>0380 F177 A0,22,3A F17A D8,2D,00 F17D 02,8C,00 F180 03,80 <0260> F182 06,A0,22 DATA >06A0,>223A,>D831,>8C00,>0602,>16FC,>0380,>06A0 F185 3A,D8,31 F188 8C,00,06 F18B 02,16,FC F18E 03,80,06 F191 A0 <0261> F192 22,40,DB DATA >2240,>DB60,>8800,>0002,>0380,>06A0,>2240 F195 60,88,00 F198 00,02,03 F19B 80,06,A0 F19E 22,40 <0262> F1A0 DC,60,88 DATA >DC60,>8800,>0602,>16FC,>0380,>C05D,>D82D,>0001 F1A3 00,06,02 F1A6 16,FC,03 F1A9 80,C0,5D F1AC D8,2D,00 F1AF 01 <0263> F1B0 8C,02,02 DATA >8C02,>0261,>8000,>D801,>8C02,>0380,>0201 F1B3 61,80,00 F1B6 D8,01,8C F1B9 02,03,80 F1BC 02,01 <0264> F1BE 40,00,10 DATA >4000,>1001,>04C1,>C09D,>D820,>2099,>8C02,>E081 F1C1 01,04,C1 F1C4 C0,9D,D8 F1C7 20,20,99 F1CA 8C,02,E0 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0032 E/A GROM F1CD 81 <0265> F1CE D8,02,8C DATA >D802,>8C02,>C06D,>0002,>C0AD,>0004,>045B F1D1 02,C0,6D F1D4 00,02,C0 F1D7 AD,00,04 F1DA 04,5B <0266> F1DC 02,04,83 DATA >0204,>834A,>C014,>C184,>04F6,>04F6,>C140,>1323 F1DF 4A,C0,14 F1E2 C1,84,04 F1E5 F6,04,F6 F1E8 C1,40,13 F1EB 23 <0267> F1EC 07,40,02 DATA >0740,>0203,>0040,>04F6,>04D6,>0280,>0064 F1EF 03,00,40 F1F2 04,F6,04 F1F5 D6,02,80 F1F8 00,64 <0268> F1FA 1A,13,02 DATA >1A13,>0280,>2710,>1A08,>0583,>C040,>04C0,>3C20 F1FD 80,27,10 F200 1A,08,05 F203 83,C0,40 F206 04,C0,3C F209 20 <0269> F20A 20,FA,D9 DATA >20FA,>D920,>83E3,>0003,>0583,>C040,>04C0 F20D 20,83,E3 F210 00,03,05 F213 83,C0,40 F216 04,C0 <0270> F218 3C,20,20 DATA >3C20,>20FA,>D920,>83E3,>0002,>D920,>83E1,>0001 F21B FA,D9,20 F21E 83,E3,00 F221 02,D9,20 F224 83,E1,00 F227 01 <0271> F228 D5,20,83 DATA >D520,>83E7,>0545,>1101,>0514,>045B,>C17E F22B E7,05,45 F22E 11,01,05 F231 14,04,5B F234 C1,7E <0272> F236 53,E0,20 DATA >53E0,>20FC,>C020,>8356,>C240,>0229,>FFF8,>0420 F239 FC,C0,20 F23C 83,56,C2 F23F 40,02,29 F242 FF,F8,04 F245 20 <0273> F246 21,14,D0 DATA >2114,>D0C1,>0983,>0704,>0202,>208C,>0580 F249 C1,09,83 F24C 07,04,02 F24F 02,20,8C F252 05,80 <0274> F254 05,84,80 DATA >0584,>80C4,>1306,>0420,>2114,>DC81,>9801,>20FE F257 C4,13,06 F25A 04,20,21 F25D 14,DC,81 F260 98,01,20 F263 FE <0275> F264 16,F6,C1 DATA >16F6,>C104,>1352,>0284,>0007,>154F,>04E0 F267 04,13,52 F26A 02,84,00 F26D 07,15,4F F270 04,E0 <0276> F272 83,D0,C8 DATA >83D0,>C804,>8354,>C804,>2036,>0584,>A804,>8356 F275 04,83,54 F278 C8,04,20 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0033 E/A GROM F27B 36,05,84 F27E A8,04,83 F281 56 <0277> F282 C8,20,83 DATA >C820,>8356,>2038,>02E0,>83E0,>04C1,>020C F285 56,20,38 F288 02,E0,83 F28B E0,04,C1 F28E 02,0C <0278> F290 0F,00,C3 DATA >0F00,>C30C,>1301,>1E00,>022C,>0100,>04E0,>83D0 F293 0C,13,01 F296 1E,00,02 F299 2C,01,00 F29C 04,E0,83 F29F D0 <0279> F2A0 02,8C,20 DATA >028C,>2000,>1332,>C80C,>83D0,>1D00,>0202 F2A3 00,13,32 F2A6 C8,0C,83 F2A9 D0,1D,00 F2AC 02,02 <0280> F2AE 40,00,98 DATA >4000,>9812,>20FF,>16EE,>A0A0,>20A4,>1003,>C0A0 F2B1 12,20,FF F2B4 16,EE,A0 F2B7 A0,20,A4 F2BA 10,03,C0 F2BD A0 <0281> F2BE 83,D2,1D DATA >83D2,>1D00,>C092,>13E6,>C802,>83D2,>05C2 F2C1 00,C0,92 F2C4 13,E6,C8 F2C7 02,83,D2 F2CA 05,C2 <0282> F2CC C2,72,D1 DATA >C272,>D160,>8355,>1309,>9C85,>16F2,>0985,>0206 F2CF 60,83,55 F2D2 13,09,9C F2D5 85,16,F2 F2D8 09,85,02 F2DB 06 <0283> F2DC 20,8C,9C DATA >208C,>9CB6,>16ED,>0605,>16FC,>0581,>C801 F2DF B6,16,ED F2E2 06,05,16 F2E5 FC,05,81 F2E8 C8,01 <0284> F2EA 20,3A,C8 DATA >203A,>C809,>2034,>C80C,>2032,>0699,>10E2,>1E00 F2ED 09,20,34 F2F0 C8,0C,20 F2F3 32,06,99 F2F6 10,E2,1E F2F9 00 <0285> F2FA 02,E0,20 DATA >02E0,>209A,>C009,>0420,>2114,>09D1,>1604 F2FD 9A,C0,09 F300 04,20,21 F303 14,09,D1 F306 16,04 <0286> F308 03,80,02 DATA >0380,>02E0,>209A,>04C1,>06C1,>D741,>F3E0,>20FC F30B E0,20,9A F30E 04,C1,06 F311 C1,D7,41 F314 F3,E0,20 F317 FC <0287> F318 03,80,C8 DATA >0380,>C80B,>2030,>02E0,>20BA,>0420,>2124 F31B 0B,20,30 F31E 02,E0,20 F321 BA,04,20 F324 21,24 <0288> F326 02,E0,83 DATA >02E0,>83E0,>1303,>C2E0,>2030,>045B,>D820,>20BA 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0034 E/A GROM F329 E0,13,03 F32C C2,E0,20 F32F 30,04,5B F332 D8,20,20 F335 BA <0289> F336 83,22,04 DATA >8322,>0460,>00CE,>04E0,>2022,>53E0,>20FC F339 60,00,CE F33C 04,E0,20 F33F 22,53,E0 F342 20,FC <0290> F344 C0,20,83 DATA >C020,>8356,>0420,>2120,>0008,>1332,>0220,>FFF7 F347 56,04,20 F34A 21,20,00 F34D 08,13,32 F350 02,20,FF F353 F7 <0291> F354 02,01,02 DATA >0201,>0200,>0420,>210C,>0580,>C800,>202E F357 00,04,20 F35A 21,0C,05 F35D 80,C8,00 F360 20,2E <0292> F362 C1,E0,20 DATA >C1E0,>2024,>C147,>04CC,>06A0,>25E0,>0283,>0001 F365 24,C1,47 F368 04,CC,06 F36B A0,25,E0 F36E 02,83,00 F371 01 <0293> F372 16,24,05 DATA >1624,>058C,>04C3,>1023,>0283,>0046,>161E F375 8C,04,C3 F378 10,23,02 F37B 83,00,46 F37E 16,1E <0294> F380 04,C2,06 DATA >04C2,>06A0,>262E,>0283,>003A,>16F7,>C020,>202E F383 A0,26,2E F386 02,83,00 F389 3A,16,F7 F38C C0,20,20 F38F 2E <0295> F390 06,00,02 DATA >0600,>0201,>0100,>0420,>210C,>06A0,>25E0 F393 01,01,00 F396 04,20,21 F399 0C,06,A0 F39C 25,E0 <0296> F39E C0,20,20 DATA >C020,>2022,>1307,>06A0,>2646,>1005,>CB4E,>0016 F3A1 22,13,07 F3A4 06,A0,26 F3A7 46,10,05 F3AA CB,4E,00 F3AD 16 <0297> F3AE C3,A0,20 DATA >C3A0,>2022,>0380,>D740,>F3E0,>20FC,>0380 F3B1 22,03,80 F3B4 D7,40,F3 F3B7 E0,20,FC F3BA 03,80 <0298> F3BC 06,A0,25 DATA >06A0,>25C2,>04C4,>D123,>2662,>0974,>C808,>202C F3BF C2,04,C4 F3C2 D1,23,26 F3C5 62,09,74 F3C8 C8,08,20 F3CB 2C <0299> F3CC 06,A0,25 DATA >06A0,>2594,>0464,>23F8,>0580,>0240,>FFFE F3CF 94,04,64 F3D2 23,F8,05 F3D5 80,02,40 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0035 E/A GROM F3D8 FF,FE <0300> F3DA C1,20,20 DATA >C120,>2024,>A100,>1808,>8804,>2026,>1B05,>C160 F3DD 24,A1,00 F3E0 18,08,88 F3E3 04,20,26 F3E6 1B,05,C1 F3E9 60 <0301> F3EA 20,24,C8 DATA >2024,>C804,>2024,>100A,>C120,>2028,>A100 F3ED 04,20,24 F3F0 10,0A,C1 F3F3 20,20,28 F3F6 A1,00 <0302> F3F8 88,04,20 DATA >8804,>202A,>140C,>C160,>2028,>C804,>2028,>C1C5 F3FB 2A,14,0C F3FE C1,60,20 F401 28,C8,04 F404 20,28,C1 F407 C5 <0303> F408 02,09,00 DATA >0209,>0008,>06A0,>262E,>0609,>16FC,>10B6 F40B 08,06,A0 F40E 26,2E,06 F411 09,16,FC F414 10,B6 <0304> F416 02,00,08 DATA >0200,>0800,>10CC,>A005,>C800,>2022,>10AF,>A800 F419 00,10,CC F41C A0,05,C8 F41F 00,20,22 F422 10,AF,A8 F425 00 <0305> F426 20,2C,13 DATA >202C,>13AC,>0200,>0B00,>10C2,>A005,>C1C0 F429 AC,02,00 F42C 0B,00,10 F42F C2,A0,05 F432 C1,C0 <0306> F434 10,A6,A0 DATA >10A6,>A005,>DDC0,>DDE0,>20DB,>10A1,>A005,>06A0 F437 05,DD,C0 F43A DD,E0,20 F43D DB,10,A1 F440 A0,05,06 F443 A0 <0307> F444 25,66,C0 DATA >2566,>C000,>1316,>0226,>FFF8,>8106,>1B02 F447 00,13,16 F44A 02,26,FF F44D F8,81,06 F450 1B,02 <0308> F452 05,14,10 DATA >0514,>1096,>8594,>16F8,>89A4,>0002,>0002,>16F4 F455 96,85,94 F458 16,F8,89 F45B A4,00,02 F45E 00,02,16 F461 F4 <0309> F462 89,A4,00 DATA >89A4,>0004,>0004,>16F0,>C0E6,>0006,>C250 F465 04,00,04 F468 16,F0,C0 F46B E6,00,06 F46E C2,50 <0310> F470 C4,03,C0 DATA >C403,>C009,>16FC,>0224,>0008,>C804,>202A,>10EA F473 09,16,FC F476 02,24,00 F479 08,C8,04 F47C 20,2A,10 F47F EA <0311> F480 A0,05,06 DATA >A005,>06A0,>2566,>0226,>FFF8,>8106,>13E3 F483 A0,25,66 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0036 E/A GROM F486 02,26,FF F489 F8,81,06 F48C 13,E3 <0312> F48E C2,96,15 DATA >C296,>1501,>050A,>8294,>16F7,>89A4,>0002,>0002 F491 01,05,0A F494 82,94,16 F497 F7,89,A4 F49A 00,02,00 F49D 02 <0313> F49E 16,F3,89 DATA >16F3,>89A4,>0004,>0004,>16EF,>C296,>1516 F4A1 A4,00,04 F4A4 00,04,16 F4A7 EF,C2,96 F4AA 15,16 <0314> F4AC C0,E6,00 DATA >C0E6,>0006,>C253,>C4C0,>C0C9,>16FC,>C246,>6244 F4AF 06,C2,53 F4B2 C4,C0,C0 F4B5 C9,16,FC F4B8 C2,46,62 F4BB 44 <0315> F4BC C2,86,02 DATA >C286,>022A,>0008,>C0C6,>0643,>064A,>C693 F4BF 2A,00,08 F4C2 C0,C6,06 F4C5 43,06,4A F4C8 C6,93 <0316> F4CA 06,49,16 DATA >0649,>16FB,>0224,>0008,>C804,>202A,>10D9,>CB44 F4CD FB,02,24 F4D0 00,08,C8 F4D3 04,20,2A F4D6 10,D9,CB F4D9 44 <0317> F4DA 00,02,02 DATA >0002,>0200,>0C00,>0460,>2432,>0460,>2494 F4DD 00,0C,00 F4E0 04,60,24 F4E3 32,04,60 F4E6 24,94 <0318> F4E8 C2,8B,02 DATA >C28B,>0209,>0006,>C1A0,>202A,>0226,>FFF8,>C106 F4EB 09,00,06 F4EE C1,A0,20 F4F1 2A,02,26 F4F4 FF,F8,C1 F4F7 06 <0319> F4F8 88,06,20 DATA >8806,>2028,>1AF3,>C806,>202A,>06A0,>262E F4FB 28,1A,F3 F4FE C8,06,20 F501 2A,06,A0 F504 26,2E <0320> F506 DD,A0,20 DATA >DDA0,>20E1,>0609,>16FA,>C580,>0206,>4000,>045A F509 E1,06,09 F50C 16,FA,C5 F50F 80,02,06 F512 40,00,04 F515 5A <0321> F516 C2,8B,04 DATA >C28B,>04C0,>C30C,>1308,>06A0,>262E,>D020 F519 C0,C3,0C F51C 13,08,06 F51F A0,26,2E F522 D0,20 <0322> F524 20,E1,06 DATA >20E1,>06A0,>262E,>A003,>045A,>0209,>0004,>06A0 F527 A0,26,2E F52A A0,03,04 F52D 5A,02,09 F530 00,04,06 F533 A0 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0037 E/A GROM <0323> F534 26,2E,06 DATA >262E,>06A0,>25C2,>0A40,>A003,>0609,>16F8 F537 A0,25,C2 F53A 0A,40,A0 F53D 03,06,09 F540 16,F8 <0324> F542 04,5A,02 DATA >045A,>0223,>FFD0,>0283,>000A,>1A05,>0223,>FFF9 F545 23,FF,D0 F548 02,83,00 F54B 0A,1A,05 F54E 02,23,FF F551 F9 <0325> F552 02,83,00 DATA >0283,>0019,>1B01,>045B,>0200,>0A00,>0460 F555 19,1B,01 F558 04,5B,02 F55B 00,0A,00 F55E 04,60 <0326> F560 24,32,02 DATA >2432,>02E0,>83E0,>0200,>2032,>C330,>C270,>C830 F563 E0,83,E0 F566 02,00,20 F569 32,C3,30 F56C C2,70,C8 F56F 30 <0327> F570 83,54,C8 DATA >8354,>C830,>8356,>C050,>1D00,>9820,>4000 F573 30,83,56 F576 C0,50,1D F579 00,98,20 F57C 40,00 <0328> F57E 20,FF,16 DATA >20FF,>161D,>0699,>101B,>1E00,>02E0,>20DA,>C020 F581 1D,06,99 F584 10,1B,1E F587 00,02,E0 F58A 20,DA,C0 F58D 20 <0329> F58E 20,2E,02 DATA >202E,>0201,>20DB,>0202,>0004,>0420,>2118 F591 01,20,DB F594 02,02,00 F597 04,04,20 F59A 21,18 <0330> F59C 70,00,09 DATA >7000,>0950,>1610,>0982,>C001,>0201,>203C,>0420 F59F 50,16,10 F5A2 09,82,C0 F5A5 01,02,01 F5A8 20,3C,04 F5AB 20 <0331> F5AC 21,18,04 DATA >2118,>04C8,>0602,>11D7,>D0F1,>0983,>A203 F5AF C8,06,02 F5B2 11,D7,D0 F5B5 F1,09,83 F5B8 A2,03 <0332> F5BA 04,5B,02 DATA >045B,>02E0,>20DA,>04C0,>06C0,>0460,>2432,>0201 F5BD E0,20,DA F5C0 04,C0,06 F5C3 C0,04,60 F5C6 24,32,02 F5C9 01 <0333> F5CA 3F,40,02 DATA >3F40,>0221,>FFF8,>C011,>1105,>8060,>202A F5CD 21,FF,F8 F5D0 C0,11,11 F5D3 05,80,60 F5D6 20,2A <0334> F5D8 16,F9,05 DATA >16F9,>05CB,>045B,>0200,>0D00,>045B,>2D52,>5163 F5DB CB,04,5B F5DE 02,00,0D F5E1 00,04,5B 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0038 E/A GROM F5E4 2D,52,51 F5E7 63 <0335> F5E8 64,83,84 DATA >6483,>8455,>045C,>5B5F,>5EF0,>F003,>F0F0 F5EB 55,04,5C F5EE 5B,5F,5E F5F1 F0,F0,03 F5F4 F0,F0 <0336> F5F6 47,00,00 DATA >4700,>00C8,>3F38,>5554,>4C54,>4142,>2022,>5041 F5F9 C8,3F,38 F5FC 55,54,4C F5FF 54,41,42 F602 20,22,50 F605 41 <0337> F606 44,20,20 DATA >4420,>2020,>8300,>4750,>4C57,>5320,>83E0 F609 20,83,00 F60C 47,50,4C F60F 57,53,20 F612 83,E0 <0338> F614 53,4F,55 DATA >534F,>554E,>4420,>8400,>5644,>5052,>4420,>8800 F617 4E,44,20 F61A 84,00,56 F61D 44,50,52 F620 44,20,88 F623 00 <0339> F624 56,44,50 DATA >5644,>5053,>5441,>8802,>5644,>5057,>4420 F627 53,54,41 F62A 88,02,56 F62D 44,50,57 F630 44,20 <0340> F632 8C,00,56 DATA >8C00,>5644,>5057,>4120,>8C02,>5350,>4348,>5244 F635 44,50,57 F638 41,20,8C F63B 02,53,50 F63E 43,48,52 F641 44 <0341> F642 90,00,53 DATA >9000,>5350,>4348,>5754,>9400,>4752,>4D52 F645 50,43,48 F648 57,54,94 F64B 00,47,52 F64E 4D,52 <0342> F650 44,20,98 DATA >4420,>9800,>4752,>4D52,>4120,>9802,>4752,>4D57 F653 00,47,52 F656 4D,52,41 F659 20,98,02 F65C 47,52,4D F65F 57 <0343> F660 44,20,9C DATA >4420,>9C00,>4752,>4D57,>4120,>9C02,>5343 F663 00,47,52 F666 4D,57,41 F669 20,9C,02 F66C 53,43 <0344> F66E 41,4E,20 DATA >414E,>2020,>000E,>584D,>4C4C,>4E4B,>2104,>4B53 F671 20,00,0E F674 58,4D,4C F677 4C,4E,4B F67A 21,04,4B F67D 53 <0345> F67E 43,41,4E DATA >4341,>4E20,>2108,>5653,>4257,>2020,>210C F681 20,21,08 F684 56,53,42 F687 57,20,20 F68A 21,0C <0346> F68C 56,4D,42 DATA >564D,>4257,>2020,>2110,>5653,>4252,>2020,>2114 F68F 57,20,20 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0039 E/A GROM F692 21,10,56 F695 53,42,52 F698 20,20,21 F69B 14 <0347> F69C 56,4D,42 DATA >564D,>4252,>2020,>2118,>5657,>5452,>2020 F69F 52,20,20 F6A2 21,18,56 F6A5 57,54,52 F6A8 20,20 <0348> F6AA 21,1C,44 DATA >211C,>4453,>524C,>4E4B,>2120,>4C4F,>4144,>4552 F6AD 53,52,4C F6B0 4E,4B,21 F6B3 20,4C,4F F6B6 41,44,45 F6B9 52 <0349> F6BA 21,24,47 DATA >2124,>4750,>4C4C,>4E4B,>2100 F6BD 50,4C,4C F6C0 4E,4B,21 F6C3 00 <0350> *********************************************************** <0351> * <0352> * CATALOG HARD/DISK <0353> * <0354> F6C4 06,F6,C9 DIRECT CALL DMENU <0355> F6C7 57,56 BR DIREC2 <0356> F6C9 07,20 DMENU ALL SPACE Clear screen <0357> F6CB 08 FMT <0358> F6CC FF,09 COL 9 <0359> F6CE FE,01 ROW 1 <0360> F6D0 0E,2A,20 HTEX '* DIRECTORY * ' F6D3 44,49,52 F6D6 45,43,54 F6D9 4F,52,59 F6DC 20,2A,20 F6DF 20 <0361> F6E0 A3 ROW+ 4 <0362> F6E1 89 COL+ 10 <0363> F6E2 0B,44,65 HTEX 'Device Name?' F6E5 76,69,63 F6E8 65,20,4E F6EB 61,6D,65 F6EE 3F <0364> F6EF A7 ROW+ 8 <0365> F6F0 FF,03 COL 3 <0366> F6F2 17,41,43 HTEX 'ACTIVE KEYS: CLEAR, AID,' F6F5 54,49,56 F6F8 45,20,4B F6FB 45,59,53 F6FE 3A,20,43 F701 4C,45,41 F704 52,2C,20 F707 41,49,44 F70A 2C <0367> F70B A1 ROW+ 2 <0368> F70C FF,03 COL 3 <0369> F70E 14,28,41 HTEX '(ARROWS), E, e, X, x,' F711 52,52,4F F714 57,53,29 F717 2C,20,45 F71A 2C,20,65 F71D 2C,20,58 F720 2C,20,78 F723 2C <0370> F724 A1 ROW+ 2 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0040 E/A GROM <0371> F725 FF,03 COL 3 <0372> F727 14,42,45 HTEX 'BEGIN, PROCEED, REDO,' F72A 47,49,4E F72D 2C,20,50 F730 52,4F,43 F733 45,45,44 F736 2C,20,52 F739 45,44,4F F73C 2C <0373> F73D A1 ROW+ 2 <0374> F73E FF,03 COL 3 <0375> F740 12,42,41 HTEX 'BACK, and SPACE BAR' F743 43,4B,2C F746 20,61,6E F749 64,20,53 F74C 50,41,43 F74F 45,20,42 F752 41,52 <0376> F754 FB FEND <0377> F755 00 RTN <0378> F756 86,74 DIREC2 CLR @KBNO Clear keyboard number <0379> F758 BF,20,01 DST >0102,@CURADD Prompt location F75B 02 <0380> F75C BF,1C,10 DST >1000,@PABPTR Use first PAB area F75F 00 <0381> F760 B6,48,20 OR >20,@FLAG Set return bit for error <0382> F763 06,E5,1D CALL GETALL Input the filename <0383> F766 86,42 DIREC3 CLR @XTOKEN <0384> F768 06,EF,65 CALL CLRREA <0385> F76B 31,00,09 MOVE 9,G@CATDAT,V*PABPTR Prepare PAB F76E B0,1C,FA F771 A1 <0386> F772 06,EF,73 CALL ONEKEY <0387> F775 06,E5,6A CALL DOIO Open the file <0388> F778 BF,B0,1C DST >020D,V*PABPTR Read opcode to PAB F77B 02,0D <0389> F77D 06,E5,6A CALL DOIO Read first record <0390> F780 07,20 ALL SPACE Clear screen again <0391> F782 06,FA,B2 CALL SCREEN Set up header <0392> F785 BE,AF,25 ST >20,V@>2500 F788 00,20 <0393> F78A 35,11,00 MOVE >1100,V@>2500,V@>2501 F78D AF,25,01 F790 AF,25,00 <0394> F793 BF,40,25 DST >2580,@>8340 F796 80 <0395> F797 BE,02,59 ST >59,@>8302 Y <0396> F79A 03 TSTKEY SCAN Scan the keyboard <0397> F79B 57,B5 BR TSTKE5 Any key? <0398> F79D D6,75,20 CEQ SPACE,@KEY SPACE KEY? <0399> F7A0 77,B2 BS TSTKE4 Yes, wait. <0400> F7A2 D6,75,0F CEQ BACK,@KEY BACK key? <0401> F7A5 57,AE BR TSTKE3 No <0402> F7A7 86,42 TSTKE2 CLR @XTOKEN Yes, so restart <0403> F7A9 06,E5,66 CALL CLOSE Close disk <0404> F7AC 56,C4 BR DIRECT Start Catalog again <0405> F7AE 86,42 TSTKE3 CLR @XTOKEN Clear flag <0406> F7B0 57,BF BR ARROWS <0407> F7B2 03 TSTKE4 SCAN Wait for any key. <0408> F7B3 57,B2 BR TSTKE4 Loop <0409> F7B5 06,E5,6A TSTKE5 CALL DOIO Read file info <0410> F7B8 06,FB,9F CALL FILNAM Put it on screen <0411> F7BB 57,9A BR TSTKEY Loop till done <0412> F7BD 92,1E DEC @COUNT COUNT-1 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0041 E/A GROM <0413> F7BF 06,EE,34 ARROWS CALL CLRFAC <0414> F7C2 BC,4B,1E ST @COUNT,@FAC1 <0415> F7C5 CB,4A,00 DCHE 100,@FAC F7C8 64 <0416> F7C9 57,D3 BR ARROW1 <0417> F7CB A7,4A,00 DSUB 100,@FAC F7CE 64 <0418> F7CF BE,A0,1C ST 49,V@28 Show it 1__ F7D2 31 <0419> F7D3 CB,4A,00 ARROW1 DCHE 9,@FAC F7D6 09 <0420> F7D7 57,EC BR ARROW2 <0421> F7D9 AE,4A,0A DIV 10,@FAC <0422> F7DC A2,4A,30 ADD >30,@FAC <0423> F7DF BC,A0,1D ST @FAC,V@29 Show it _#_ F7E2 4A <0424> F7E3 A2,4B,30 ADD >30,@FAC1 <0425> F7E6 BC,A0,1E ST @FAC1,V@30 Show it __# F7E9 4B <0426> F7EA 57,F3 BR ARROW3 <0427> F7EC A2,4B,30 ARROW2 ADD >30,@FAC1 <0428> F7EF BC,A0,1E ST @FAC1,V@30 F7F2 4B <0429> F7F3 BF,10,00 ARROW3 DST >0081,@>8310 Arrows location F7F6 81 <0430> F7F7 BF,04,25 DST >2580,@>8304 Recall buffer F7FA 80 <0431> F7FB 35,02,60 OKKEY MOVE >0260,V*>8304,V@>0080 Fill screen F7FE A0,80,B0 F801 04 <0432> F802 BE,B0,10 NOKEY ST 130,V*>8310 Left arrow F805 82 <0433> F806 BE,E0,0B ST 131,V@11(@>8310) Right arrow F809 10,83 <0434> F80B 03 SCAN <0435> F80C D6,75,01 CEQ AID,@KEY AID <0436> F80F 58,2A BR NAID <0437> F811 35,03,00 MOVE 768,V@0,V@>2000 Save screen F814 AF,20,00 F817 A0,00 <0438> F819 06,F6,C9 CALL DMENU <0439> F81C 03 YAID SCAN Any key? <0440> F81D 58,1C BR YAID No. <0441> F81F 35,03,00 MOVE 768,V@>2000,V@0 Restore screen F822 A0,00,AF F825 20,00 <0442> F827 03 WAID SCAN Any key? <0443> F828 58,27 BR WAID <0444> F82A D6,75,02 NAID CEQ CLEAR,@KEY CLEAR <0445> F82D 77,A7 BS TSTKE2 <0446> F82F D6,75,0C CEQ PROCD,@KEY PROCEED <0447> F832 79,08 BS ENTER0 <0448> F834 D6,75,06 CEQ REDO,@KEY REDO <0449> F837 77,A7 BS TSTKE2 <0450> F839 D6,75,0F BACK0 CEQ BACK,@KEY BACK <0451> F83C 58,75 BR BEGIN0 <0452> F83E D7,AF,10 DCEQ 'DS',V@>100A DS? DISK ONLY? F841 0A,44,53 <0453> F844 77,A7 BS TSTKE2 <0454> F846 06,F9,0E CALL CLRBUF Clear buffers and FAC <0455> F849 BD,4A,AF DST V@>1008,@FAC Get length F84C 10,08 <0456> F84E D7,4A,00 DCEQ 5,@FAC DSK#. or SCS#. or WDS#. F851 05 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0042 E/A GROM <0457> F852 78,A3 BS BEGIN3 <0458> F854 CB,4A,00 DCHE 4,@FAC F857 04 <0459> F858 58,A3 BR BEGIN3 <0460> F85A 06,F9,0E CALL CLRBUF Clear buffers and FAC <0461> F85D BD,4A,AF DST V@>1008,@FAC Get length F860 10,08 <0462> F862 93,4A BACK1 DDEC @FAC Length -1 <0463> F864 D6,EF,10 CEQ >2E,V@>1009(@FAC) .? F867 09,4A,2E <0464> F86A 58,62 BR BACK1 No, keep searching <0465> F86C CB,4A,00 DCHE 5,@FAC DSK. or SCS. or WDS. or DSK#. F86F 05 <0466> F870 78,A3 BS BEGIN3 <0467> F872 BE,75,0E BACK3 ST BEGIN,@KEY <0468> F875 D6,75,0E BEGIN0 CEQ BEGIN,@KEY BEGIN <0469> F878 58,C2 BR FCTNUP <0470> F87A 06,EE,34 CALL CLRFAC Clear buffers and FAC <0471> F87D BD,4A,AF DST V@>1008,@FAC Get length F880 10,08 <0472> F882 D7,4A,00 DCEQ 5,@FAC DSK#. or SCS#. or WDS#. F885 05 <0473> F886 78,9A BS BEGIN2 <0474> F888 87,4A DCLR @FAC Clear FAC <0475> F88A 91,4A BEGIN1 DINC @FAC COUNT +1 <0476> F88C D6,EF,10 CEQ >2E,V@>1009(@FAC) .? F88F 09,4A,2E <0477> F892 58,8A BR BEGIN1 No, keep searching <0478> F894 D7,4A,00 DCEQ 4,@FAC DSK. Length? F897 04 <0479> F898 78,8A BS BEGIN1 Yes, look for Volume. <0480> F89A 91,4A BEGIN2 DINC @FAC LENGTH+1 <0481> F89C BF,EF,10 DST >0D0D,V@>1009(@FAC) F89F 09,4A,0D F8A2 0D <0482> F8A3 BD,AF,10 BEGIN3 DST @FAC,V@>1008 F8A6 08,4A <0483> F8A8 A3,4A,00 DADD 2,@FAC F8AB 02 <0484> F8AC 34,4A,AF MOVE @FAC,V@>1008,V@>2255 F8AF 22,55,AF F8B2 10,08 <0485> F8B4 34,4A,AF MOVE @FAC,V@>1008,V@>2400 F8B7 24,00,AF F8BA 10,08 <0486> F8BC BE,42,37 ST >37,@XTOKEN <0487> F8BF 05,E0,28 B OLDEA [0008] *********************************************************** [0009] COPY 'DSK5.MYXB7-D' <0001> <0002> <0003> F8C2 D6,75,0B FCTNUP CEQ 11,@KEY FCTN UP <0004> F8C5 79,FE BS UPKEY <0005> F8C7 D6,75,45 CEQ 'E',@KEY UP (E) <0006> F8CA 79,FE BS UPKEY <0007> F8CC D6,75,65 CEQ 'e',@KEY UP (e) <0008> F8CF 79,FE BS UPKEY <0009> F8D1 D6,75,0A CEQ 10,@KEY FCTN DOWN <0010> F8D4 7A,16 BS DKEY <0011> F8D6 D6,75,58 CEQ 'X',@KEY DOWN (X) <0012> F8D9 7A,16 BS DKEY <0013> F8DB D6,75,78 CEQ 'x',@KEY DOWN (x) <0014> F8DE 7A,16 BS DKEY <0015> F8E0 D6,75,08 CEQ 8,@KEY FCTN LEFT 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0043 E/A GROM <0016> F8E3 7A,3A BS LKEY <0017> F8E5 D6,75,53 CEQ 83,@KEY LEFT (S) <0018> F8E8 7A,3A BS LKEY <0019> F8EA D6,75,73 CEQ 115,@KEY LEFT (s) <0020> F8ED 7A,3A BS LKEY <0021> F8EF D6,75,09 CEQ 9,@KEY FCTN RIGHT <0022> F8F2 7A,5F BS RKEY <0023> F8F4 D6,75,44 CEQ 68,@KEY RIGHT (D) <0024> F8F7 7A,5F BS RKEY <0025> F8F9 D6,75,64 CEQ 100,@KEY RIGHT (d) <0026> F8FC 7A,5F BS RKEY <0027> F8FE D6,75,20 CEQ ' ',@KEY SPACE BAR <0028> F901 79,08 BS ENTER0 <0029> F903 D6,75,0D CEQ ENTER,@KEY ENTER <0030> F906 58,02 BR NOKEY <0031> F908 06,F9,0E ENTER0 CALL CLRBUF <0032> F90B 05,F9,29 B ENTR <0033> F90E BE,AF,22 CLRBUF ST ENTER,V@>2257 Clear buffer F911 57,0D <0034> F913 35,00,3F MOVE 63,V@>2257,V@>2258 F916 AF,22,58 F919 AF,22,57 <0035> F91C 35,00,3F MOVE 63,V@>2257,V@>2402 F91F AF,24,02 F922 AF,22,57 <0036> F925 06,EE,34 CALL CLRFAC <0037> F928 00 RTN <0038> F929 BD,06,AF ENTR DST V@>1008,@>8306 Get length of device F92C 10,08 <0039> F92E BE,EF,10 ST >2E,V@>1009(@>8306) F931 09,06,2E <0040> F934 34,06,AF MOVE @>8306,V@>100A,V@>2402 F937 24,02,AF F93A 10,0A <0041> F93C BD,4C,10 DST @>8310,@FAC2 <0042> F93F 90,11 INC @>8311 <0043> F941 90,4D ENTER1 INC @FAC3 Index+1 <0044> F943 90,4B INC @FAC1 Count+1 <0045> F945 D6,B0,4C CEQ SPACE,V*FAC2 Space? F948 20 <0046> F949 79,50 BS ENTER2 Yes <0047> F94B D6,4B,0B CEQ 11,@FAC1 To long? <0048> F94E 59,41 BR ENTER1 <0049> F950 BE,B0,4C ENTER2 ST ENTER,V*FAC2 cr F953 0D <0050> F954 D7,E0,10 DCEQ 'Di',V@16(@>8310) Directory? F957 10,44,69 <0051> F95A 59,6A BR NODIR No <0052> F95C D6,E0,12 CEQ 'r',V@18(@>8310) F95F 10,72 <0053> F961 59,6A BR NODIR <0054> F963 BF,B0,4C DST >2E0D,V*FAC2 .cr F966 2E,0D <0055> F968 90,4A INC @FAC Count+1 <0056> F96A 34,4A,EF NODIR MOVE @FAC,V*>8310,V@>100A(@>8306) F96D 10,0A,06 F970 B0,10 <0057> F972 A1,4A,06 DADD @>8306,@FAC <0058> F975 34,4A,AF MOVE @FAC,V@>100A,V@>2257 F978 22,57,AF F97B 10,0A <0059> F97D BD,AF,22 DST @FAC,V@>2255 F980 55,4A <0060> F982 90,07 INC @>8307 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0044 E/A GROM <0061> F984 BD,AF,24 DST @>8306,V@>2400 F987 00,06 <0062> F989 06,E5,66 CALL CLOSE <0063> <0064> F98C BE,42,EA ST >EA,@XTOKEN Set flag <0065> <0066> F98F D6,75,20 CEQ 32,@KEY SPACE BAR <0067> F992 79,D8 BS XBPGM <0068> F994 D7,E0,10 DCEQ 'Di',V@16(@>8310) Directory? F997 10,44,69 <0069> F99A 59,A3 BR PORVI <0070> F99C D6,E0,12 CEQ 'r',V@18(@>8310) F99F 10,72 <0071> F9A1 76,C4 BS DIRECT <0072> F9A3 D6,E0,10 PORVI CEQ 'P',V@16(@>8310) Program? F9A6 10,50 <0073> F9A8 67,16 BS PRGRM <0074> F9AA D6,E0,14 CEQ 'V',V@20(@>8310) Variable? F9AD 10,56 <0075> F9AF 59,C7 BR DORF80 <0076> F9B1 D6,E0,10 CEQ 'I',V@16(@>8310) Internal? F9B4 10,49 <0077> F9B6 59,C7 BR DORF80 <0078> F9B8 D7,E0,18 DCEQ '25',V@24(@>8310) Length 25_? F9BB 10,32,35 <0079> F9BE 59,C7 BR DORF80 <0080> F9C0 D6,E0,1A CEQ '4',V@26(@>8310) Length 254? F9C3 10,34 <0081> F9C5 6E,D9 BS XBINP <0082> F9C7 D7,E0,19 DORF80 DCEQ '80',V@25(@>8310) Length 80? F9CA 10,38,30 <0083> F9CD 40,71 BR MMENU <0084> F9CF D6,E0,14 CEQ 'F',V@20(@>8310) Fixed? F9D2 10,46 <0085> F9D4 69,E4 BS LANDR <0086> F9D6 40,71 BR MMENU <0087> F9D8 D6,E0,10 XBPGM CEQ 'P',V@16(@>8310) Program? F9DB 10,50 <0088> F9DD 6E,D9 BS XBINP <0089> F9DF D6,E0,14 CEQ 'V',V@20(@>8310) Variable? F9E2 10,56 <0090> F9E4 40,71 BR MMENU <0091> F9E6 D6,E0,10 CEQ 'I',V@16(@>8310) Internal? F9E9 10,49 <0092> F9EB 40,71 BR MMENU <0093> F9ED D7,E0,18 DCEQ '25',V@24(@>8310) Length 25_? F9F0 10,32,35 <0094> F9F3 40,71 BR MMENU <0095> F9F5 D6,E0,1A CEQ '4',V@26(@>8310) Length 254? F9F8 10,34 <0096> F9FA 6E,D9 BS XBINP <0097> F9FC 40,71 BR MMENU <0098> <0099> F9FE D7,10,00 UPKEY DCEQ >0081,@>8310 Top of screen? FA01 81 <0100> FA02 7A,0A BS GLESS So scroll screen down <0101> FA04 A7,10,00 DSUB 32,@>8310 Up one. FA07 20 <0102> FA08 5A,14 BR GLESS2 Return <0103> FA0A D7,04,25 GLESS DCEQ >2580,@>8304 Start of buffer? FA0D 80 <0104> FA0E 77,FB BS OKKEY Yes <0105> FA10 A7,04,00 DSUB >20,@>8304 One more line down FA13 20 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0045 E/A GROM <0106> FA14 57,FB GLESS2 BR OKKEY <0107> FA16 D6,E0,01 DKEY CEQ >20,V@1(@>8310) Blank line? FA19 10,20 <0108> FA1B 79,FE BS UPKEY <0109> FA1D D7,10,02 DCEQ >02C1,@>8310 Bottom of screen? FA20 C1 <0110> FA21 7A,29 BS GMORE So scroll screen up <0111> FA23 A3,10,00 DADD 32,@>8310 Down one. FA26 20 <0112> FA27 57,FB BR OKKEY No <0113> FA29 D5,04,40 GMORE DCEQ @>8340,@>8304 End of buffer? <0114> FA2C 77,FB BS OKKEY Yes <0115> FA2E D6,A0,A2 CEQ >20,V@>00A2 Last line in buffer? FA31 20 <0116> FA32 77,FB BS OKKEY Yes <0117> FA34 A3,04,00 DADD >20,@>8304 One more line up FA37 20 <0118> FA38 57,FB BR OKKEY <0119> FA3A BE,76,12 LKEY ST 18,@>8376 Line Counter <0120> FA3D D7,10,00 LUPKEY DCEQ >0081,@>8310 Top of screen? FA40 81 <0121> FA41 7A,49 BS LGLESS So scroll screen down <0122> FA43 A7,10,00 DSUB 32,@>8310 Up one. FA46 20 <0123> FA47 5A,53 BR LGLES2 Return <0124> FA49 D7,04,25 LGLESS DCEQ >2580,@>8304 Start of buffer? FA4C 80 <0125> FA4D 7A,55 BS LOKKEY Yes <0126> FA4F A7,04,00 DSUB >20,@>8304 One more line down FA52 20 <0127> FA53 5A,55 LGLES2 BR LOKKEY <0128> FA55 06,FA,90 LOKKEY CALL FLSCR <0129> FA58 92,76 DEC @>8376 Line counter -1 <0130> FA5A 5A,3D BR LUPKEY Continue Loop <0131> FA5C 05,F8,02 B NOKEY Done. <0132> FA5F BE,76,12 RKEY ST 18,@>8376 Line Counter <0133> FA62 D6,E0,01 RDKEY CEQ >20,V@1(@>8310) Blank line? FA65 10,20 <0134> FA67 79,FE BS UPKEY <0135> FA69 D7,10,02 DCEQ >02C1,@>8310 Bottom of screen? FA6C C1 <0136> FA6D 7A,75 BS RGMORE So scroll screen up <0137> FA6F A3,10,00 DADD 32,@>8310 Down one. FA72 20 <0138> FA73 5A,86 BR ROKKEY No <0139> FA75 D5,04,40 RGMORE DCEQ @>8340,@>8304 End of buffer? <0140> FA78 7A,86 BS ROKKEY Yes <0141> FA7A D6,A0,A2 CEQ >20,V@>00A2 Last line in buffer? FA7D 20 <0142> FA7E 7A,86 BS ROKKEY Yes <0143> FA80 A3,04,00 DADD >20,@>8304 One more line up FA83 20 <0144> FA84 5A,86 BR ROKKEY <0145> FA86 06,FA,90 ROKKEY CALL FLSCR <0146> FA89 92,76 DEC @>8376 Line counter -1 <0147> FA8B 5A,62 BR RDKEY Continue Loop <0148> FA8D 05,F8,02 B NOKEY Done. <0149> FA90 35,02,60 FLSCR MOVE >0260,V*>8304,V@>0080 Fill screen FA93 A0,80,B0 FA96 04 <0150> FA97 BE,B0,10 ST 130,V*>8310 Left arrow FA9A 82 <0151> FA9B BE,E0,0B ST 131,V@11(@>8310) Right arrow FA9E 10,83 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0046 E/A GROM <0152> FAA0 00 RTN <0153> * <0154> * PAB data <0155> * <0156> FAA1 00,0D,08 CATDAT BYTE 0,>D,8,>36,0,0,0,0,0 FAA4 36,00,00 FAA7 00,00,00 <0157> * <0158> FAAA 40,02,00 HALVE BYTE >40,>02,0,0,0,0,0,0 FAAD 00,00,00 FAB0 00,00 <0159> * <0160> * Screen - prints initial screen and disk info <0161> * <0162> FAB2 08 SCREEN FMT <0163> FAB3 FE,00 ROW 0 <0164> FAB5 FF,02 COL 2 <0165> FAB7 1C,44,69 HTEX 'Directory= Files000' FABA 72,65,63 FABD 74,6F,72 FAC0 79,3D,20 FAC3 20,20,20 FAC6 20,20,20 FAC9 20,20,20 FACC 20,46,69 FACF 6C,65,73 FAD2 30,30,30 <0166> FAD5 A0 ROW+ 1 <0167> FAD6 FF,02 COL 2 <0168> FAD8 14,46,72 HTEX 'Free= Used=' FADB 65,65,3D FADE 20,20,20 FAE1 20,20,20 FAE4 20,20,20 FAE7 20,20,55 FAEA 73,65,64 FAED 3D <0169> FAEE A0 ROW+ 1 <0170> FAEF FF,02 COL 2 <0171> FAF1 1C,20,46 HTEX ' Filename Size Type P' FAF4 69,6C,65 FAF7 6E,61,6D FAFA 65,20,20 FAFD 53,69,7A FB00 65,20,20 FB03 20,20,54 FB06 79,70,65 FB09 20,20,20 FB0C 20,20,50 <0172> FB0F A0 ROW+ 1 <0173> FB10 FF,02 COL 2 <0174> FB12 1C,2D,2D HTEX '---------- ---- ----------- -' FB15 2D,2D,2D FB18 2D,2D,2D FB1B 2D,2D,20 FB1E 2D,2D,2D FB21 2D,20,2D FB24 2D,2D,2D FB27 2D,2D,2D FB2A 2D,2D,2D FB2D 2D,20,2D <0175> FB30 FB FEND <0176> FB31 86,1E CLR @COUNT Clear file counter <0177> FB33 06,FC,9D CALL DISSTR Get string into FAC 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0047 E/A GROM <0178> FB36 8E,4B CZ @FAC1 Skip if zero length <0179> FB38 7B,42 BS CAT3 <0180> FB3A 08 FMT <0181> FB3B FE,00 ROW 0 <0182> FB3D FF,0C COL 12 <0183> FB3F E9,4C HSTR 10,@FAC2 <0184> FB41 FB FEND <0185> FB42 A1,10,4A CAT3 DADD @FAC,@>8310 Go to next field <0186> FB45 A3,10,00 DADD 19,@>8310 Continue to last field FB48 13 <0187> FB49 BF,14,00 DST >28,@>8314 Set up screen addr FB4C 28 <0188> FB4D D7,AF,10 DCEQ >4453,V@>100A DSK? FB50 0A,44,53 <0189> FB53 5B,5B BR CAT4 No, must be HARD <0190> FB55 06,FC,7A CALL DISNUM Display available DSK space <0191> FB58 05,FB,6E B CAT4A <0192> FB5B 35,00,08 CAT4 MOVE 8,V*>8310,@ARG Get Available space *2 FB5E 5C,B0,10 <0193> FB61 31,00,08 MOVE 8,G@HALVE,@FAC Get divisor FB64 4A,FA,AA <0194> FB67 0F,09 XML FDIV <0195> FB69 0F,02 XML ROUND <0196> FB6B 06,FC,80 CALL DISNU1 Display available HARD space <0197> * Display used space <0198> FB6E 35,00,08 CAT4A MOVE 8,V*>8310,@FAC Get Available space FB71 4A,B0,10 <0199> FB74 A7,10,00 DSUB 9,@>8310 Point to formatted space FB77 09 <0200> FB78 35,00,08 MOVE 8,V*>8310,@ARG Move it to ARG FB7B 5C,B0,10 <0201> FB7E 0F,07 XML FSUB Develop used value *2 <0202> FB80 BF,14,00 DST >38,@>8314 Set up screen addr FB83 38 <0203> FB84 D7,AF,10 DCEQ >4453,V@>100A DSK? FB87 0A,44,53 <0204> FB8A 7B,9B BS CAT4B Yes, must be DISK <0205> FB8C 35,00,08 MOVE 8,@FAC,@ARG Get Unused space *2 FB8F 5C,4A <0206> FB91 31,00,08 MOVE 8,G@HALVE,@FAC Get divisor FB94 4A,FA,AA <0207> FB97 0F,09 XML FDIV <0208> FB99 0F,02 XML ROUND <0209> FB9B 06,FC,80 CAT4B CALL DISNU1 Display used space <0210> FB9E 00 RTN Return <0211> * <0212> * Display one file on screen <0213> * <0214> FB9F 06,FC,9D FILNAM CALL DISSTR Get string into FAC <0215> FBA2 90,1E INC @COUNT FILE COUNT +1 <0216> FBA4 8E,4B CZ @FAC1 Skip display if zero <0217> FBA6 7B,B0 BS CAT5 length <0218> FBA8 08 FMT Put disk name on screen <0219> FBA9 FE,17 ROW 23 . <0220> FBAB FF,02 COL 02 . <0221> FBAD E9,4C HSTR 10,@FAC2 . <0222> FBAF FB FEND . <0223> FBB0 A1,10,4A CAT5 DADD @FAC,@>8310 Go to next field <0224> FBB3 A3,10,00 DADD 10,@>8310 Continue another field FBB6 0A <0225> FBB7 8F,B0,10 DCZ V*>8310 Time to get out if <0226> FBBA 7C,75 BS FILNA1 zero file size <0227> FBBC BF,14,02 DST >2EA,@>8314 Set up screen address FBBF EA 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0048 E/A GROM <0228> FBC0 06,FC,7A CALL DISNUM Display file length <0229> FBC3 A7,10,00 DSUB 9,@>8310 Back a field FBC6 09 <0230> FBC7 35,00,08 MOVE 8,V*>8310,@FAC Move it into FAC FBCA 4A,B0,10 <0231> FBCD 0F,12 XML CFI Convert it to an int. <0232> FBCF 8E,4A CZ @FAC Non-negative? <0233> FBD1 7B,D9 BS CAT5A YES! File not protected <0234> FBD3 BC,A2,FE ST @>8302,V@>2FE Put a 'Y' on screen FBD6 02 <0235> FBD7 83,4A DNEG @FAC Make number positive <0236> FBD9 92,4B CAT5A DEC @FAC1 Adjust for CASE <0237> FBDB 8A,4B CASE @FAC1 Show file type <0238> FBDD 5B,E9 BR DF . <0239> FBDF 5B,F9 BR DV . <0240> FBE1 5C,09 BR IF . <0241> FBE3 5C,19 BR IV . <0242> FBE5 5C,29 BR PR . <0243> FBE7 5C,39 BR DI <0244> FBE9 08 DF FMT <0245> FBEA FE,17 ROW 23 <0246> FBEC FF,12 COL 18 <0247> FBEE 06,44,69 HTEX 'Dis/Fix' FBF1 73,2F,46 FBF4 69,78 <0248> FBF6 FB FEND <0249> FBF7 5C,4B BR CAT6 <0250> FBF9 08 DV FMT <0251> FBFA FE,17 ROW 23 <0252> FBFC FF,12 COL 18 <0253> FBFE 06,44,69 HTEX 'Dis/Var' FC01 73,2F,56 FC04 61,72 <0254> FC06 FB FEND <0255> FC07 5C,4B BR CAT6 <0256> FC09 08 IF FMT <0257> FC0A FE,17 ROW 23 <0258> FC0C FF,12 COL 18 <0259> FC0E 06,49,6E HTEX 'Int/Fix' FC11 74,2F,46 FC14 69,78 <0260> FC16 FB FEND <0261> FC17 5C,4B BR CAT6 <0262> FC19 08 IV FMT <0263> FC1A FE,17 ROW 23 <0264> FC1C FF,12 COL 18 <0265> FC1E 06,49,6E HTEX 'Int/Var' FC21 74,2F,56 FC24 61,72 <0266> FC26 FB FEND <0267> FC27 5C,4B BR CAT6 <0268> FC29 08 PR FMT <0269> FC2A FE,17 ROW 23 <0270> FC2C FF,12 COL 18 <0271> FC2E 06,50,72 HTEX 'Program' FC31 6F,67,72 FC34 61,6D <0272> FC36 FB FEND <0273> FC37 5C,56 BR CAT7 Return <0274> FC39 08 DI FMT <0275> FC3A FE,17 ROW 23 <0276> FC3C FF,12 COL 18 <0277> FC3E 08,44,69 HTEX 'Directory' FC41 72,65,63 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0049 E/A GROM FC44 74,6F,72 FC47 79 <0278> FC48 FB FEND <0279> FC49 5C,56 BR CAT7 <0280> FC4B A3,10,00 CAT6 DADD 18,@>8310 Advavce two fields FC4E 12 <0281> FC4F BF,14,02 DST >2F6,@>8314 Set up screen address FC52 F6 <0282> FC53 06,FC,7A CALL DISNUM Display record length <0283> FC56 35,00,1F CAT7 MOVE >1F,V@>02E0,V@0(@>8340) FC59 E0,00,40 FC5C A2,E0 <0284> FC5E A3,40,00 DADD >20,@>8340 FC61 20 <0285> * <0286> * Scroll the screen <0287> * <0288> FC62 35,02,60 SCROLL MOVE >260,V@>A0,V@>80 Scroll screen FC65 A0,80,A0 FC68 A0 <0289> FC69 BE,A2,E0 ST SPACE,V@>2E0 Clear last line FC6C 20 <0290> FC6D 35,00,1F MOVE >1F,V@>2E0,V@>2E1 FC70 A2,E1,A2 FC73 E0 <0291> FC74 00 RTN Return <0292> FC75 87,12 FILNA1 DCLR @>8312 Clear a byte <0293> FC77 8E,12 CZ @>8312 Set COND bit <0294> FC79 01 RTNC Return w/COND <0295> * Display number subroutine <0296> * ENTER: Floating number in FAC for DISNU1 <0297> * Screen address in >8314 <0298> * <0299> FC7A 35,00,08 DISNUM MOVE 8,V*>8310,@FAC Move FLP number to FAC FC7D 4A,B0,10 <0300> FC80 86,55 DISNU1 CLR @FAC11 Indicate a free format <0301> FC82 06,00,14 CALL CNS Convert FAC to a string <0302> FC85 BF,16,00 DST 7,@>8316 Right justify number FC88 07 <0303> FC89 A4,17,56 S @FAC12,@>8317 <0304> FC8C A1,14,16 DADD @>8316,@>8314 <0305> FC8F BC,B0,14 DISNU2 ST *FAC11,V*>8314 Put a char on the screen FC92 90,55 <0306> FC94 91,14 DINC @>8314 Increment screen addr. <0307> FC96 90,55 INC @FAC11 Increment FAC addr. <0308> FC98 92,56 DEC @FAC12 Decrement string length count <0309> FC9A 5C,8F BR DISNU2 Loop until done <0310> FC9C 00 RTN Return to caller <0311> * <0312> * Prepare a VDP string for FORMAT statement <0313> * LEAVE: FAC has string length (word) <0314> * FAC2 has string <0315> * >8310 pointing to next string in record <0316> * <0317> FC9D BF,10,08 DISSTR DST >0836,@>8310 Get buffer address FCA0 36 <0318> FCA1 86,4A CLR @FAC Clear MSB of FAC word <0319> FCA3 BC,4B,B0 ST V*>8310,@FAC1 Store disk name length FCA6 10 <0320> FCA7 91,10 DINC @>8310 Point to string <0321> FCA9 BE,4C,20 ST >20,@FAC2 Clear out string space <0322> FCAC 35,00,09 MOVE 9,@FAC2,@FAC3 . FCAF 4D,4C <0323> FCB1 34,4A,4C MOVE @FAC,V*>8310,@FAC2 Move disk name into FAC 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0050 E/A GROM FCB4 B0,10 <0324> FCB6 00 RTN <0325> *********************************************************** <0326> FCB7 FD,33 VEIW40 DATA EADSR * Viewer 40 Column <0327> FCB9 FC,BF DATA MV40 <0328> FCBB 03,56,34 STRI 'V40' FCBE 30 <0329> ******************************* <0330> FCBF BD,58,56 MV40 DST @>8356,@>8358 <0331> FCC2 A5,58,54 DSUB @>8354,@>8358 <0332> FCC5 35,00,0A MOVE 10,V@-10(@>8358),@FAC FCC8 4A,EF,FF FCCB F6,58 <0333> FCCD B2,EF,FF AND >1F,V@-9(@>8358) FCD0 F7,58,1F <0334> FCD3 C6,4A,04 CH >04,@FAC <0335> FCD6 7D,16 BS DSREXT <0336> FCD8 8A,4A CASE @FAC <0337> FCDA 5C,F6 BR VOPEN * OPEN <0338> FCDC 5D,19 BR VCLOSE * CLOSE <0339> FCDE 5D,16 BR DSREXT * READ <0340> FCE0 35,03,70 MOVE 880,V@80,V@0 * WRITE FCE3 A0,00,A0 FCE6 50 <0341> FCE7 35,00,50 MOVE 80,V*FAC2,V@880 FCEA A3,70,B0 FCED 4C <0342> FCEE 03 SCAN <0343> FCEF 5D,16 BR DSREXT <0344> FCF1 03 FREEZE SCAN <0345> FCF2 5C,F1 BR FREEZE <0346> FCF4 5D,16 BR DSREXT <0347> FCF6 35,00,80 VOPEN MOVE 128,V@>0380,V@-128(@>8370) FCF9 EF,FF,80 FCFC 70,A3,80 <0348> FCFF BE,4A,F0 ST >F0,@FAC <0349> FD02 3D,00,01 MOVE 1,@FAC,#1 FD05 01,4A <0350> FD07 BE,80,D4 ST >F0,@>83D4 FD0A F0 <0351> FD0B BE,A0,00 ST >20,V@0 FD0E 20 <0352> FD0F 35,03,BF MOVE 959,V@0,V@1 FD12 A0,01,A0 FD15 00 <0353> FD16 06,00,12 DSREXT CALL RETURN <0354> FD19 03 VCLOSE SCAN <0355> FD1A 5D,19 BR VCLOSE <0356> FD1C 35,00,80 MOVE 128,V@-128(@>8370),V@>0380 FD1F A3,80,EF FD22 FF,80,70 <0357> FD25 BE,00,E0 ST >E0,@>8300 <0358> FD28 3D,00,01 MOVE 1,@>8300,#1 FD2B 01,00 <0359> FD2D BE,80,D4 ST >E0,@>83D4 FD30 E0 <0360> FD31 5D,16 BR DSREXT <0361> ************************************ <0362> FD33 FD,3A EADSR DATA SEADSR <0363> FD35 E0,28 DATA OLDEA <0364> FD37 02,45,41 STRI 'EA' <0365> FD3A FD,41 SEADSR DATA XBDSR <0366> FD3C E0,28 DATA OLDEA <0367> FD3E 02,65,61 STRI 'ea' 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0051 E/A GROM <0368> ************************************ <0369> FD41 FD,48 XBDSR DATA SXBDSR <0370> FD43 63,72 DATA RXB <0371> FD45 02,58,42 STRI 'XB' <0372> FD48 FD,4F SXBDSR DATA BASIC <0373> FD4A 63,72 DATA RXB <0374> FD4C 02,78,62 STRI 'xb' <0375> ************************************ <0376> FD4F FD,59 BASIC DATA SBASIC <0377> FD51 21,6F DATA >216F <0378> FD53 05,42,41 STRI 'BASIC' FD56 53,49,43 <0379> FD59 00,00 SBASIC DATA >0000 <0380> FD5B 21,6F DATA >216F <0381> FD5D 05,62,61 STRI 'basic' FD60 73,69,63 <0382> ************************************ <0383> END 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0052 E/A GROM Symbol Table #1 (New,alpha) 0001 AID 835C ARG F7D3 ARROW1 F7EC ARROW2 F7F3 ARROW3 F7BF ARROWS E82D ASSEM 000F BACK F839 BACK0 F862 BACK1 F872 BACK3 FD4F BASIC 000E BEGIN F875 BEGIN0 F88A BEGIN1 F89A BEGIN2 F8A3 BEGIN3 001C BERR 0038 BGETSS EDE2 BINIT2 EDEA BINIT3 E520 BLDPAB E551 BLNKBU EE22 BUGS FB42 CAT3 FB5B CAT4 FB6E CAT4A FB9B CAT4B FBB0 CAT5 FBD9 CAT5A FC4B CAT6 FC56 CAT7 FAA1 CATDAT ED53 CCRMSG EBEF CHKER2 EBE4 CHKERR 8318 CHRCUR 0023 CIF 0002 CLEAR E566 CLOSE F90E CLRBUF E032 CLREA EE34 CLRFAC ECD4 CLRMSG EF65 CLRREA E708 CLRXOP EC30 CLSALL EC4D CLSPAB 8322 CODE E22D COLBAC E23A COLEND 077F COLOR E1B7 COLORS E210 COLSCN 831E COUNT 8320 CURADD EDC4 CUREDP EDCC CURPAT E17F DARROW EE12 DASSM1 E823 DDSK1 E828 DEDIT1 EE64 DEV1 EE7D DEV2 EE80 DEV3 EE81 DEV4 EE3C DEVICE EE7A DEVNO FBE9 DF FC39 DI F756 DIREC2 F766 DIREC3 F6C4 DIRECT FC80 DISNU1 FC8F DISNU2 FC7A DISNUM FC9D DISSTR FA16 DKEY E821 DLEN EE1D DLOAD F6C9 DMENU E56A DOIO F9C7 DORF80 FD16 DSREXT 0010 DSRLNK 0012 DSRRET EE17 DUTIL1 FBF9 DV FD33 EADSR E6E1 EASCRN E246 EDITOR E3CF EMOPT2 8326 ENDLN 000D ENTER F908 ENTER0 F941 ENTER1 F950 ENTER2 F929 ENTR 8354 ERCODE ED48 ERRC ED79 ERRCE ED88 ERRDD ED17 ERRIOC ED6D ERRIT ED0B ERRMF EC6D ERRMSG ED26 ERRNME ED3A ERRNTL ECE0 ERROR EDB2 ERRPNF ED9D ERRUR E6BA EXPMEM 834A FAC 834B FAC1 8355 FAC11 8356 FAC12 834C FAC2 834D FAC3 834E FAC4 834F FAC5 8350 FAC6 8351 FAC7 8352 FAC8 8353 FAC9 F8C2 FCTNUP FC75 FILNA1 FB9F FILNAM 8348 FLAG 8349 FLAG2 FA90 FLSCR EAED FNDDON EA8A FNDLNK EA90 FNDLP EAAD FNDSHO FCF1 FREEZE 0000 G0000 0001 G0001 E03B GE029 E047 GE056 E07C GE116 E199 GE11F E2B5 GE19B E2FD GE1E2 E2FF GE1E4 E338 GE1F6 E354 GE1FC E385 GE22C E390 GE237 E39B GE23B E3C5 GE25B E3DB GE271 E3DC GE272 E3E5 GE27B E3ED GE283 E418 GE29C E42F GE2B3 E431 GE2B5 E440 GE2C4 E455 GE2D9 E487 GE30A E49F GE322 E4A8 GE32B E4C1 GE344 E4DC GE35F E4DE GE361 E4E4 GE367 E4FD GE380 E50A GE38D E550 GE3CF E596 GE415 E5AC GE42B E5AF GE42E E5BD GE43C E5C7 GE446 E5CD GE44C E5F6 GE456 E600 GE460 E621 GE46B E626 GE470 E632 GE47C E63B GE485 E64F GE499 E661 GE4AB E689 GE4D3 E693 GE4DD E6B7 GE501 E6B9 GE503 E793 GE597 E7A2 GE5A6 E7EA GE5E5 E80A GE605 E875 GE654 E880 GE687 E953 GE736 E973 GE756 E984 GE767 E9A1 GE784 E9BA GE7A2 E9BF GE7A7 E9CC GE7B1 E9DB GE7C0 EA15 GE7F2 EA3B GE816 EA46 GE821 EA4B GE826 EA5B GE848 EB11 GE883 EB1C GE88E EB31 GE8A3 EB34 GE8A8 EB3C GE8B0 EB3F GE8B3 EB60 GE8D4 EB6F GE8E3 EB81 GE8F5 EB88 GE8FC EB8E GE907 EB8F GE908 EB96 GE90F EB9D GE916 EBA4 GE91D EBAF GE928 EBB6 GE92F EBBD GE936 EBC4 GE93D EBCB GE944 EBD0 GE949 EBDF GE958 EC0D GE97A EC1C GE97F EC77 GE9DA EBA9 GE9E2 EC95 GE9F8 ECAF GEA12 ECBC GEA1F ECCB GEA2E EDF4 GEBA0 EE11 GEBBD E51D GETALL E58B GETINP E5BE GETKEY EF94 GF000 FA0A GLESS FA14 GLESS2 FA29 GMORE FAAA HALVE FC09 IF 8379 ITIMER FC19 IV 8374 KBNO 8375 KEY E9E4 LANDR 8347 LDFLAG FA53 LGLES2 FA49 LGLESS FA3A LKEY E7AE LODPGM E7BB LODUSR FA55 LOKKEY FA3D LUPKEY E010 MENU E071 MMENU EADC MORSCN E086 MSCRN FCBF MV40 E18F MYEAXB E78C MYSRCH F82A NAID E6DB NESCRN E037 NEWEA E16F NEWSCN E785 NO1KEY F96A NODIR E744 NOEABF F802 NOKEY F7FB OKKEY E028 OLDEA EF73 ONEKEY EACA OUTSCN E819 PAB E544 PABNAM 831C PABPTR E7D9 PGMLOD E9A8 PLEASE E7D1 PMSG F9A3 PORVI FC29 PR ECE9 PRESS E716 PRGRM 000C PROCD E5DA PSCANX FA62 RDKEY 0006 REDO FA75 RGMORE FA5F RKEY FA86 ROKKEY 0002 ROUND E17C RTRXB EA59 RUN 6372 RXB FD59 SBASIC FAB2 SCREEN FC62 SCROLL FD3A SEADSR E025 SOLDEA 0020 SPACE 8324 STLN 8373 SUBSTK FD48 SXBDSR F7A7 TSTKE2 F7AE TSTKE3 F7B2 TSTKE4 F7B5 TSTKE5 F79A TSTKEY EF93 TWOKEY 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0053 E/A GROM F9FE UPKEY E6FA USSCRN 837D VCHAR FD19 VCLOSE FCB7 VEIW40 E47D VFILE E413 VIEWR E406 VIT40 FCF6 VOPEN 8356 VPAB EDDC VREGS 836E VSTACK E57F VZERO F827 WAID ED00 WARN ECC4 WENTER EC61 WRNMSG EEDE XBAGN FD41 XBDSR EED9 XBINP EF11 XBINP1 EF49 XBINP2 EF5B XBINP3 F9D8 XBPGM 8342 XTOKEN F81C YAID E9B7 YESNO 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0054 E/A GROM Symbol Table #2 (New,value) 0000 G0000 0001 AID 0001 G0001 0002 CLEAR 0002 ROUND 0006 REDO 000C PROCD 000D ENTER 000E BEGIN 000F BACK 0010 DSRLNK 0012 DSRRET 001C BERR 0020 SPACE 0023 CIF 0038 BGETSS 077F COLOR 6372 RXB 8318 CHRCUR 831C PABPTR 831E COUNT 8320 CURADD 8322 CODE 8324 STLN 8326 ENDLN 8342 XTOKEN 8347 LDFLAG 8348 FLAG 8349 FLAG2 834A FAC 834B FAC1 834C FAC2 834D FAC3 834E FAC4 834F FAC5 8350 FAC6 8351 FAC7 8352 FAC8 8353 FAC9 8354 ERCODE 8355 FAC11 8356 FAC12 8356 VPAB 835C ARG 836E VSTACK 8373 SUBSTK 8374 KBNO 8375 KEY 8379 ITIMER 837D VCHAR E010 MENU E025 SOLDEA E028 OLDEA E032 CLREA E037 NEWEA E03B GE029 E047 GE056 E071 MMENU E07C GE116 E086 MSCRN E16F NEWSCN E17C RTRXB E17F DARROW E18F MYEAXB E199 GE11F E1B7 COLORS E210 COLSCN E22D COLBAC E23A COLEND E246 EDITOR E2B5 GE19B E2FD GE1E2 E2FF GE1E4 E338 GE1F6 E354 GE1FC E385 GE22C E390 GE237 E39B GE23B E3C5 GE25B E3CF EMOPT2 E3DB GE271 E3DC GE272 E3E5 GE27B E3ED GE283 E406 VIT40 E413 VIEWR E418 GE29C E42F GE2B3 E431 GE2B5 E440 GE2C4 E455 GE2D9 E47D VFILE E487 GE30A E49F GE322 E4A8 GE32B E4C1 GE344 E4DC GE35F E4DE GE361 E4E4 GE367 E4FD GE380 E50A GE38D E51D GETALL E520 BLDPAB E544 PABNAM E550 GE3CF E551 BLNKBU E566 CLOSE E56A DOIO E57F VZERO E58B GETINP E596 GE415 E5AC GE42B E5AF GE42E E5BD GE43C E5BE GETKEY E5C7 GE446 E5CD GE44C E5DA PSCANX E5F6 GE456 E600 GE460 E621 GE46B E626 GE470 E632 GE47C E63B GE485 E64F GE499 E661 GE4AB E689 GE4D3 E693 GE4DD E6B7 GE501 E6B9 GE503 E6BA EXPMEM E6DB NESCRN E6E1 EASCRN E6FA USSCRN E708 CLRXOP E716 PRGRM E744 NOEABF E785 NO1KEY E78C MYSRCH E793 GE597 E7A2 GE5A6 E7AE LODPGM E7BB LODUSR E7D1 PMSG E7D9 PGMLOD E7EA GE5E5 E80A GE605 E819 PAB E821 DLEN E823 DDSK1 E828 DEDIT1 E82D ASSEM E875 GE654 E880 GE687 E953 GE736 E973 GE756 E984 GE767 E9A1 GE784 E9A8 PLEASE E9B7 YESNO E9BA GE7A2 E9BF GE7A7 E9CC GE7B1 E9DB GE7C0 E9E4 LANDR EA15 GE7F2 EA3B GE816 EA46 GE821 EA4B GE826 EA59 RUN EA5B GE848 EA8A FNDLNK EA90 FNDLP EAAD FNDSHO EACA OUTSCN EADC MORSCN EAED FNDDON EB11 GE883 EB1C GE88E EB31 GE8A3 EB34 GE8A8 EB3C GE8B0 EB3F GE8B3 EB60 GE8D4 EB6F GE8E3 EB81 GE8F5 EB88 GE8FC EB8E GE907 EB8F GE908 EB96 GE90F EB9D GE916 EBA4 GE91D EBA9 GE9E2 EBAF GE928 EBB6 GE92F EBBD GE936 EBC4 GE93D EBCB GE944 EBD0 GE949 EBDF GE958 EBE4 CHKERR EBEF CHKER2 EC0D GE97A EC1C GE97F EC30 CLSALL EC4D CLSPAB EC61 WRNMSG EC6D ERRMSG EC77 GE9DA EC95 GE9F8 ECAF GEA12 ECBC GEA1F ECC4 WENTER ECCB GEA2E ECD4 CLRMSG ECE0 ERROR ECE9 PRESS ED00 WARN ED0B ERRMF ED17 ERRIOC ED26 ERRNME ED3A ERRNTL ED48 ERRC ED53 CCRMSG ED6D ERRIT ED79 ERRCE ED88 ERRDD ED9D ERRUR EDB2 ERRPNF EDC4 CUREDP EDCC CURPAT EDDC VREGS EDE2 BINIT2 EDEA BINIT3 EDF4 GEBA0 EE11 GEBBD EE12 DASSM1 EE17 DUTIL1 EE1D DLOAD EE22 BUGS EE34 CLRFAC EE3C DEVICE EE64 DEV1 EE7A DEVNO EE7D DEV2 EE80 DEV3 EE81 DEV4 EED9 XBINP EEDE XBAGN EF11 XBINP1 EF49 XBINP2 EF5B XBINP3 EF65 CLRREA EF73 ONEKEY EF93 TWOKEY EF94 GF000 F6C4 DIRECT F6C9 DMENU F756 DIREC2 F766 DIREC3 F79A TSTKEY F7A7 TSTKE2 F7AE TSTKE3 F7B2 TSTKE4 F7B5 TSTKE5 F7BF ARROWS F7D3 ARROW1 F7EC ARROW2 F7F3 ARROW3 F7FB OKKEY F802 NOKEY F81C YAID F827 WAID F82A NAID F839 BACK0 F862 BACK1 F872 BACK3 F875 BEGIN0 F88A BEGIN1 F89A BEGIN2 F8A3 BEGIN3 F8C2 FCTNUP F908 ENTER0 F90E CLRBUF F929 ENTR F941 ENTER1 F950 ENTER2 F96A NODIR F9A3 PORVI F9C7 DORF80 F9D8 XBPGM F9FE UPKEY FA0A GLESS FA14 GLESS2 FA16 DKEY FA29 GMORE FA3A LKEY FA3D LUPKEY FA49 LGLESS FA53 LGLES2 FA55 LOKKEY FA5F RKEY FA62 RDKEY FA75 RGMORE FA86 ROKKEY FA90 FLSCR FAA1 CATDAT FAAA HALVE FAB2 SCREEN FB42 CAT3 FB5B CAT4 FB6E CAT4A FB9B CAT4B FB9F FILNAM FBB0 CAT5 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0055 E/A GROM FBD9 CAT5A FBE9 DF FBF9 DV FC09 IF FC19 IV FC29 PR FC39 DI FC4B CAT6 FC56 CAT7 FC62 SCROLL FC75 FILNA1 FC7A DISNUM FC80 DISNU1 FC8F DISNU2 FC9D DISSTR FCB7 VEIW40 FCBF MV40 FCF1 FREEZE FCF6 VOPEN FD16 DSREXT FD19 VCLOSE FD33 EADSR FD3A SEADSR FD41 XBDSR FD48 SXBDSR FD4F BASIC FD59 SBASIC 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0056 E/A GROM Symbol Table #4 (Def,alpha) 0034 ACCTON 835C ARG 0032 ATN 0036 BADTON 003B BITREV 0012 CFI 0014 CNS 002C COS 0010 CSN 8372 DATSTK 0001 DIVZER 0003 ERRIOV 0006 ERRLOG 0005 ERRNIP 0002 ERRSNN 0004 ERRSQR 0028 EXP 834A FAC 0006 FADD 000A FCOMP 0009 FDIV 0008 FMUL 836C FPERAD 0007 FSUB 0038 GETSPACE 0022 INT 0010 LINK 0018 LOCASE 002A LOG 8370 MEMSIZ 003D NAMLNK 8300 PAD 0024 PWR 0012 RETURN 000B SADD 000F SCOMP 000E SDIV 8375 SGN 002E SIN 000D SMUL 8400 SOUND 0026 SQR 000C SSUB 837C STATUS 0016 STCASE 8373 SUBSTK 0030 TAN 0007 TRIGER 004A UPCASE 836E VSPTR 0001 WRNOV 837F XPT 837E YPT 99/4 GPL-ASSEMBLER (Pass 3) correct PAGE 0057 E/A GROM Symbol Table #8 (Def,value) 0001 DIVZER 0001 WRNOV 0002 ERRSNN 0003 ERRIOV 0004 ERRSQR 0005 ERRNIP 0006 ERRLOG 0006 FADD 0007 FSUB 0007 TRIGER 0008 FMUL 0009 FDIV 000A FCOMP 000B SADD 000C SSUB 000D SMUL 000E SDIV 000F SCOMP 0010 CSN 0010 LINK 0012 CFI 0012 RETURN 0014 CNS 0016 STCASE 0018 LOCASE 0022 INT 0024 PWR 0026 SQR 0028 EXP 002A LOG 002C COS 002E SIN 0030 TAN 0032 ATN 0034 ACCTON 0036 BADTON 0038 GETSPACE 003B BITREV 003D NAMLNK 004A UPCASE 8300 PAD 834A FAC 835C ARG 836C FPERAD 836E VSPTR 8370 MEMSIZ 8372 DATSTK 8373 SUBSTK 8375 SGN 837C STATUS 837E YPT 837F XPT 8400 SOUND