Directory of image this file is from
This file as a plain text file
[PROG. 2 FLASH [============= [ THIS IS 2 FLASH9. IT DIFFERS [ FROM 2 FLASH1 IN THAT IT HAS THREE CALLS TO Q+A. [SUBROUTINES EMPLOYED [--------------------- [ QARSUBLI THIS IS Q+A FOR LAP6. IT IS RELATIVIZED. [ DECBIN1 MODIFIED FOR THREE CHARACTERS [ RANDOM [CALLS TO Q+A [------------- [ 1.NO. OF TRLS [ NO. OF VALUES OF VARIABLE TO BE RANDOMMIZED [ NO. OF TRLS PER VAL OF VARIABLE [ 2.# OF ATR PER CYCLE [ 3. ATR SEC MSEC [BINARY. ATR, SEC [------ [DECIMAL. NO. TRLS, NO. VALS OF VAR., NO OF [------- TRLS PER COND., NO. OF ATR PER CYCLE [ [ [ [READ "RANDOM" INTO MEM BANK 1 [------------------------------ UMB 3 RDC 4212 [RANQ+AYZ, RAND +Q+A RDC 5213 [RETURN UMB TO 3 UMB 2 [ON RETURNING FROM LOADING RANDOM INTO CORE CHANGE [LOCATIONS 20-22 TO NOP SO THAT SUBSEQUENT PRESSES [OF START 20 DO NOT JUMP BACK TO REQUIRE LOAD F [RANDOM AGAIN. LDAi NOP STA 20 STA 21 STA 22 STA 23 STC 24 [RESTORE LOCATION 1032 TO STHi 3. THUS IF PRESS [START 20 WILL LOSE OLD DATA. #A29T LMB 3 JMP 760 [RANQ+AXX [CALL TO Q+A [=========== [ FIRST CALL [ ---------- [ FOR USE IN RANDOM NOS [ # TRLS [ # VALUES OF VAR TO BE RANDOMIZED [ # TRLS PER CONDITION #A29R LMB 3 JMP 245 [Q+A 1 A29X [QUEST BUFF A29Y [ANSW BUFF SETi 1 4000+A29Y-1 CLR LDHi 1 JMP A29A [TO DECBIN1 0 [RETURN ER COM [NROM RET PT FOR DECBIN STA A22M [# TRLS CNTR STC A29J [# TRLS LDHi 1 JMP A29A 0 COM STA A23K STC A29K [# VALUES OF VAR LDHi 1 JMP A29A [TO DECBIN1 0 [RETURN FROM DECBIN1 ON ERROR COM [NORMAL RETURN STC A29I SETi 17 #A29I [# TRLS PER CONDITION [SET VALUE FOR BCL IN RAND # LDA A29K ADAi 10 APO JMP A23F LDAi 7770 STC A23I JMP A29Z #A23F LDAi 7700 STC A23I JMP A29Z [GENERATE RANDOM NOS [=================== #A29Z SETi 2 #A29J [-# TRLS SETi 4 A23D-1 [BEGIN -1 OF TABLE OF RANDOM #S #A23H CLR STC A27A STC A27B STC A27C STC A27D STC A27E STC A27F STC A27G STC A27H STC A27I STC A27J STC A27K STC A27L STC A27M STC A27N STC A27O STC A27P STC A27Q SETi 3 #A29K [- # VALUES OF VARIABLE [ISSUE CALL TO RANDOM #A23E LDAi 1 LMB 3 JMP 20 [RETURN FROM RANDOM HERE ITH RANDOM # IN ACCUM BCLi #A23I [7700 IF MORE THAN 7 VALS OF VAR. 7770 IF LESS THAN [ 7 VALS OF VAR [IS IT LEGAL [----------- STAi #A23G [RANDOM # ADA A29K ADAi 1 APOi JMP A23E [IF ILLEGAL [HAS IT BEEN USED IN THIS BLOCK [------------------------------ CLR STC A28Z #A26A LDA A23G SAEi #A28Z [ JMP A26C [NO LDAi [YES A27A ADA A28Z STA A28Y STC A28X LDA #A28Y JMP A27Z STA #A28X LDA A28Z JMP A27Y #A26C LDAi 1 ADM A28Z SAEi 20 JMP A26A [BACK JMP A26R [OUT, ERROR [JMP TO STORE # IN TABLE AND RESET FOR NXT # #A27Y STAi 4 [STORE IN TABLE OF #S RANDOMIZD IN BLOCKS XSKi 2 [CNTR # TRLS JMP p+2 JMP A29L [TO SECOND CALL XSKi 3 JMP A23E JMP A23H [HAS IT BEEN USED IN THIS BLOCK [-------------------------------- #A27Z SAEi 0 JMP A23E LDAi 1 JMP 0 #A27A #A27B #A27C #A27D #A27E #A27F #A27G #A27H #A27I #A27J #A27K #A27L #A27M #A27N #A27O #A27P #A27Q #A26R [HLT,ERRROR [ SECOND CALL TO Q+A [ ------------------ [ # ATR PER CYCLE [ WHICH LINE IS TO BE RANDOMIZED #A29L LMB 3 JMP 252 [Q+A 2 A29V [LOC OF FIRST QUEST BUFFER A29W [LOC OF FIRST ANSWER BUFFR SETi 1 4000+A29W-1 CLR LDHi 1 JMP A29A [TODECBIN1 MOD FOR 3 CHARACTERS 0 [RETURN ERROR COM [NORMAL RETURN POINT FOR DECBIN1 STA A22F [# ATR PER CYCLE FOR CONVERSION TO 12 BIT STC A22E [STORE #ATR PER CYCLE FOR EXECUTION [CALC LINE TO RANDOMIZE LDHi 1 JMP A29A [TO DECBIN 0 [RETYRN ERROR STA [NORMAL RETURN PT FOR DECBIN A21B LDAi A23C-1 ADAi #A21B STA A22S+1 [ THIRD CALL TO Q+A [ ----------------- [ ATR SEC MSEC [ --- --- ---- LMB 3 JMP 257 [Q+A 3 A29S [LOCATION OF QUESTION BUFFER AS TEXT STRING BEGINS AT 9S A29U [LOCATIONS OF ANSWER BUFFER AS 6 BIT CODE BEGINS AT 9U [FOURTH CALL TO Q+A [------------------ [ TYPE RANDOM VALU IN MSEC LMB 3 JMP 264 A29P [QUEST BUF A29Q[ANS BUF [FIFTH CALL TO Q+A [----------------- LMB 3 JMP 271 A28B [QUEST BUF A28C [ANS BUF [CHANGE LOCCATION 1032 TO LDHi 3 FROM STHi 3 WHEN [EXITING FROM Q+A SO THAT WHENN RETURN TO Q+A OLD DATA [IN DDIISPLAY WILL HAVE BEEN SAVED AND IS RESTORED LMB 3 JMP 765 [IN RANQ+AXX #A29N SNSi 0 JMP A29R [JMP TO FIRST Q+A SNSi 1 JMP A29M [JMP TO MAIN PROGRAM JMP A29N [BEGIN MAIN PROGRAM AT 9M [======================== [======================== [CONVERSION OF Q+A ANSWERS TO 12 BIT OCTAL [----------------------------------------- #A29M SETi 1 4000+A29U-1 SETi 10 [ATR TABLE A23A-1 SETi 5 [SEC TABLE A23B-1 SETi 6 [MSEC TABLE A23C-1 SETi 7 #A22F [COM OF #ATR PER CYCLE #A28A CLR LDHi 1 LDHi 1 ROL 3 STAi 10 LDHi 1 ADM 10 LDHi 1 LDHi 1 ADAi 1 COM STAi 5 LDHi 1 JMP A29A [TO DECBIN1 [MOD FOR 3 CHAR 0[RETURN ERROR COM [NORMAL RETURN PT FOR DECBIN1 STAi 6 XSKi 7 JMP A28A [FRAME 4 Q+A [------------ SETi 1 4000+A29Q-1 [FOURTH ANS BUF RAND VAR IN MSEC SETi 10 A23J-1 [STORE OF MSEC VAL FOR ALL ATRS SETi 7 #A23K [COM OF NO VALS OF VAR #A23L CLR LDHi 1 JMP A29A [INTO DECBIN 0 [ERROR RETURN COM [NORMAL RETURN STAi 10 XSKi 7 JMP A23L [CLR FREQ TABLE [-------------- SETi 17 A23J+17 [FREQ CNT SETi 16 -160 CLR STAi 17 XSKi 16 JMP p-2 [CLR RAW DATA TABLE SETi 17 3177 SETi 16 -200 CLR STAi 17 XSKi 16 JMP p-2 HLT [TEMP [RAISE RESUME TO GO ON SETi 1 4000+A28C-1 SETi 5 A28D-1 CLR LDHi 1 LDHi 1 ROL 3 STAi 5 LDHi 1 ADM 5 ATR HLT [PROGRAM EXECUTION [================== SETi 11 A23D-1 [RAND # TABLE SETi 15 #A22M [-# TRLS #A22P SETi 4 [ATR TABLE A23A-1 SETi 5 [SEC TABLE A23B-1 SETi 6 [MSEC TABLE A23C-1 SETi 7 #A22E [#ATR PER CYCLE SET FROM FRAME 1 ON SCOPE [BEGIN [----- SNS 2 [BEGIN EXP. IF LOWER SNS 2, GET REST. JMP p-1 SXLi 0 [S PRESSES TO START TRL. JMP p-3 [CALC VALUE OF RAND MMEC #A22N LDAi 11 ADAi A23J [BEGIN OF RAND MSEC VAL TABLE STA A22K STC A22G LDA #A22G [COMPUTED ADDR OF MSEC VAL TABLE STORED HERE STAi #A22J [IS EXT TIMER TIMED OUT SXLi 12 JMP p-1 [NO [IS IT RAND CHAN OR DUR [====================== #A22A SNSi 5 JMP A28H [RAND CHANN JMP A22D [RAND DUR [IS IT IZERO OR 1 #A22D SAEi [RAND DUR -0 JMP p+2 JMP A22Q [TO GIVE BLANK SAEi -1 JMP A22S [IF MORE THAN 1 #A22R LDAi [IF 1 STIM 2 ADM 4 LDAi 2 ADM 5 LDAi 2 ADM 6 LDAi 2 ADM 7 JMP A22S [IF RAND DUR [RAND CHAN [========= #A28H SAEi -0 JMP p+2 JMP A25D #A28U SAEi -1 JMP p+2 JMP A28E SAEi -2 JMP p+2 JMP A25F SAEi -3 JMP p+2 JMP A25G SAEi -4 JMP p+2 JMP A25H SAEi -5 JMP p+2 JMP A25I SAEi -6 JMP p+2 JMP A25J [IF 0, THEN CHAN X,X #A25D JMP A25C JMP A25C JMP A25C JMP A28E+3 [IF 1, THEN CHAN X, 43 #A28E JMP A25C JMP A25B JMP A25B JMP A25C JMP A25C JMP A25C JMP A25C JMP A25E [IF 2, THEN CHAN X, 42 #A25F JMP A25C JMP A25A JMP A25A JMP A28E+3 [IF 3, THEN CHAN 42, 42 #A25G JMP A25C JMP A25A JMP A25C JMP A25C JMP A25C JMP A25A JMP A28E+6 [IF 4, THEN CHAN 43, 43 #A25H JMP A25C JMP A25B JMP A25C JMP A25C JMP A25C JMP A25B JMP A28E+6 [IF 5, THEN CHAN 43, 42 #A25I JMP A25B JMP A25A JMP A25C JMP A25B JMP A25A JMP A28E+5 [IF 6, THEN CHAN42, 43 #A25J JMP A25B JMP A25A JMP A25C JMP A25C JMP A25C JMP A25B JMP A25A JMP A25E #A25A LDAi 44 STAi 4 JMP 0 #A25B LDAi 43 STAi 4 JMP 0 #A25C LDAi 64 STAi 4 JMP 0 [IT IS B #A28W LDAi 7 ADM 4 LDAi 7 ADM 5 LDAi 7 ADM 6 LDAi 7 ADM 7 JMP A22C #A25E SETi 4 A23A-1 SNSi 3 JMP A28W SNSi 4 JMP A28R JMP A22C [IF GREATER THAN 1 #A22S STA A23C+1 #A22C LDAi 5 STC 10 LDAi 4 ATR JMP A22B [JMP INTO TIMING LOOP XSKi 7 [RETURN FROM TIMING LOOP JMP A22C SNSi 3 JMP A28T [ITS B JMP A22Q [ITS 1, GO TO RESPONSE [ITS B #A28T SETi 4 A23A-1 SETi 5 A23B-1 SETi 6 A23C-1 SETi 7 -7 #A28S LDAi 5 STC 10 LDAi 4 ATR JMP A22B [INTO TIMING XSKi 7 JMP A28S JMP A22Q [RESPONSE [SET EXT TIME [------------- #A22Q SXLi 13 JMP A22U [DONT SET TIMER LDAi 76 ATR JMP A22U [RESPONSE [========= [IST PUSH ON SWITCH FOR RESPONSE #A22U SXL 1 JMP A24A [1 SXL 2 JMP A24L SXL 7 JMP A24M JMP A22U [2ND PUSH OF SWITCH #A24L SXL 2 JMP p-1 JMP A24Z [300 MSEC SXL 1 JMP A24B [2 THEN 1 SXL 2 JMP A24H [2 THEN 2 SXL 7 JMP A24N [2 THEN 3 JMP A24L +3 #A24M SXL 7 JMP p-1 JMP A24Z [300 MSEC SXL 1 JMP A24G [3 THEN 1 SXL 2 JMP A24J [3 THEN 2 SXL 7 JMP A24I [3 THHEN 3 JMP A24M+3 [WASTE TIME #A24Z LDA 0 STC A24Y LDAi A21H-1 [1H CONTAINS -454 FOR 300 MSEC STC 6 LDAi 7776 [0 SEC STC 10 JMP A22B [INTO TIMING #A24Y [JMP OUT [RESP 1. CHAN X, X --BLANK #A24A LDAi 0 STC A24O LDAi 20 JMP A22K-1 [RESP 2 THEN 1, CHAN X, 43 #A24B LDAi 1 STC A24O LDAi 40 JMP A22K-1 [RESP 3 THEN 1, CHAM X, 42 #A24G LDAi 2 STC A24O LDAi 60 JMP A22K-1 [RESP 3 THEN 3, CHAN 42, 42 #A24I LDAi 3 STC A24O LDAi 100 JMP A22K-1 [RESP 2 THEN 2, CHAN 43, 43 #A24H LDAi 4 STC A24O LDAi 120 JMP A22K-1 [RESP 2 THEN 3, CHAN 43, 42 #A24N LDAi 5 STC A24O LDAi 140 JMP A22K-1 [RESP 3 THEN 2, CHAN 42, 43 #A24J LDAi 6 STC A24O LDAi 160 ADAi #A22K [AD OF RAND MSEC VAL STC A22L LDAi 1 ADM #A22L [AD OF MEM OF FR DST THAT GETS INCREMENT LDA 11 ADAi 200 STA A22H LDAi #A24O [# OF RESP STA #A22H [RAW DATA RESP XSKi 15 JMP A22P [NXT TRL LDAi 77 ATR HLT [TEMP JMP A24C [TO TYPEOUT [TIMING LOOP [----------- #A22B LDA 0 STC A21M LDAi 6 AZE JMP p+2 JMP A21K STC A21F JMP A21A NOP #A21K LDAi -1747 STC A21F XSKi 10 JMP p+2 JMP A21M SETi 3 -70 XSKi 3 JMP p-1 JMP A21A #A21M [JMP OUT OF LOOP FROM HERE JMP A21K #A21A LDA 0 ADAi 1 STC A21E SETi 3 -171 XSKi 3 JMP p-1 SETi 2 #A21F [#MSEC XSKi 2 JMP A21C #A21E [JMP TO 1K OR 1M+1 #A21C LDA 0 ADAi -2 STC A21D NOP SETi 3 -202 XSKi 3 JMP p-1 #A21D [CONVERT FREQ DIST TO DECIMAL, [STORE IN PRINT BUFFER, AND [TYPE FREQ DIST [============================ [============================ #A24C JMP A24T [TYPE CRLF JMP A24T #A24K SETi 6 A23J-1 [-1 FROM BEGIN OF RAND MSEC STORE SETi 7 A23J+17 [IST FR DST SETi 10 A23J+37 [2ND FR DST SETi 11 A23J+57 [3RD FR DST SETi 12 A23J+77 [4TH FR DST SETi 13 A23J+117 [5TH FR DST SETi 14 A23J+137 [6TH FR DST SETi 15 A23J+157 [7TH FR DST LDA A23K ADAi -1 STC A21G #A24D SETi 4 #A21G -21 [# ROWS IN FR DST #A24E SETi 1 3700 [BEGIN STORE PRINT BUFFER XSKi 4 JMP A24F [TO LOAD BUFFER HLT [TEMP [TO WRITE OVER RANDOM [FIRST RAISE RESUME ON CONSOLE [---------------------------------------------------- [ ---------------------------------------- UMB 3 WRC 4212 WRC 5213 UMB 2 HLT [FINAL HLT [LOAD PRINT BUFFER [----------------- #A24F SETi 5 -10 LDAi LDAi 6 STC A24P LDAi 6 COM #A24S JMP A28J LDAi 14 STHi 1 STHi 1 XSKi 5 JMP p+2 JMP A24U LDAi 1 ADM A24P #A24P [LDAi... JMP A24S [TYPE FR DST [----------- #A24U SETi 1 3700 SETi 5 -66 LDHi 1 JMP A27T [TECSUB XSKi 5 JMP p-3 JMP A24T JMP A24E [NXT LINE OF FRR DST [FOR WASTE TIME BET RESPONSE SW #A21H -454 [300 MSEC $2700 [STORE OF ANSWERS FROM Q+A CONVERTED TO 12 BIT CODE [-------------------------------------------------- #A23A [STORE OF ATR VALUES 0 0 0 0 0 0 0 0 0 0 0 0 0 #A23B [STORE OF SECOND VALUS 0 0 0 0 0 0 0 0 0 0 0 0 0 #A23C [STORE OF MSEC VALUES 0 0 0 0 0 0 0 0 0 0 0 0 0 $3500 #A23J [STORE OF MSEC VAL TO BE RAND 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 [RANDOM # TABLE [============== $3000 #A23D 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 [SECOND QUESTION BUFFER [--------------- $2010 #A29V "# OF CALLS TO ATR PER CYCLE " ""3" " LINE # IN NXT FRAME FOR WHICH MSEC IS RANDOM" " "" "3 TYPE ANS. IN DEC. ----------------: " [SECOND ANSWER BUFFER [-------------------- #A29W 0 0 0 0 0 [THIRD QUESTION BUFFER [---------------------- #A29S "ATR SEC MSEC SEC LESS " "1"" "2"" "1"" "3 THAN 10. 2" ""2" ""1" ""3" " MSEC " "3"" "2"" "1"" "3 IN DEC. " "4"" "2"" "1"" "3 5" ""2" ""1" ""3" " " "6"" "2"" "1"" "3 7" ""2" ""1" ""3" " " "8"" "2"" "1"" "3 9" ""2" ""1" ""3" " 1" """ "2"" "1"" "3 11" ""2" ""1" ""3" " 1" "2"" "2"" "1"" "3 13" ""2" ""1" ""3" " 1" "4"" "2"" "1"" "3:" [THIRD ANSWER BUFFER [--------------------- #A29U 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 [FOURTH QUEST BUF [---------------- #A29P " 1" ""3" " " "2"" "3 " "3"" "3 4" ""3" " 5" ""3" " " "6"" "3 " "7"" "3 8" ""3" " 9" ""3" " 1" """ "3 1" "1"" "3 12" ""3" " 13" ""3" " 1" "4"" "3 1" "5"" "3 16" ""3" ": " [FOURTH ANS BUF [-------------- #A29Q 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 [FIFTH QUEST BUFF [--------------- #A28B "LIGHT ON" ""2" ": " [FIFTH ANS BUF [------------ #A28C 0 0 0 #A28D [SAVE FOR FIFTH FROME USE IN CONV 0 [FIRST QUESTION BUFFER [------------------- #A29X "NO TRL" "S"" "3 NO. VALS OF VAR." ""3" " N0. TRLS PER COND" "."" "3 TYPE ANS. IN DEC. ---------------- MAX # TRLS IS 128 DEC MAX # OF VALS PER VAR =16 OCTAL =14 DECIMAL: " [FIRST ANSWER BUFFER [--------------------- #A29Y 0 0 0 0 0 0 0 $1500 [PROG TYPDEC WITH BINDEC LABELS CHANGED FROM [9 TO 8. ALSO ENTRY ELIMINATED [MOD BY L. MATIN [ ****** BINDEC 1 ****** [BINDEC 1 [ DJN 7| 5|68 [SIGNED 12-BIT BINARY TO DECIMAL CONVERSION [ RIGHT JUSTIFIED [ ENTER WITH BINARY NUMBER IN ACCUMULATOR VIA A JMP 9J [ DECIMAL KBD CODES STORED VIA IR 1 [ LEADING ZEROES SUPPRESSED [ NON-INTERRUPTABLE [ ALSO USES IR 2,3 [ USES TAGS 9J-9Q [CHANGED BY L. MATIN [TO TAGS 8J-8Q [ [TIMING- CLASSIC LINC [ 1.4 TO 3.5 MSEC [ #A28J SCRi1 [SIGN TO LINK BIT ROLi1 APOi [MAKE NEGATIVE COM STC A28N [SAVE IT ADD 0 [SAVE RETURN STC A28P LDAi [LOAD POSSIBLE SIGNS #A28K "- " LZE [GET CORRECT SIGNS ROR 6 STHi1 [AND STORE IT SETi2 [SET ADDEND POINTER A28Q-1 JMP A28M [CONVERT A DIGIT AZE [IS IT A LEADING ZERO JMP A28L [NO ADD A28K [YES: MOVE THE SIGN RIGHT ONE PLACE STH 1 [STORE A SPACE OVER THE SIGN LZE [GET THE CORRECT SIGN ROR 6 STHi1 [AND STORE IT JMP p-10 [ THEN CONTINUE CONVERTING #A28L STHi1 [STORE A DIGIT JMP A28M [CONVERT NEXT DIGITI JMP A28L [AND STORE IT [LITTLE SUBROUTINE TO DO THE CONVERSION #A28M LDA [SAVE RETURN 0 STC A28P-2 SETi3 [SET DIGIT COUNTER 1777 XSKi2 [MOVE ADDEND POINTER ADD A28N [LOAD THE VALUE XSKi3 [BUMP COUNTER STAi [SAVE REMAINING PART #A28N ** ADA 2 [TRIAL ADD APO [STILL NEGATIVE JMP p-5 [YES: COUNT AND ADD AGAIN LDA [NO: GET THE COUNTER 3 SROi [LAST DIGIT 3567 JMP ** [NO: BACK TO THE SUBROUTINE STHi1 [YES: STORE IT #A28P JMP ** [ AND RETURN TO CALLING PGM [ADDEND TABLE #A28Q 1750 144 12 1 [END BINDEC 1 [ 7| 5|68 [TECSUB [TELETYPE SUB [FOR DEC INT- [ERFACE---- [TAGS 4T 5T [6T 7T AND [INDEX REG. [16 AND 17 #A27T SET 17 0 [FORM RETURN ROL 4 [CODE TEST APO JMP A26T-1 [TELETYPE CODE ROR 4 [LINC CODE SAE i 12 [EOL TEST JMP p+4 [NOT EOL LDA i 5215 [MAKE CR LF JMP A26T [OUTPUT ADA i -11 [NUMBER TEST APO i JMP p+4 [NOT A NUMBER ADA i [CONVERT NUMBER 271 JMP A26T [OUTPUT ADA i -12 [1ST SPECIAL [CHARACTER TEST APO i JMP p+6 [NOT SPECIAL [CHAR. TYPE 1 ADA i A25T+10 STC 16 [CONVRT SPECIAL [CHARACTERS ADA 16 JMP A26T [OUTPUT ADA i -32 [LETTER TEST APO i JMP A27T+27 [CONVRT SPECIAL [CHAR. TYPE II ADA i [CONVRT LETTER 332 JMP A26T [OUTPUT ROR 4 #A26T APO i [CR LF--HUH JMPp+4 514 LDA i 212 514 [ PRNT CHAR. JMP 17 [RETURN #A24T SET 17 0 LDA i 5215 JMP A26T+2 #A25T 207 [BELL FOR DEL 240 [SPACE 246 [AMPERSAND FOR [ i 247 [APOSTROPHE [FOR p 255 [- 253 [+ 257 [SLASH 243 [ TAG SYMBOL 0 [NO OUTPUT FOR [CASE 275 [= 300 [AT SIGN FOR u 254 [COMMA 256 [PERIOD 244 [DOLLAR SIGN [FOR ORIGN SIGN 333 [COMMENT SYMBOL [DECBIN 1 [ DJN 9|20|68 [ [DECIMAL-TO-SINGLE PRECISION BINARY [ CONVERTS FROM -4095 TO +4095 [ [CALLING SEQUENCE [ JMP 9A [ ERROR RETURN [ NORMAL RETURN [ [IR1 MUST BE SET JUST BEFORE THE FIRST CH [ DECBIN 1 LOOKS AT 5 CHARACTERS [ USES IR1-4 [ TAGS 9A-9G [ INTERRUPTABLE [ [TIMING- CLASSIC LINC [ 0.7 - 2.1 MSEC [ #A29A SET 3 [SAVE RETURN 0 SETi4 [CH COUNTER #A29H -4 [MOD L. MATIN SETi2 [MINUS FLAG 1777 CLR #A29B STC A29C [SAVE RESULT XSKi4 [ENOUGH CHS DONE JMP A29D [NO LDAi3 [YES: INDEX RETURN LDAi [LOAD RESULT #A29C ** XSK 2 [MINUS COM [YES JMP 3 [RETURN #A29D LDHi1 [LOAD NEXT CH SHDi [SPACE " " JMP A29B+1 [ IGNORE SHDi [PLUS "+ " JMP A29B+1 [ IGNORE SHDi [MINUS "- " JMP A29G [ SET FLAG COM [NONE OF THOSE ADD A29F APO [IS IT A LEGAL DIGIT JMP 3 [NO: ERROR RETURN LDH 1 [YES: SAVE IT STC A29E ADD A29C MUL [ X # BASE 4|A29F SCR 1 AZE [OVERFLOW JMP 3 [YES: ERROR RETURN ZTA [NO: RETRIEVE IT ROL 1 ZZZ ADD A29F+1 [+1 LAMi #A29E ** LZE [OVERFLOW JMP 3 [YES: ERROR RETURN JMP A29B [NO: CONTINUE #A29F 12 [NUMBER BASE 1 #A29G XSKi2 [SET MINUS FLAG JMP A29B+1 [END DECBIN 1