LEX 'DISASML3' ID #5E MSG 0 POLL 0 ENTRY BADJMP CHAR #F ENTRY BUFID CHAR #F ENTRY ENTIL CHAR #F ENTRY ENTPT CHAR #F ENTRY FIXUP CHAR #D ENTRY FINDEQ CHAR #F ENTRY FINDGO CHAR #F ENTRY GOSU CHAR #F ENTRY JUMPR$ CHAR #F ENTRY KEYW CHAR #F ENTRY FINDL CHAR #F ENTRY MFTKN CHAR #F ENTRY OFFSET CHAR #F ENTRY POLID$ CHAR #F ENTRY FINDRE CHAR #F ENTRY REVNIB CHAR #F ENTRY TXTSZ CHAR #F ENTRY TYPAD$ CHAR #F KEY 'BADJMP' TOKEN 59 KEY 'BUFFID$' TOKEN 60 KEY 'ENTRYIL$' TOKEN 61 KEY 'ENTRYPT$' TOKEN 62 KEY 'FIXUP' TOKEN 63 KEY 'FNDEQ' TOKEN 64 KEY 'GOADR$' TOKEN 65 KEY 'GOSU' TOKEN 66 KEY 'JUMPER$' TOKEN 67 KEY 'KEYWORD$' TOKEN 68 KEY 'LINE' TOKEN 69 KEY 'MFTOKEN$' TOKEN 70 KEY 'OFFSET$' TOKEN 71 KEY 'POLID$' TOKEN 72 KEY 'RELADR$' TOKEN 73 KEY 'REVNIB$' TOKEN 74 KEY 'TXTSZ' TOKEN 75 KEY 'TYPTBL$' TOKEN 76 ENDTXT LIST OFF NIBHEX 411 KEYW GOSBVL #1C5A5 CD1EX RSTK=C SETHEX P= 0 LCHEX BFC GOSBVL I/OFND GONC NULL$ C=B A A=C A ASR A ASR A JUMP10 C=DAT1 6 ?C=0 B GOYES JUMP21 ?B#C B GOYES JUMP20 CSR W CSR A R3=C ?A=C X GOYES SCRATCH D1=D1- 13 o0006A D1=D1+ 13 C=DAT1 X ?B>C X GOYES o0006A ?BC A GOYES NULL GOSUB GETAD1 GOSUB o0005B CON(3) #801 NIBASC 'STMT ' CON(3) #802 NIBASC 'IEXKY' CON(3) #803 NIBASC 'FIB ' CON(3) #804 NIBASC 'ASSGN' CON(3) #805 NIBASC 'FILE ' CON(3) #806 NIBASC 'STAT ' CON(3) #807 NIBASC 'CARD ' CON(3) #808 NIBASC 'START' CON(3) #809 NIBASC 'ECOMD' CON(3) #80A NIBASC 'INLIN' CON(3) #80B NIBASC 'DATA ' CON(3) #80C NIBASC 'SCOPE' CON(3) #80D NIBASC 'PLOT ' CON(3) #80E NIBASC 'KBDIS' CON(3) #80F NIBASC 'PILSV' CON(3) #810 NIBASC 'PILAI' CON(3) #811 NIBASC 'STMXQ' CON(3) #812 NIBASC 'MATH ' CON(3) #813 NIBASC 'SOLVE' CON(3) #814 NIBASC 'INTEG' CON(3) #815 NIBASC 'MATIO' CON(3) #816 NIBASC 'ONKEY' CON(3) #817 NIBASC 'CFIT ' CON(3) #818 NIBASC 'CHISQ' CON(3) #819 NIBASC 'GRAD ' CON(3) #81A NIBASC 'WAND ' CON(3) #81B NIBASC 'Scope' CON(3) #81C NIBASC 'SHUTD' CON(3) #81D NIBASC 'GpBas' CON(3) #833 NIBASC 'BRKPT' CON(3) #83D NIBASC 'MARGN' CON(3) #83E NIBASC 'ENDUP' CON(3) #BA0 NIBASC 'FBF#S' CON(3) #BCF NIBASC 'FBF#E' CON(3) #BFA NIBASC 'TRANS' CON(3) #BFB NIBASC 'CHARS' CON(3) #BFC NIBASC 'LEX ' CON(3) #BFE NIBASC 'ROMTB' CON(3) #E00 oMFT01 C=RSTK CD1EX RSTK=C D1=D1- 12 MFT02 D1=D1+ 12 C=DAT1 B ?B>C B GOYES MFT02 ?B=C B GOYES NULL01 GOTO NULL$ NULL01 D1=D1+ 2 P= 9 A=DAT1 WP ASL W ASL W ASL W ASL W P= 0 LCASC 't=' MFT88 P= 3 A=C WP AR3EX C=RSTK D1=C GOSUB GETAD1 AR3EX P= 13 GOTO SHORT2 NIBHEX 411 MFTKN GOSBVL #1C5A5 P= 0 C=0 W LCHEX FF ?B<=C A GOYES MFT99 GOTO NULL$1 MFT99 GOSUB oMFT01 CON(2) #00 NIBASC 'GO ' CON(2) #02 NIBASC 'INT12' CON(2) #03 NIBASC 'INT11' CON(2) #04 NIBASC 'INT10' CON(2) #05 NIBASC 'INT9 ' CON(2) #06 NIBASC 'INT8 ' CON(2) #07 NIBASC 'INT7 ' CON(2) #08 NIBASC 'INT6 ' CON(2) #09 NIBASC 'INT5 ' CON(2) #0A NIBASC 'INT4 ' CON(2) #0B NIBASC 'INT3 ' CON(2) #0C NIBASC 'INT2 ' CON(2) #0E NIBASC 'LBLRF' CON(2) #0F NIBASC 'LINE ' CON(2) #10 NIBASC 'BIG ' CON(2) #11 NIBASC 'SMALL' CON(2) #12 NIBASC 'FLT12' CON(2) #13 NIBASC 'FLT11' CON(2) #14 NIBASC 'FLT10' CON(2) #15 NIBASC 'FLT9 ' CON(2) #16 NIBASC 'FLT8 ' CON(2) #17 NIBASC 'FLT7 ' CON(2) #18 NIBASC 'FLT6 ' CON(2) #19 NIBASC 'FLT5 ' CON(2) #1A NIBASC 'FLT4 ' CON(2) #1B NIBASC 'FLT3 ' CON(2) #1C NIBASC 'FLT2 ' CON(2) #1D NIBASC 'FLT1 ' CON(2) #21 NIBASC 'a! ' CON(2) #22 NIBASC 'a" ' CON(2) #24 NIBASC 'a$ ' CON(2) #27 NIBASC 'a" ' CON(2) #2D NIBASC 'SVAR ' CON(2) #30 NIBASC '0 ' CON(2) #31 NIBASC '1 ' CON(2) #32 NIBASC '2 ' CON(2) #33 NIBASC '3 ' CON(2) #34 NIBASC '4 ' CON(2) #35 NIBASC '5 ' CON(2) #36 NIBASC '6 ' CON(2) #37 NIBASC '7 ' CON(2) #38 NIBASC '8 ' CON(2) #39 NIBASC '9 ' CON(2) #5A NIBASC 'Z ' CON(2) #60 NIBASC 'ADIG0' CON(2) #61 NIBASC 'ADIG1' CON(2) #62 NIBASC 'ADIG2' CON(2) #63 NIBASC 'ADIG3' CON(2) #64 NIBASC 'ADIG4' CON(2) #65 NIBASC 'ADIG5' CON(2) #66 NIBASC 'ADIG6' CON(2) #67 NIBASC 'ADIG7' CON(2) #68 NIBASC 'ADIG8' CON(2) #69 NIBASC 'ADIG9' CON(2) #7A NIBASC 'CMPLX' CON(2) #7C NIBASC 'FN ' CON(2) #7D NIBASC 'ARRAY' CON(2) #7E NIBASC 'DMYAR' CON(2) #80 NIBASC '^ ' CON(2) #82 NIBASC '- ' CON(2) #83 NIBASC '* ' CON(2) #84 NIBASC '/ ' CON(2) #85 NIBASC '% ' CON(2) #87 NIBASC '+ ' CON(2) #89 NIBASC '& ' CON(2) #8A NIBASC 'RELOP' CON(2) #A7 NIBASC 'ISUB$' CON(2) #AA NIBASC 'LPRP ' CON(2) #B3 NIBASC 'XFN ' CON(2) #B4 NIBASC 'FFN ' CON(2) #BA NIBASC 'ENDDF' CON(2) #C2 NIBASC 'ENDSB' CON(2) #C4 NIBASC 'LITRL' CON(2) #DE NIBASC 'RFILE' CON(2) #E0 NIBASC 'CREF ' CON(2) #E1 NIBASC 'CVAL ' CON(2) #E2 NIBASC 'COLON' CON(2) #EF NIBASC 'XWORD' CON(2) #F0 NIBASC 'EOL ' CON(2) #F1 NIBASC 'COMMA' CON(2) #F2 NIBASC 'SEMIC' CON(2) #F3 NIBASC 'PRMST' CON(2) #F4 NIBASC '@/xIF' CON(2) #F6 NIBASC 'LBLST' CON(2) #F8 NIBASC 'PRMEN' CON(2) #FC NIBASC '! ' CON(2) #FF NIBASC 'IMAGE' TBLSC C=RSTK CD1EX RSTK=C P= 0 LCHEX 07F6A offset$('7FFF',-149), allow ?B>C A only full 16K, actual code ends at GOYES NOTIL 7FEEF in ver. B, or max offset = 7E5A P= 3 D1=D1- 16 NEXT4 D1=D1+ 16 A=DAT1 W ?AB WP GOYES NOTF EQU10 C=RSTK D1=C D1=D1+ 2 DAT1=A W P= 0 D1=D1- 2 LCASC '=LI' P= 5 DAT1=C WP D1=D1- 16 GOSBVL #1B38E =REV$ GOVLNG #0F23C NOTIL P= 4 LCASC 'LIPHtN' GOTO NOTIL2 NOTF P= 4 LCASC '??????' NOTIL2 A=C W GOTO EQU10 NIBHEX 411 ENTIL GOSBVL #1C5A5 C=B A CD1EX A=DAT1 A CD1EX ABEX A P= 0 C=0 W LCHEX 12 GOSBVL #0F09A =STRHDR GOSUB TBLSC CON(4) #072D NIBASC 'FRAME+' CON(4) #073B NIBASC 'FRAME-' CON(4) #07C0 NIBASC 'ENDFN ' CON(4) #07CC NIBASC 'UTLEND' CON(4) #07E8 NIBASC 'START ' CON(4) #07EE NIBASC 'START+' CON(4) #07F1 NIBASC 'START-' CON(4) #08FF NIBASC 'GADDR ' CON(4) #0B5B NIBASC 'GETDev' CON(4) #0B7B NIBASC 'FNDCH-' CON(4) #0B86 NIBASC 'FNDCHK' CON(4) #0B8F NIBASC 'CHKSTS' CON(4) #0BE9 NIBASC 'PUTGF-' CON(4) #0BED NIBASC 'PUTGF+' CON(4) #0BF1 NIBASC 'PUTGF ' CON(4) #0BFF NIBASC 'GTYPE ' CON(4) #0C55 NIBASC 'ULYL ' CON(4) #0C5C NIBASC 'LISTEN' CON(4) #0C83 NIBASC 'MTYL ' CON(4) #0C8A NIBASC 'MTYLL ' CON(4) #0C9B NIBASC 'YTML ' CON(4) #0CB9 NIBASC 'PRMSGA' CON(4) #0E25 NIBASC 'PUTARL' CON(4) #0E3D NIBASC 'PUTALR' CON(4) #0E55 NIBASC 'PUTDX ' CON(4) #0FEA NIBASC 'PRASCI' CON(4) #1022 NIBASC 'PREND ' CON(4) #1BF0 NIBASC 'DEVPAR' CON(4) #1C36 NIBASC 'DEVPR$' CON(4) #1D15 NIBASC 'GETLPs' CON(4) #2248 NIBASC 'SKP-LF' CON(4) #224F NIBASC 'RED-LF' CON(4) #2252 NIBASC 'REDC00' CON(4) #2262 NIBASC 'REDCHR' CON(4) #226C NIBASC 'RDST01' CON(4) #2439 NIBASC 'CLMODE' CON(4) #2468 NIBASC 'TER/LF' CON(4) #2D5A NIBASC 'GLOOP#' CON(4) #2D96 NIBASC 'GFTYPE' CON(4) #2FF8 NIBASC 'RESTRT' CON(4) #313A NIBASC 'GETHSS' CON(4) #3149 NIBASC 'CHKSET' CON(4) #3160 NIBASC 'CHKST+' CON(4) #342C NIBASC 'ERRORX' CON(4) #35A2 NIBASC 'BDISPJ' CON(4) #3B62 NIBASC 'GETMBX' CON(4) #3B7D NIBASC 'SETLP ' CON(4) #3BA7 NIBASC 'FNDMB+' CON(4) #3BAB NIBASC 'FNDMB-' CON(4) #3BCA NIBASC 'FNDMBD' CON(4) #3BE0 NIBASC 'FNDMBX' CON(4) #3C57 NIBASC 'CHKASN' CON(4) #3D33 NIBASC 'SETUP ' CON(4) #3DB6 NIBASC 'SAVEIT' CON(4) #3E5C NIBASC 'RESTOR' CON(4) #3F6C NIBASC 'GTYPR+' CON(4) #3F6E NIBASC 'GTYPRM' CON(4) #3F7D NIBASC 'GHEXBT' CON(4) #3F81 NIBASC 'GHEXB+' CON(4) #3FAB NIBASC 'GADRRM' CON(4) #3FBA NIBASC 'GADDR+' CON(4) #4086 NIBASC 'CHKAIO' CON(4) #40D2 NIBASC 'ROMTYP' CON(4) #41FE NIBASC 'TSTAT ' CON(4) #4205 NIBASC 'TSTATA' CON(4) #4232 NIBASC 'SEEKA ' CON(4) #4239 NIBASC 'SEEKB ' CON(4) #425C NIBASC 'CHKMAS' CON(4) #4291 NIBASC 'FORMAT' CON(4) #44D9 NIBASC 'ENDTAP' CON(4) #44FF NIBASC 'READR#' CON(4) #453F NIBASC 'WRITE#' CON(4) #4571 NIBASC 'MOVEFL' CON(4) #469F NIBASC 'FINDFL' CON(4) #46A6 NIBASC 'FINDF+' CON(4) #4732 NIBASC 'FINDFx' CON(4) #47D7 NIBASC 'GETDR!' CON(4) #47DE NIBASC 'GETDR"' CON(4) #47E0 NIBASC 'GETDR#' CON(4) #47F9 NIBASC 'GETDR+' CON(4) #4820 NIBASC 'GETDIR' CON(4) #4843 NIBASC 'GDIRST' CON(4) #4A1E NIBASC 'NXTENT' CON(4) #4A34 NIBASC 'LSTENT' CON(4) #4A49 NIBASC 'NEWFI+' CON(4) #4A65 NIBASC 'NEWFIL' CON(4) #62D8 NIBASC 'SEEKRD' CON(4) #6300 NIBASC 'BLDCAT' CON(4) #6571 NIBASC 'DSPCAT' CON(4) #663D NIBASC 'READSU' CON(4) #6649 NIBASC 'READIT' CON(4) #66B0 NIBASC 'GETX ' CON(4) #673B NIBASC 'GETNE ' CON(4) #6751 NIBASC 'GET ' CON(4) #6787 NIBASC 'GETST ' CON(4) #6791 NIBASC 'GETERR' CON(4) #679E NIBASC 'GETST-' CON(4) #67C8 NIBASC 'GETD ' CON(4) #67E5 NIBASC 'GETEND' CON(4) #67FA NIBASC 'GETID+' CON(4) #6805 NIBASC 'READRG' CON(4) #680E NIBASC 'GETID ' CON(4) #68E4 NIBASC 'INITFL' CON(4) #691A NIBASC 'WRITIT' CON(4) #6989 NIBASC 'SENDI+' CON(4) #698F NIBASC 'SENDIT' CON(4) #6A02 NIBASC 'PUTX ' CON(4) #6AAE NIBASC 'PUTD ' CON(4) #6AC0 NIBASC 'PUTE ' CON(4) #6AC8 NIBASC 'PUTEX ' CON(4) #6AE8 NIBASC 'PUTC+N' CON(4) #6AEC NIBASC 'PUTCN ' CON(4) #6AF1 NIBASC 'PUTEN ' CON(4) #6B18 NIBASC 'PUTC+ ' CON(4) #6B1C NIBASC 'PUTC ' CON(4) #6B25 NIBASC 'DDL ' CON(4) #6B34 NIBASC 'DDT ' CON(4) #6B43 NIBASC 'FRAMEE' CON(4) #6D84 NIBASC 'GETDID' CON(4) #6DA2 NIBASC 'GETDIX' CON(4) #6E0B NIBASC 'GETPIL' CON(4) #6E14 NIBASC 'GETPI+' CON(4) #6EBB NIBASC 'PROCST' CON(4) #6FF3 NIBASC 'GTYPST' CON(4) #7064 NIBASC 'GADRST' CON(4) #7133 NIBASC 'GETDVW' CON(4) #7180 NIBASC 'PROCDW' CON(4) #71CE NIBASC 'PROCLT' CON(4) #734F NIBASC 'FXQPIL' CON(4) #7468 NIBASC 'PRNTSp' CON(4) #76A7 NIBASC 'LOOP#p' CON(4) #76D4 NIBASC 'FRASPp' CON(4) #7925 NIBASC 'DVCSPp' CON(4) #7998 NIBASC 'NAMEp ' CON(4) #7B3E NIBASC 'PRNTSd' CON(4) #7B4A NIBASC 'PACKd ' CON(4) #7CAA NIBASC 'LOOP#d' CON(4) #7CC9 NIBASC 'FRASPd' CON(4) #7F6A END OF HP-IL ROM USER LCASC 'RESU ' STORE CBEX W C=0 W LCHEX 14 GOSBVL #0F09A LCASC '=MAR' P= 7 DAT1=C WP D1=D1+ 8 ABEX W GOTO EQ110 CONFST LCHEX AFC ?B>C A GOYES USER LCASC 'TSFNOC' STORE- GONC STORE RESERV LCHEX E5 ?B>C A GOYES CONFST LCASC 'VRESER' GONC STORE- SYSRAM LCHEX F985 ?B>C A GOYES RESERV GOLONG SYSRM1 MMIO LCHEX E100 ?B>=C A GOYES SYSRAM LCASC ' O/IMM' GONC STORE- EQUAT1 C=RSTK CD1EX RSTK=C D1=D1- 1 D1=D1- 16 NEXT5 D1=D1+ 16 D1=D1+ 1 A=DAT1 A ?AB A GOYES NOTF5 D1=D1+ 5 A=DAT1 W EQ100 C=RSTK D1=C EQ110 P= 11 DAT1=A WP P= 0 C=R1 D1=C GOSBVL #1B38E =REV$ GOVLNG #0F23C NOTF5 P= 0 LCASC '??????' A=C W GOTO EQ100 NIBHEX 411 ENTPT GOSBVL #1C5A5 P= 0 C=0 W LCHEX 20000 ?BP' CON(5) #0C9D5 NIBASC 'RND12+' CON(5) #0CA73 NIBASC 'OVFL ' CON(5) #0CAB1 NIBASC 'RNDNRM' CON(5) #0CB2F NIBASC 'HTRAP ' CON(5) #0CBC9 NIBASC 'HNDLFL' CON(5) #0CC17 NIBASC 'MESSG ' CON(5) #0CD03 NIBASC 'FINITA' CON(5) #0CD0F NIBASC 'FINITC' CON(5) #0CD44 NIBASC 'LN1+15' CON(5) #0CD51 NIBASC 'LN1+XF' CON(5) #0CD7D NIBASC 'LN12 ' CON(5) #0CD81 NIBASC 'LN15 ' CON(5) #0CD9C NIBASC 'LN30 ' CON(5) #0CF48 NIBASC 'EX-115' CON(5) #0CF5A NIBASC 'EXP15 ' CON(5) #0CF7F NIBASC 'DXP100' CON(5) #0D1AE NIBASC 'LGT15 ' CON(5) #0D274 NIBASC 'YX2-12' CON(5) #0D27A NIBASC 'YX2-15' CON(5) #0D3C0 NIBASC 'FNPWDS' CON(5) #0D3D9 NIBASC 'STAB1 ' CON(5) #0D3E7 NIBASC 'EXAB1 ' CON(5) #0D3F5 NIBASC 'RCCD1 ' CON(5) #0D400 NIBASC 'STAB2 ' CON(5) #0D40E NIBASC 'EXAB2 ' CON(5) #0D41C NIBASC 'RCCD2 ' CON(5) #0D427 NIBASC 'STCD2 ' CON(5) #0D435 NIBASC 'uTEST ' CON(5) #0D476 NIBASC 'TST12A' CON(5) #0D47A NIBASC 'TST15 ' CON(5) #0D52D NIBASC 'BIASA+' CON(5) #0D540 NIBASC 'BIASC+' CON(5) #0D553 NIBASC 'MSN12 ' CON(5) #0D557 NIBASC 'MSN15 ' CON(5) #0D590 NIBASC 'CLASSA' CON(5) #0D5C6 NIBASC 'EX12 ' CON(5) #0D5CA NIBASC 'EX15M ' CON(5) #0D5CE NIBASC 'EX15S ' CON(5) #0D5DF NIBASC 'EXF ' CON(5) #0D629 NIBASC 'SQRSAV' CON(5) #0D633 NIBASC 'ORXM ' CON(5) #0D63C NIBASC 'ORSB ' CON(5) #0D641 NIBASC 'SETSB ' CON(5) #0D64E NIBASC 'SAVGSB' CON(5) #0D65B NIBASC 'ORGSB ' CON(5) #0D663 NIBASC 'SAVEXM' CON(5) #0D66E NIBASC 'SAVESB' CON(5) #0D67B NIBASC 'ARG12 ' CON(5) #0D67F NIBASC 'ARG15 ' CON(5) #0D6A4 NIBASC 'ARGF ' CON(5) #0D716 NIBASC 'SIN12 ' CON(5) #0D71A NIBASC 'SIN15 ' CON(5) #0D721 NIBASC 'COS12 ' CON(5) #0D725 NIBASC 'COS15 ' CON(5) #0D72F NIBASC 'TAN12 ' CON(5) #0D733 NIBASC 'TAN15 ' CON(5) #0D749 NIBASC 'IVARG ' CON(5) #0DA11 NIBASC 'TRC90 ' CON(5) #0DAA1 NIBASC 'PI/4 ' CON(5) #0DAA3 NIBASC 'GETCON' CON(5) #0DAB2 NIBASC 'GETVAL' CON(5) #0DACE NIBASC 'MAKE1 ' CON(5) #0DADD NIBASC 'DBLSUB' CON(5) #0DAFC NIBASC 'DBLPI4' CON(5) #0DB38 NIBASC 'TWO* ' CON(5) #0DB46 NIBASC 'SHFLAC' CON(5) #0DB51 NIBASC 'SHFRAC' CON(5) #0DB5F NIBASC 'SHFRBD' CON(5) #0DB77 NIBASC 'PI/2 ' CON(5) #0DB7A NIBASC 'PI/2D ' CON(5) #0DB8D NIBASC 'FLIP8 ' CON(5) #0DB9C NIBASC 'FLIP10' CON(5) #0DBAB NIBASC 'FLIP11' CON(5) #0DBBE NIBASC 'ATAN15' CON(5) #0DBC8 NIBASC 'ASIN12' CON(5) #0DBCC NIBASC 'ASIN15' CON(5) #0DBD3 NIBASC 'ACOS12' CON(5) #0DBD7 NIBASC 'ACOS15' CON(5) #0DBE3 NIBASC 'BRT30 ' CON(5) #0DC15 NIBASC 'BRTF ' CON(5) #0E19A NIBASC 'SB15S ' CON(5) #0E19D NIBASC 'AD15S ' CON(5) #0E1EE NIBASC 'uRESD1' CON(5) #0E289 NIBASC 'VARNBR' CON(5) #0E28D NIBASC 'VARNB-' CON(5) #0E551 NIBASC 'GETSA ' CON(5) #0E62B NIBASC 'SPLTAX' CON(5) #0E636 NIBASC 'SIGTST' CON(5) #0E757 NIBASC 'FCSTRT' CON(5) #0E8EB NIBASC 'ARGPR+' CON(5) #0E8EF NIBASC 'ARGPRP' CON(5) #0E8FD NIBASC 'POP1R ' CON(5) #0E90C NIBASC 'ARGSTA' CON(5) #0E910 NIBASC 'ARGST-' CON(5) #0E920 NIBASC 'IVAERR' CON(5) #0E92C NIBASC 'STSCR ' CON(5) #0E954 NIBASC 'RCSCR ' CON(5) #0E981 NIBASC 'RCLW1 ' CON(5) #0E983 NIBASC 'RCL* ' CON(5) #0E9BE NIBASC 'RCLW2 ' CON(5) #0E9C4 NIBASC 'RCLW3 ' CON(5) #0EA6E NIBASC 'BEEP ' CON(5) #0EB40 NIBASC 'BP+C ' CON(5) #0EBEB NIBASC 'TONE ' CON(5) #0EC5A NIBASC 'CHIRP ' CON(5) #0EC6E NIBASC 'IDIVA ' CON(5) #0EC7B NIBASC 'IDIV ' CON(5) #0ECAF NIBASC 'HEXDEC' CON(5) #0ECB4 NIBASC 'HXDCW ' CON(5) #0ECBB NIBASC 'MPY ' CON(5) #0ECDC NIBASC 'DCHXW ' CON(5) #0ED2C NIBASC 'CSRW5 ' CON(5) #0ED2F NIBASC 'CSRW4 ' CON(5) #0ED32 NIBASC 'CSRW3 ' CON(5) #0ED3D NIBASC 'CSLW5 ' CON(5) #0ED40 NIBASC 'CSLW4 ' CON(5) #0ED43 NIBASC 'CSLW3 ' CON(5) #0F01F NIBASC 'SETFMT' CON(5) #0F09A NIBASC 'STRHDR' CON(5) #0F178 NIBASC 'EXPEX-' CON(5) #0F182 NIBASC 'EXPEX+' CON(5) #0F186 NIBASC 'EXPEXC' CON(5) #0F1DD NIBASC 'TRMNTR' CON(5) #0F216 NIBASC 'FNRTN1' CON(5) #0F219 NIBASC 'FNRTN2' CON(5) #0F235 NIBASC 'FNRTN3' CON(5) #0F238 NIBASC 'FNRTN4' CON(5) #0F23C NIBASC 'EXPR ' CON(5) #0F281 NIBASC 'RECALL' CON(5) #0F484 NIBASC 'READIN' CON(5) #0F4B7 NIBASC 'RECADR' CON(5) #0F4CF NIBASC 'ADRSUB' CON(5) #0F527 NIBASC 'ADDRSS' CON(5) #0F52B NIBASC 'ADRS40' CON(5) #0F551 NIBASC 'ADRS50' CON(5) #0F563 NIBASC 'FIND ' CON(5) #0F567 NIBASC 'ADRS80' CON(5) #0F579 NIBASC 'CHNHED' CON(5) #0F5C5 NIBASC 'RSTST ' CON(5) #0F5E0 NIBASC 'ASNMNT' CON(5) #0F5F8 NIBASC 'STORE ' CON(5) #0F62F NIBASC 'STORE3' CON(5) #0F6B3 NIBASC 'STRASN' CON(5) #0F7B0 NIBASC 'DEST ' CON(5) #0F953 NIBASC 'BASE ' CON(5) #0F96C NIBASC 'SHRT ' CON(5) #0F99B NIBASC 'INTGR ' CON(5) #0FA35 NIBASC 'SVTRC ' CON(5) #0FE18 NIBASC 'TRFLCK' CON(5) #0FE1B NIBASC 'TRFCK-' CON(5) #0FE59 NIBASC 'TRFROM' CON(5) #0FE7B NIBASC 'TRTO+ ' CON(5) #0FE8F NIBASC 'TRTO- ' CON(5) #0FEA9 NIBASC 'TRTO* ' CON(5) #0FF5F NIBASC 'PEDIT ' CON(5) #0FF62 NIBASC 'PEDITD' CON(5) #0FF70 NIBASC 'PEDITM' CON(5) #0FFDE NIBASC 'FINDLR' CON(5) #0FFE4 NIBASC 'FINDL ' CON(5) #0FFFD NIBASC 'FINDL0' CON(5) #10031 NIBASC 'NXTLIN' CON(5) #10059 NIBASC 'CURBOT' CON(5) #10063 NIBASC 'CURTOP' CON(5) #1009A NIBASC 'CURSRU' CON(5) #100A4 NIBASC 'CURSRD' CON(5) #10108 NIBASC 'DCPLIN' CON(5) #1010F NIBASC 'DSPLI+' CON(5) #10127 NIBASC 'DSPLIN' CON(5) #10192 NIBASC 'ISRAM?' CON(5) #10212 NIBASC 'CONF ' CON(5) #1040A NIBASC 'MSIZE+' CON(5) #109AC NIBASC 'CNFFND' CON(5) #10DDF NIBASC 'LEXBF+' CON(5) #10FDE NIBASC 'ROMCHK' CON(5) #10FE4 NIBASC 'ROMCK-' CON(5) #1102F NIBASC 'ROMFND' CON(5) #11053 NIBASC 'FTYPFD' CON(5) #11059 NIBASC 'FTYPF#' CON(5) #11093 NIBASC 'FTBSCH' CON(5) #110C3 NIBASC 'FASCFD' CON(5) #1113E NIBASC 'GETARG' CON(5) #11365 NIBASC 'REWIND' CON(5) #11427 NIBASC 'GETCH#' CON(5) #11457 NIBASC 'FIBADR' CON(5) #11478 NIBASC 'FIBAD-' CON(5) #1149A NIBASC 'SAVED0' CON(5) #114AC NIBASC 'FDCH# ' CON(5) #115A7 NIBASC 'CREATE' CON(5) #11664 NIBASC 'CRFSB-' CON(5) #116C1 NIBASC 'CRTF ' CON(5) #1188E NIBASC 'IOFSCR' CON(5) #118BA NIBASC 'I/OFND' CON(5) #118C1 NIBASC 'IOFND0' CON(5) #118FF NIBASC 'I/ORES' CON(5) #11920 NIBASC 'I/OCON' CON(5) #11979 NIBASC 'I/OCOL' CON(5) #1197B NIBASC 'I/OAL+' CON(5) #1197D NIBASC 'I/OALL' CON(5) #11A0F NIBASC 'I/OEX2' CON(5) #11A11 NIBASC 'I/OEXP' CON(5) #11A41 NIBASC 'I/ODAL' CON(5) #11B06 NIBASC 'OPENF ' CON(5) #11CEE NIBASC 'WRTFIB' CON(5) #12087 NIBASC 'CLOSEF' CON(5) #120E4 NIBASC 'CLOSEA' CON(5) #12132 NIBASC 'FIBOFF' CON(5) #12198 NIBASC 'PUGFIB' CON(5) #122EF NIBASC 'FFIB# ' CON(5) #1232D NIBASC 'POLLD+' CON(5) #12337 NIBASC 'POLL ' CON(5) #1250A NIBASC 'FPOLL ' CON(5) #1257D NIBASC 'ALMSRV' CON(5) #125B2 NIBASC 'CMPT ' CON(5) #12825 NIBASC 'ADJN ' CON(5) #1289A NIBASC 'ADJA ' CON(5) #128B0 NIBASC 'EXACT ' CON(5) #1290D NIBASC 'SETALM' CON(5) #12917 NIBASC 'SETALR' CON(5) #12AE2 NIBASC 'RJUST ' CON(5) #12E70 NIBASC 'TM>DEC' CON(5) #12FD2 NIBASC 'DAT>DC' CON(5) #130DB NIBASC 'YMDHMS' CON(5) #130E5 NIBASC 'YMDH01' CON(5) #13158 NIBASC 'SETTMO' CON(5) #13229 NIBASC 'TODT ' CON(5) #13252 NIBASC 'SECHMS' CON(5) #13274 NIBASC 'HMSSEC' CON(5) #13304 NIBASC 'YMDDAY' CON(5) #13335 NIBASC 'DAYYMD' CON(5) #13407 NIBASC 'DAY2JD' CON(5) #13571 NIBASC 'UPDANN' CON(5) #135FA NIBASC 'SFLAGS' CON(5) #13601 NIBASC 'SFLAGC' CON(5) #13608 NIBASC 'SFLAGT' CON(5) #1364C NIBASC 'SFLAG?' CON(5) #1365E NIBASC 'GTFLAG' CON(5) #136CB NIBASC 'RNDAHX' CON(5) #138B5 NIBASC 'WSTRFX' CON(5) #1396F NIBASC 'WRTSTR' CON(5) #139C4 NIBASC 'WRTNUM' CON(5) #13A1F NIBASC 'RDLNAS' CON(5) #13A32 NIBASC 'D0+2RD' CON(5) #13AC5 NIBASC 'D0=FIB' CON(5) #13B08 NIBASC 'BACK3B' CON(5) #13B0A NIBASC 'BACK2B' CON(5) #13B0C NIBASC 'BACK1B' CON(5) #13C67 NIBASC 'UPCPOS' CON(5) #13D6D NIBASC 'CHKEOL' CON(5) #13DA1 NIBASC 'MFLG=0' CON(5) #13E21 NIBASC 'D1MST+' CON(5) #13E4C NIBASC 'NXTVAR' CON(5) #13E58 NIBASC 'NXTVA-' CON(5) #14636 NIBASC 'GTPTRS' CON(5) #14670 NIBASC 'GTPTRX' CON(5) #1470C NIBASC 'STKVCT' CON(5) #147E8 NIBASC 'NXTADR' CON(5) #148AC NIBASC 'NXTELM' CON(5) #14C2E NIBASC 'STRHED' CON(5) #14C8A NIBASC 'NOSCRL' CON(5) #14C99 NIBASC 'CHEDIT' CON(5) #14E11 NIBASC 'KEYRD ' CON(5) #150FD NIBASC 'aRANGE' CON(5) #15147 NIBASC 'VIEWD1' CON(5) #151D7 NIBASC 'CURSFR' CON(5) #151DF NIBASC 'CURSFL' CON(5) #15275 NIBASC '-LINE ' CON(5) #152A7 NIBASC 'CNVUCR' CON(5) #152AA NIBASC 'CONVUC' CON(5) #152BA NIBASC 'RPTKY ' CON(5) #153A9 NIBASC 'CKSUM3' CON(5) #153AB NIBASC 'R3REV ' CON(5) #155ED NIBASC 'STKCMD' CON(5) #15977 NIBASC 'REDUCE' CON(5) #16279 NIBASC 'BLDCON' CON(5) #16B84 NIBASC 'TRSFMu' CON(5) #1702F NIBASC 'TFHDLR' CON(5) #17148 NIBASC 'HEXASC' CON(5) #1721D NIBASC 'LOCFIL' CON(5) #172F3 NIBASC 'STATRS' CON(5) #1732F NIBASC 'STATSV' CON(5) #1737E NIBASC '?PRFIL' CON(5) #17380 NIBASC '?PRFI+' CON(5) #173FF NIBASC 'RDBAS ' CON(5) #17489 NIBASC 'RDTEXT' CON(5) #17518 NIBASC 'READNB' CON(5) #1752B NIBASC 'WRITNB' CON(5) #17687 NIBASC 'OBEDIT' CON(5) #1799B NIBASC 'RPLSBH' CON(5) #17A24 NIBASC 'SWPBYT' CON(5) #17CC6 NIBASC 'RDATTY' CON(5) #17DC1 NIBASC 'SENDEL' CON(5) #17DE3 NIBASC 'SENDIT' CON(5) #17DFA NIBASC 'SEND20' CON(5) #17E15 NIBASC 'SENDWD' CON(5) #17E1F NIBASC 'SNDWD+' CON(5) #17EA3 NIBASC 'DPART2' CON(5) #17EF8 NIBASC 'DPART3' CON(5) #17F37 NIBASC 'PRINT*' CON(5) #18097 NIBASC 'PART3 ' CON(5) #18115 NIBASC 'PUTRES' CON(5) #18149 NIBASC 'STR$SB' CON(5) #18156 NIBASC 'STR$ ' CON(5) #1815C NIBASC 'STR$00' CON(5) #181B7 NIBASC 'ADHEAD' CON(5) #18504 NIBASC 'STKCHR' CON(5) #18534 NIBASC 'CKINF-' CON(5) #18542 NIBASC 'CKINFO' CON(5) #185DB NIBASC 'DSP$00' CON(5) #1864D NIBASC 'GETAVM' CON(5) #18651 NIBASC 'D1=AVE' CON(5) #18663 NIBASC 'BF2STK' CON(5) #187E8 NIBASC 'EXCPAR' CON(5) #18A1E NIBASC 'REPROM' CON(5) #18A3A NIBASC 'FINLIN' CON(5) #18B20 NIBASC 'ZERBUF' CON(5) #18B49 NIBASC 'INPOFF' CON(5) #18BB8 NIBASC 'AVE=D1' CON(5) #18BBB NIBASC 'AVE=C ' CON(5) #18D8C NIBASC 'CALBIN' CON(5) #18DAE NIBASC 'CALL ' CON(5) #1954E NIBASC 'D1MSTK' CON(5) #1955D NIBASC 'D1FSTK' CON(5) #195A8 NIBASC 'ENDSUB' CON(5) #1A085 NIBASC 'GETNAM' CON(5) #1A0A1 NIBASC 'FNDFCN' CON(5) #1A44E NIBASC 'XXHEAD' CON(5) #1A460 NIBASC 'D=AVMS' CON(5) #1A476 NIBASC 'D=AVME' CON(5) #1A72C NIBASC 'CLLINK' CON(5) #1A753 NIBASC 'RENSUB' CON(5) #1A9AC NIBASC 'EXPSKP' CON(5) #1AC04 NIBASC 'KEYNAM' CON(5) #1ACA8 NIBASC 'KEY$ ' CON(5) #1AD8F NIBASC 'VAL00 ' CON(5) #1AE61 NIBASC 'VALCHK' CON(5) #1AF01 NIBASC 'MGOSUB' CON(5) #1B01F NIBASC 'RND-12' CON(5) #1B076 NIBASC 'DRANGE' CON(5) #1B07C NIBASC 'RANGE ' CON(5) #1B098 NIBASC 'MEMBER' CON(5) #1B0A1 NIBASC 'HASH1 ' CON(5) #1B0A3 NIBASC 'HASH2 ' CON(5) #1B0AF NIBASC 'WIPOUT' CON(5) #1B0B2 NIBASC 'STUFF ' CON(5) #1B0EE NIBASC 'MOVEDM' CON(5) #1B0F4 NIBASC 'MOVED0' CON(5) #1B0FA NIBASC 'MOVEDA' CON(5) #1B101 NIBASC 'MOVED1' CON(5) #1B104 NIBASC 'MOVED2' CON(5) #1B106 NIBASC 'MOVEDD' CON(5) #1B109 NIBASC 'MOVED3' CON(5) #1B15C NIBASC 'MOVEUM' CON(5) #1B162 NIBASC 'MOVEU0' CON(5) #1B168 NIBASC 'MOVEUA' CON(5) #1B16F NIBASC 'MOVEU1' CON(5) #1B172 NIBASC 'MOVEU2' CON(5) #1B174 NIBASC 'MOVEU4' CON(5) #1B177 NIBASC 'MOVEU3' CON(5) #1B1C7 NIBASC 'STRTST' CON(5) #1B1EF NIBASC 'STREQL' CON(5) #1B223 NIBASC 'FLTDH ' CON(5) #1B2D0 NIBASC 'DCHX=C' CON(5) #1B2D2 NIBASC 'DECHEX' CON(5) #1B31B NIBASC 'HDFLT ' CON(5) #1B322 NIBASC 'FLOAT ' CON(5) #1B349 NIBASC 'A-MULT' CON(5) #1B38E NIBASC 'REV$ ' CON(5) #1B3DB NIBASC 'POPMTH' CON(5) #1B405 NIBASC 'POPSTR' CON(5) #1B415 NIBASC 'CSRC7 ' CON(5) #1B418 NIBASC 'CSRC6 ' CON(5) #1B41B NIBASC 'CSRC5 ' CON(5) #1B41E NIBASC 'CSRC4 ' CON(5) #1B421 NIBASC 'CSRC3 ' CON(5) #1B424 NIBASC 'CSRC2 ' CON(5) #1B427 NIBASC 'CSRC1 ' CON(5) #1B42C NIBASC 'CSRC8 ' CON(5) #1B42F NIBASC 'CSLC7 ' CON(5) #1B432 NIBASC 'CSLC6 ' CON(5) #1B435 NIBASC 'CSLC5 ' CON(5) #1B438 NIBASC 'CSLC4 ' CON(5) #1B43B NIBASC 'CSLC3 ' CON(5) #1B43E NIBASC 'CSLC2 ' CON(5) #1B441 NIBASC 'CSLC1 ' CON(5) #1B446 NIBASC 'USING ' CON(5) #1B508 NIBASC 'USG*10' CON(5) #1B535 NIBASC 'IMentr' CON(5) #1B669 NIBASC 'CkLoop' CON(5) #1B66D NIBASC 'CkLpNC' CON(5) #1B864 NIBASC 'BOPNM-' CON(5) #1B88F NIBASC 'IMinit' CON(5) #1B989 NIBASC 'IMerr ' CON(5) #1B9FA NIBASC 'SetAVM' CON(5) #1BA0D NIBASC 'CSL9R0' CON(5) #1BA21 NIBASC 'IMD0-2' CON(5) #1BA2D NIBASC 'IMD0+2' CON(5) #1BA3C NIBASC 'D12R0A' CON(5) #1BA4A NIBASC 'BYTscA' CON(5) #1BA4F NIBASC 'BACK ' CON(5) #1BA58 NIBASC 'IMoffs' CON(5) #1BA66 NIBASC 'BldIMA' CON(5) #1BA68 NIBASC 'BldIMG' CON(5) #1BA6A NIBASC 'BldIM+' CON(5) #1BA84 NIBASC 'PRSsc+' CON(5) #1BA88 NIBASC 'PRSscn' CON(5) #1BAAB NIBASC 'IMGxq1' CON(5) #1BB9C NIBASC 'IMxq27' CON(5) #1BBCE NIBASC 'USst03' CON(5) #1BBD4 NIBASC 'USst05' CON(5) #1BBDD NIBASC 'USsT05' CON(5) #1BC0B NIBASC 'USGch-' CON(5) #1BC15 NIBASC 'USGch+' CON(5) #1BC63 NIBASC 'USGrst' CON(5) #1BD12 NIBASC 'USnm05' CON(5) #1C02D NIBASC 'NwOFFS' CON(5) #1C040 NIBASC 'ENDIMG' CON(5) #1C050 NIBASC 'RCVOFS' CON(5) #1C053 NIBASC 'C+A2D1' CON(5) #1C086 NIBASC 'GetEXP' CON(5) #1C0FF NIBASC 'TstEnd' CON(5) #1C14B NIBASC 'USloop' CON(5) #1C177 NIBASC 'DCRMNT' CON(5) #1C2F7 NIBASC 'NXTEXP' CON(5) #1C346 NIBASC 'COUNTC' CON(5) #1C3C7 NIBASC 'GDISP$' CON(5) #1C578 NIBASC 'SAVD1 ' CON(5) #1C587 NIBASC 'SAVD0 ' CON(5) #1C596 NIBASC 'RSTD1 ' CON(5) #1C5A5 NIBASC 'ADDRCK' CON(5) #1C879 NIBASC 'FILCRD' CON(5) #1CDEE NIBASC 'CHKSUM' CON(5) #1CFAC NIBASC 'TRKDON' CON(5) #1D21D NIBASC 'CRDFIL' CON(5) #1DAEF NIBASC 'FNDCLR' CON(5) #1DBA6 NIBASC 'CKSUM4' CON(5) #1DBA8 NIBASC 'R4REV ' CON(5) #1EE9F NIBASC 'LXTXTT' CON(5) #1FD22 NIBASC 'KEYCOD' CON(5) #20000 OPERATING SYSTEM END SYSRM1 C=0 W LCHEX 14 GOSBVL #0F09A LCASC '=MAR' P= 7 DAT1=C WP D1=D1+ 8 GOSUBL EQUAT1 CON(5) #2E100 NIBASC 'ANNAD1' CON(5) #2E101 NIBASC 'ANN1.5' CON(5) #2E102 NIBASC 'ANNAD2' CON(5) #2E104 NIBASC 'DD3ST ' CON(5) #2E160 NIBASC 'DD3END' CON(5) #2E1F8 NIBASC 'TIMER3' CON(5) #2E1FF NIBASC 'DD3CTL' CON(5) #2E200 NIBASC 'DD2ST ' CON(5) #2E260 NIBASC 'DD2END' CON(5) #2E2F8 NIBASC 'TIMER2' CON(5) #2E2FF NIBASC 'DD2CTL' CON(5) #2E300 NIBASC 'DD1ST ' CON(5) #2E34C NIBASC 'ANNAD3' CON(5) #2E34E NIBASC 'ANNAD4' CON(5) #2E350 NIBASC 'ROWDVR' CON(5) #2E3F8 NIBASC 'TIMER1' CON(5) #2E3FE NIBASC 'DCONTR' CON(5) #2E3FF NIBASC 'DD1CTL' CON(5) #2F400 NIBASC 'INTR4 ' CON(5) #2F410 NIBASC 'INTA ' CON(5) #2F420 NIBASC 'INTB ' CON(5) #2F430 NIBASC 'INTM ' CON(5) #2F438 NIBASC 'CMOSTW' CON(5) #2F43C NIBASC 'VECTOR' CON(5) #2F441 NIBASC 'ATNDIS' CON(5) #2F442 NIBASC 'ATNFLG' CON(5) #2F443 NIBASC 'KEYPTR' CON(5) #2F444 NIBASC 'KEYBUF' CON(5) #2F462 NIBASC 'KCOLD ' CON(5) #2F463 NIBASC 'KCOLC ' CON(5) #2F464 NIBASC 'KCOLB ' CON(5) #2F465 NIBASC 'KCOLA ' CON(5) #2F466 NIBASC 'KCOL9 ' CON(5) #2F467 NIBASC 'KCOL8 ' CON(5) #2F468 NIBASC 'KCOL7 ' CON(5) #2F469 NIBASC 'KCOL6 ' CON(5) #2F46A NIBASC 'KCOL5 ' CON(5) #2F46B NIBASC 'KCOL4 ' CON(5) #2F46C NIBASC 'KCOL3 ' CON(5) #2F46D NIBASC 'KCOL2 ' CON(5) #2F46E NIBASC 'KCOL1 ' CON(5) #2F46F NIBASC 'KCOL0 ' CON(5) #2F470 NIBASC 'DISINT' CON(5) #2F471 NIBASC 'WINDST' CON(5) #2F473 NIBASC 'WINDLN' CON(5) #2F475 NIBASC 'DSPSTA' CON(5) #2F47B NIBASC 'ESCSTA' CON(5) #2F47C NIBASC 'FIRSTC' CON(5) #2F47E NIBASC 'CURSOR' CON(5) #2F480 NIBASC 'DSPBFS' CON(5) #2F540 NIBASC 'DSPMSK' CON(5) #2F558 NIBASC 'MAINST' CON(5) #2F55D NIBASC 'CURRST' CON(5) #2F562 NIBASC 'PRGMST' CON(5) #2F567 NIBASC 'PRGMEN' CON(5) #2F56C NIBASC 'CURREN' CON(5) #2F571 NIBASC 'IOBFST' CON(5) #2F576 NIBASC 'IOBFEN' CON(5) #2F57B NIBASC 'RFNBFR' CON(5) #2F580 NIBASC 'RAWBFR' CON(5) #2F585 NIBASC 'CLCSTK' CON(5) #2F58A NIBASC 'SYSEN ' CON(5) #2F58F NIBASC 'OUTBS ' CON(5) #2F594 NIBASC 'AVMEMS' CON(5) #2F599 NIBASC 'AVMEME' CON(5) #2F59E NIBASC 'SAVSTK' CON(5) #2F5A3 NIBASC 'GSBSTK' CON(5) #2F5A8 NIBASC 'ACTIVE' CON(5) #2F5AD NIBASC 'CALSTK' CON(5) #2F5B2 NIBASC 'RAMEND' CON(5) #2F5B7 NIBASC 'PRMPTR' CON(5) #2F5BE NIBASC 'CHNLST' CON(5) #2F674 NIBASC 'UPD2ST' CON(5) #2F679 NIBASC 'PCADDR' CON(5) #2F67E NIBASC 'CNTADR' CON(5) #2F683 NIBASC 'ERRSUB' CON(5) #2F688 NIBASC 'ERRADR' CON(5) #2F68D NIBASC 'ONINTR' CON(5) #2F692 NIBASC 'DATPTR' CON(5) #2F697 NIBASC 'TMRAD1' CON(5) #2F69C NIBASC 'TMRAD2' CON(5) #2F6A1 NIBASC 'TMRAD3' CON(5) #2F6A6 NIBASC 'TMRIN1' CON(5) #2F6AE NIBASC 'TMRIN2' CON(5) #2F6B6 NIBASC 'TMRIN3' CON(5) #2F6BE NIBASC 'STSAVE' CON(5) #2F6C1 NIBASC 'LDCSPC' CON(5) #2F6C6 NIBASC 'INBS ' CON(5) #2F6CB NIBASC 'AUTINC' CON(5) #2F6CF NIBASC 'LEXPTR' CON(5) #2F6D4 NIBASC 'CMDPTR' CON(5) #2F6D9 NIBASC 'SYSFLG' CON(5) #2F6DC NIBASC 'DSPFMT' CON(5) #2F6DD NIBASC 'DSPDGT' CON(5) #2F6E9 NIBASC 'FLGREG' CON(5) #2F6F9 NIBASC 'TRPREG' CON(5) #2F6FA NIBASC 'UNFNIB' CON(5) #2F6FB NIBASC 'OVFNIB' CON(5) #2F6FC NIBASC 'DVZNIB' CON(5) #2F6FD NIBASC 'IVLNIB' CON(5) #2F6FE NIBASC 'RNSEED' CON(5) #2F70D NIBASC 'NXTIRQ' CON(5) #2F719 NIBASC 'ALRM1 ' CON(5) #2F725 NIBASC 'ALRM2 ' CON(5) #2F731 NIBASC 'ALRM3 ' CON(5) #2F73D NIBASC 'ALRM4 ' CON(5) #2F749 NIBASC 'ALRM5 ' CON(5) #2F755 NIBASC 'ALRM6 ' CON(5) #2F761 NIBASC 'PNDALM' CON(5) #2F763 NIBASC 'TIMOFS' CON(5) #2F76F NIBASC 'TIMLST' CON(5) #2F77B NIBASC 'TIMLAF' CON(5) #2F787 NIBASC 'TIMAF ' CON(5) #2F78D NIBASC 'IS-DSP' CON(5) #2F794 NIBASC 'IS-PRT' CON(5) #2F79B NIBASC 'IS-INP' CON(5) #2F7A2 NIBASC 'IS-PLT' CON(5) #2F7A9 NIBASC 'MBOX^ ' CON(5) #2F7AC NIBASC 'LOOPST' CON(5) #2F7AD NIBASC 'STATAR' CON(5) #2F7B0 NIBASC 'TRACEM' CON(5) #2F7B1 NIBASC 'DSPSET' CON(5) #2F7B2 NIBASC 'LOCKWD' CON(5) #2F7C2 NIBASC 'RESREG' CON(5) #2F7E4 NIBASC 'ERR# ' CON(5) #2F7E8 NIBASC 'CURRL ' CON(5) #2F7EC NIBASC 'ERRL# ' CON(5) #2F7F0 NIBASC 'SNAPBF' CON(5) #2F81F NIBASC 'RSTKBp' CON(5) #2F820 NIBASC 'RSTKBF' CON(5) #2F870 NIBASC 'MLFFLG' CON(5) #2F871 NIBASC 'S-R0-0' CON(5) #2F876 NIBASC 'S-R0-1' CON(5) #2F87B NIBASC 'S-R0-2' CON(5) #2F880 NIBASC 'S-R0-3' CON(5) #2F881 NIBASC 'S-R1-0' CON(5) #2F886 NIBASC 'S-R1-1' CON(5) #2F88B NIBASC 'S-R1-2' CON(5) #2F890 NIBASC 'S-R1-3' CON(5) #2F891 NIBASC 'STMTD0' CON(5) #2F896 NIBASC 'STMTD1' CON(5) #2F89B NIBASC 'F-R0-0' CON(5) #2F8A0 NIBASC 'F-R0-1' CON(5) #2F8A5 NIBASC 'F-R0-2' CON(5) #2F8AA NIBASC 'F-R0-3' CON(5) #2F8AB NIBASC 'F-R1-0' CON(5) #2F8B0 NIBASC 'F-R1-1' CON(5) #2F8B5 NIBASC 'F-R1-2' CON(5) #2F8BA NIBASC 'F-R1-3' CON(5) #2F8BB NIBASC 'FUNCD0' CON(5) #2F8C0 NIBASC 'FUNCD1' CON(5) #2F8C5 NIBASC 'TRFMBF' CON(5) #2F901 NIBASC 'SCRTCH' CON(5) #2F941 NIBASC 'SCREX0' CON(5) #2F946 NIBASC 'SCROLT' CON(5) #2F948 NIBASC 'DELAYT' CON(5) #2F94A NIBASC 'NEEDSC' CON(5) #2F94B NIBASC 'PRMCNT' CON(5) #2F94D NIBASC 'DPOS ' CON(5) #2F94F NIBASC 'DWIDTH' CON(5) #2F951 NIBASC 'SCREX1' CON(5) #2F956 NIBASC 'PPOS ' CON(5) #2F958 NIBASC 'PWIDTH' CON(5) #2F95A NIBASC 'EOLLEN' CON(5) #2F95B NIBASC 'EOLSTR' CON(5) #2F961 NIBASC 'SCREX2' CON(5) #2F966 NIBASC 'SCRPTR' CON(5) #2F967 NIBASC 'DEFADR' CON(5) #2F96F NIBASC 'CHN#SV' CON(5) #2F971 NIBASC 'SCREX3' CON(5) #2F976 NIBASC 'MAXCMD' CON(5) #2F977 NIBASC 'CSPEED' CON(5) #2F97C NIBASC 'ERRLCH' CON(5) #2F97D NIBASC 'TERCHR' CON(5) #2F97F NIBASC 'HPSCRH' CON(5) #2F986 NIBASC 'RESERV' END OF SYSTEM RAM oPOLID C=RSTK CD1EX RSTK=C D1=D1- 12 POL02 D1=D1+ 12 C=DAT1 B ?B>C B GOYES POL02 ?B=C B GOYES POLnul GOLONG NULL$ POLnul D1=D1+ 2 P= 9 A=DAT1 WP ASL W ASL W ASL W ASL W P= 0 LCASC 'p=' GOLONG MFT88 NIBHEX 411 POLID$ GOSBVL #1C5A5 P= 0 C=0 W LCHEX FF ?B<=C A GOYES POL99 GOLONG NULL$1 POL99 GOSUB oPOLID CON(2) #00 NIBASC 'VER$ ' CON(2) #01 NIBASC 'DEVCp' CON(2) #02 NIBASC 'FILDC' CON(2) #03 NIBASC 'FILXQ' CON(2) #04 NIBASC 'FSPCp' CON(2) #05 NIBASC 'FSPCx' CON(2) #06 NIBASC 'CAT ' CON(2) #07 NIBASC 'CAT$ ' CON(2) #08 NIBASC 'COPYx' CON(2) #09 NIBASC 'CREAT' CON(2) #0A NIBASC 'DIDST' CON(2) #0B NIBASC 'FPROT' CON(2) #0C NIBASC 'LIST ' CON(2) #0D NIBASC 'MERGE' CON(2) #0E NIBASC 'PRTCL' CON(2) #0F NIBASC 'PRTIS' CON(2) #10 NIBASC 'PURGE' CON(2) #11 NIBASC 'RNAME' CON(2) #12 NIBASC 'ENTER' CON(2) #17 NIBASC 'FINDF' CON(2) #18 NIBASC 'RDCBF' CON(2) #19 NIBASC 'RDNBF' CON(2) #1A NIBASC 'WRCBF' CON(2) #1B NIBASC 'KYDF ' CON(2) #1C NIBASC 'WTKY ' CON(2) #1D NIBASC 'IMXQT' CON(2) #1E NIBASC 'IMCHR' CON(2) #1F NIBASC 'IMXCH' CON(2) #20 NIBASC 'IMbck' CON(2) #21 NIBASC 'IMcpi' CON(2) #22 NIBASC 'IMcpw' CON(2) #23 NIBASC 'CRT=8' CON(2) #24 NIBASC 'WCRD8' CON(2) #25 NIBASC 'EOFIL' CON(2) #26 NIBASC 'PRIN#' CON(2) #27 NIBASC 'READ#' CON(2) #28 NIBASC 'SREC#' CON(2) #29 NIBASC 'CURSR' CON(2) #2A NIBASC 'DATLN' CON(2) #2B NIBASC 'EDIT ' CON(2) #2C NIBASC 'FASCH' CON(2) #2D NIBASC 'FTYPE' CON(2) #2E NIBASC 'LIST2' CON(2) #2F NIBASC 'MRGE2' CON(2) #30 NIBASC 'RUNft' CON(2) #31 NIBASC 'RUNnB' CON(2) #32 NIBASC 'PRGPR' CON(2) #33 NIBASC 'CRDAB' CON(2) #34 NIBASC 'RCRD ' CON(2) #35 NIBASC 'WCRD ' CON(2) #36 NIBASC 'CALRS' CON(2) #37 NIBASC 'CALSV' CON(2) #38 NIBASC 'CMPLX' CON(2) #39 NIBASC 'REN ' CON(2) #3A NIBASC 'RTNTp' CON(2) #3B NIBASC 'TIMR#' CON(2) #3C NIBASC 'TRFMx' CON(2) #3D NIBASC 'FNIN ' CON(2) #3E NIBASC 'FNOUT' CON(2) #40 NIBASC 'WAND ' CON(2) #41 NIBASC 'PLOT ' CON(2) #42 NIBASC 'LstNB' CON(2) #43 NIBASC 'LIST$' CON(2) #44 NIBASC 'SYSTM' CON(2) #45 NIBASC 'WANDA' CON(2) #48 NIBASC 'GRAPH' CON(2) #EF NIBASC 'TRANS' CON(2) #F0 NIBASC 'TEST ' CON(2) #F1 NIBASC 'MEM ' CON(2) #F2 NIBASC 'ERROR' CON(2) #F3 NIBASC 'WARN ' CON(2) #F4 NIBASC 'PARSE' CON(2) #F5 NIBASC 'BSCen' CON(2) #F6 NIBASC 'BSCex' CON(2) #F7 NIBASC 'ZERPG' CON(2) #F8 NIBASC 'Excpt' CON(2) #F9 NIBASC 'SREQ ' CON(2) #FA NIBASC 'MNLP ' CON(2) #FB NIBASC 'CONFG' CON(2) #FC NIBASC 'PWROF' CON(2) #FD NIBASC 'DSWKY' CON(2) #FE NIBASC 'DSWNK' CON(2) #FF NIBASC 'CLDST' NIBHEX 411 REVNIB CD1EX D1=C RSTK=C GOSBVL #0BD38 POP1S C=A A B=0 M B=A A BSRB BYTE COUNT IN B[A] NXTBYT B=B-1 A COUNTER GOC REVN99 IF CARRY, DONE A=DAT1 B READ BYTE C=A B SWAP NIBS ASL B CSR B A=A!C B RECOMBINE NIBS DAT1=A B STORE BYTE WITH NIBS REVERSED D1=D1+ 2 ADVANCE TO NEXT BYTE GONC NXTBYT AND SWAP IT TOO REVN99 C=RSTK D1=C GOVLNG #0F23C eFSPEC LCHEX 003A err GOVLNG #0939A BSERR MFERR GOVLNG #09393 MFERR eTYPE LCHEX 003F GOTO err FINDFL GOSBVL #1C587 SAVD0 GOSBVL #09B95 =FILXQ$ GONC eFSPEC GOSBVL #1C578 SAVD1 GOSBVL #09F63 FINDF+ GOC MFERR GOSBVL #06832 RSTD0 D1=D1+ 16 skip name field A=0 A A=DAT1 4 P= 0 C=0 A LCHEX FF ?C=A A GOYES DISABL LCHEX E208 ?A#C A GOYES eTYPE DISABL D1=D1+ 16 link field A=DAT1 A CD1EX D1=C A=C+A A B=A A RTN NIBHEX 411 JUMPR$ GOSUB FINDFL P= 0 LCHEX 15412F7F0F173160 JJJ A=DAT1 B D1=D1+ 1 CD1EX ?B<=C A GOYES NOTFND CD1EX ?A#C B GOYES JJJ D1=D1- 1 A=DAT1 W D1=D1+ 1 ?C#A W GOYES JJJ D1=D1- 1 HX2AC AD1EX HX2ASC GOSBVL #1C596 RSTD1 GOLONG OUTAD NOTFND A=0 A GOTO HX2ASC NIBHEX 411 TYPAD$ GOSUB FINDFL R3=A PPP A=DAT1 B D1=D1+ 1 C=C+1 A ?B<=C A GOYES NOTFND A=A+1 B GONC PPP D1=D1- 5 GOSBVL #11053 =FTYPFN GOC FOUNDT PPP+ D1=D1+ 5 C=R3 B=C A CD1EX D1=C GOTO PPP FOUNDT D1=D1- 4 GOSBVL #11053 GOC FOUNDT D1=D1- 16 GOSBVL #11053 GOC FOUNDT D1=D1+ 4 A=DAT1 W ?A=0 S GOYES XX P= 15 LCHEX 4 ?A>C S GOYES XX GOTO HX2AC XX D1=D1+ 1 A=DAT1 B A=A+1 B GONC XX GOTO PPP+ *************************************************************** BSERR GOVLNG #0939A FIB GOSBVL #0E8FD POPIR we start by poping the channel number FIB1 GOSBVL #1B223 FLTDH convert to hex FIB2 GOSBVL #1C578 =SAVD1 save stack pointer for future use FIB3 GOSBVL #11457 FIBADR see IDS. gets info on any open file. A[A]= ch # D1=D1+ 5 FIB ENTRY @ FLTYPE A=0 A WE ONLY ALLOW TEXT A=DAT1 4 P= 0 C=0 A LCHEX 1 ?A=C A GOYES TYPOK LCHEX 3F eIVALID FILETYPE GONC BSERR TYPOK D1=D1+ 7 NOW, CHECK THE DEVICE CODE C=DAT1 S (WE DO NOT HANDLE EXTERNAL FILES) C=C-1 S (WE COULD ALSO TEST FOR PRIVATE, BUT WHY WASTE CODE?) GOC ACSOK WE DO HANDLE MAIN RAM... C=C-1 S GOC ACSOK AND IRAM.. LCHEX 3C BUT eINVALID ACCESS OTHERWISE. GONC BSERR (WE COULD ALSO HANDLE ROM, BUT WHY BOTHER?) * we could handle any type device, HPIL included, by issuing a poll & by * providing suitable handlers. This should be done whenever you anticipate * expanding the functionality of a keyword. In this case, I felt that * nobody would be interested in external devices due to speed considerations. ACSOK D1=D1+ 1 WHERE IS THE DAMN FILE? A=DAT1 A D1=A @ FILE HEADER D1=D1+ 16 SKIP TO OFFSET TO NEXT FILE D1=D1+ 16 C=DAT1 A AD1EX COMPUTE END OF FILE ADDRESS C=C+A A D=C A and save EOF in D[A] for future tests D1=A @ FIRST RECORD -5 D1=D1+ 5 @ FIRST RECORD RTN NIBHEX 811 TXTSZ GOSUB FIB B=0 A COUNTER FOR # OF RECORDS TT GOSUB NXTREC ADVANCE D1 TO NEXT REC UNTIL YOU REACH EOF GONC TT TXT0 ABEX A OUTPUT COUNT NUMOUT GOSBVL #1B31B AFTER HX TO DEC CONVERSION GOSBVL #1C596 =RSTD1, restore stack pointer for outputing a number DAT1=A W expr GOVLNG #0F23C =EXPR ***************************** * * It is important to note that text files in RAM do not have to have an EOF * marker ("FFFF" rec. len.). We could, perhaps should, test for bad records * that end beyond EOF. I am not sure whether this is typical HP overdesigned * idiot-proofing, or bug-spray aimed at a know problem. Therefore, I assume * that bad records will not happen. Let's not include code until we know * it is really needed. See IDS I. NXTREC CD1EX TEST FOR EOF D1=C ?C>=D A RTNYES A=0 A A=DAT1 B REQUIRED ONLY IF RECORDS EXCEED 254 BYTES ASL A " ASL A " D1=D1+ 2 A=DAT1 B P= 3 " A=A+1 WP (or A=A+1 B, if we assume records are less than 255 bytes) P= 0 " (clean-up) RTNC return if EOF marker. "FFFF"+1 sets carry.. ASRB rounding up A=A+1 A ALLOW FOR 4 NIBS LENGHT OF RECORD A=A+A A CONVERT TO BYTE COUNT A=A+A A CONVERT TO NIBBLES * CD1EX C=C+A A START OF NEXT RECORD D1=C AND WE ARE READY TO GO ROUND THE LOOP.. B=B+1 A AFTER INCREMENTING THE RECORD COUNTER RTNCC **************************** * * The keyword L=LINE(,) performs a specialized SEARCH * on the TEXT file specified by the given channel number. It returns the * first record number such that the value of bytes 2 to 6 is greater than * the search string. * * THE SEARCH STRING MUST BE EXACTLY 5 BYTES LONG, ie, be an address. * * This is a special purpose keyword used by DISASM that tells you where to * insert information in the output file in order to end-up with a source code * file. See DISASM for further details. * * Incidentally, this keyword is a building block toward a keyword for sorting * TEXT files: a third parameter could give the sort start column, and the * FOUND subroutine could be modified to swap records according to comaparison * results. It would be (relatively) easy to do for fixed length records, and * somewhat tougher for variable length records. Something to do in the near * future! *********************** NIBHEX 8422 FINDL GOSBVL #0E8FD =POP1R GOSBVL #1B223 FLTDH convert to hex D1=D1+ 16 position for next parameter to be poped, if any AR3EX GOSBVL #0BD38 =POP1S P= 0 C=0 A LCHEX A ?A=C A GOYES LENOK eIvar LCHEX B GOTO BSERR LENOK A=DAT1 10 D1=D1- 6 AR3EX GOSUB FIB2 SAVE STACK POINTER, TO OUTPUT ANS. B=0 A LL GOSUB NXTRC ADVANCE D1 TO NEXT REC UNTIL YOU REACH EOF GOC outlin GOSUB Line GONC LL outlin B=B-1 A GOTO TXT0 NXTRC CD1EX TEST FOR EOF D1=C ?C>=D A RTNYES A=0 W * A=DAT1 B required to handle records of 255 or more bytes * ASL A * ASL A D1=D1+ 2 A=DAT1 B * P= 3 A=A+1 B field should be WP if records may exceed 254 bytes * P= 0 RTNC EOF marker is "FFFF", we test only one byte. ASRB ROUNDING UP A=A+1 A A=A+A A A=A+A A * CD1EX not required, we have preserved C[A] C=C+A A C[A]= addr. of next record RTNCC Line D1=D1+ 4 skip to second char in record A=DAT1 B and read the byte. We are reversing the byte order GOSUB Byte from what we would get with A=DAT1 10 in order for GOSUB Byte the comparison to be valid. GOSUB Byte GOSUB Byte We now have 5 bytes in A[9,0] D1=C now, D1 points to the start of the next record B=B+1 A we increment the record count C=R3 and we finally do the comparison with the search string P= 9 we compare 10 nibbles ?A>C WP GOYES FOUND P= 0 RTNCC FOUND P= 0 RTNSC Byte ASL W ASL W D1=D1+ 2 A=DAT1 B RTN NIBHEX 811 FINDGO GOSUB FIB P= 0 C=0 A LCASC 'og' B=C A FGO GOSUB FGOREC GONC FGO ?A=B A Have we found a "go" GOYES outgo FGONUL GOSBVL #1C596 =RSTD1 none found, output null$ P= 0 C=0 A LCHEX F DAT1=C W GOTO expr outgo P= 0 LCASC 'OG' DAT1=C 4 change "go" to "GO" outgo2 D1=D1+ 14 skip to jump address C=DAT1 10 read it R3=C save it GOSBVL #1C596 =RSTD1 D1=D1+ 16 P= 0 C=0 A LCHEX A GOSBVL #0F09A =STRHDR C=R3 output the address DAT1=C 10 D1=D1- 16 move to str. header GOSBVL #1B38E =REV$ GOTO expr FGOREC GOSUB NXTRC RTNC D1=D1+ 16 D1=D1+ 2 skip to start of opcode A=DAT1 4 get it ?A=B A RTNYES D1=C RTNCC NIBHEX 811 FINDRE GOSUB FIB P= 0 C=0 A LCASC 'er' B=C A FRE GOSUB FGOREC GONC FRE ?A=B A GOYES outrel GOTO FGONUL outrel P= 0 LCASC 'LER' DAT1=C 6 GOTO outgo2 NIBHEX 8422 BADJMP GOSBVL #0E8FD =POP1R GOSBVL #1B223 =FLTDH D1=D1+ 16 AR3EX GOSBVL #0BD31 =REVPOP P= 0 C=0 A LCHEX A ?A=C A GOYES LENOK2 GOTO eIvar LENOK2 A=DAT1 10 D1=D1- 6 AR3EX GOSUB FIB2 B=0 A BAD GOSUB BAD1 GONC BAD GOTO outlin BAD1 GOSUB NXTRC RTNC D1=D1+ 16 D1=D1+ 16 A=DAT1 10 B=B+1 A CR3EX P= 9 ?A=C WP GOYES BAD2 P= 0 CR3EX D1=C RTNCC BAD2 D1=D1- 16 D1=D1- 14 CR3EX R2=C A=DAT1 B P= 0 LCASC '*' Comment lines do not qualify ?A=C B GOYES BAD3 LCASC '?' ?A=C B GOYES BAD3 DAT1=C B RTNSC BAD3 C=R2 D1=C RTNCC ARGerr GOTO eIvar NIBHEX 8822 GOSU GOSBVL #0BD54 =MPOP2N GOC ARGerr R3=C GOSBVL #1B223 =FLTDH P= 0 LCASC 'usOG' ?A=0 A GOYES GOSU1 LCASC 'UsOG' GOSU1 CR3EX A=C W GOSUB FIB1 B=0 A GOSU3 GOSUB NXTRC GOC GOSU4 B=B+1 A D1=D1+ 16 D1=D1+ 2 A=DAT1 8 CR3EX P= 7 ?A=C WP GOYES GOSU5 CR3EX D1=C GONC GOSU3 GOSU4 B=0 A GOTO TXT0 GOSU5 P= 0 LCASC 'USOG' DAT1=C 8 GOTO outlin NIBHEX 811 FINDEQ GOSUB FIB B=0 A P= 0 LCASC '=' CR3EX FEQ GOSUB NXTRC GOC GOSU4 B=B+1 A D1=D1+ 2 A=DAT1 B CR3EX ?A=C B GOYES FEQ2 CR3EX D1=C GONC FEQ FEQ2 P= 0 LCASC '*' DAT1=C B GOTO outlin FIXUPd LCHEX 23 GOSBVL #02CE8 =OUTBYT GOVLNG #05493 =FIXDC FIXUPp GOSBVL #03356 =#CH GOC eSYNT D1=D1+ 2 GOSBVL #0369D =NUMCK GOSBVL #032AE =COMCK+ GOSBVL #0379D =STRNGP GOVLNG #03172 =RESPTR eSYNT ST=1 4 GOVLNG #02E2B =SYNTXe ARGERR GOVLNG #0BF19 DEFAUL LCASC 'o' A=C B GOTO SVCHR REL(5) FIXUPd REL(5) FIXUPp FIXUP GOSBVL #1AF01 =MGOSUB CON(5) #11427 GETCH# D0=D0+ 2 GOSBVL #1AF01 =MGOSUB CON(5) #0F178 =EXPEX- GOSBVL #1954E =D1MSTK GOSBVL #0BD31 =REVPOP ?A=0 A GOYES ARGERR A=DAT1 B LCASC 'G' ?AC B GOYES DEFAUL SVCHR R3=A GOSBVL #091FB =COLLAP D1=(5) #2F96F CHN#SV A=DAT1 B GOSUB FIB3 see FINDL CD1EX FIX2 D1=C R2=C FIX1 D1=D1+ 4 A=DAT1 B LCASC '*' ?A#C B GOYES FIX3 D1=D1+ 16 D1=D1+ 4 C=R3 DAT1=C B C=R2 D1=C GOSUB NXTRC GONC FIX2 FIX3 LCASC ' ' R0=C P= 6 C=R2 FIX3A R2=C D1=C D1=D1+ 4 C=R0 DAT1=C 12 P=P-1 GOC FIX3B C=R2 D1=C GOSUB NXTRC GONC FIX3A FIX3B D1=D1+ 16 D1=D1+ 14 P= 0 LCASC 'DNELIF' DAT1=C 12 GOTO nxtrc FIX4 R2=C D1=C D1=D1+ 4 A=DAT1 B LCASC '*' ?A=C B GOYES nxtrc LCASC '?' ?A=C B GOYES nxtrc LCASC 'o' ?A#C B GOYES wipead C=R3 DAT1=C B GOTO BRANCH wipead C=R0 DAT1=C 12 BRANCH D1=D1+ 16 A=DAT1 8 read 4 chrs (for GOSB) LCASC 'LER' P= 5 ?A=C WP GOYES MODBR P= 0 LCASC 'VOG' P= 3 ?A=C WP GOYES MODGO P= 0 LCASC 'ELIF' P= 7 ?A=C WP GOYES MODFIL nxtrc C=R2 P= 0 D1=C GOSUB NXTRC GONC FIX4 nxtstm GOVLNG #08A48 =NXTSTM MODGO P= 5 ?A=C WP GOYES nxtrc P= 0 LCASC 'BSOG' P= 7 ?A=C WP GOYES nxtrc MODBR P= 0 D1=D1+ 14 A=DAT1 10 C=R3 DAT1=C B D1=D1+ 2 DAT1=A 10 GOTO nxtrc MODFIL A=DAT1 12 C=R0 DAT1=C 12 D1=D1- 16 DAT1=A 12 GOTO nxtstm LIST ON