<- setiodefaul == incloadleve *to3 -> command "f77 test,y", "F77", "test,y", 0, 3 -> queryrestri "F77", "test,y" <- queryrestri "F77", "test,y", 0 == incloadleve *to4 -> loadep2 "C#F77", 6, 4 -> search "C#F77", x'04111048', 6 -> searchdir "C#F77", x'05100000', x'0000684F' 26703 <- searchdir 8, *=C#FORTRAN[3] <- search "", "C#FORTRAN", 2, 4, *-1 <- loadep2 "C#FORTRAN", 2, 0, x'04B30EE8', x'04BDA078', x'04B32744', 0, *Res=1 ssfn= -> enter *ll=4 == setcomreg36 x'04112000', * ENTER -> connect "{$121}ERCS07:FBUGS.TEST", x'00000200' 512, 0, 4, x'04112468' <- connect x'07D00000', 3, 32, x'00000034' 52, 0 -> idefine x'FFFFFFAF' -81, "{$121}ERCS07:FBUGS.TEST" <- idefine x'04C3ABC4', 0, *TOPFD=15 -> emas3lastpa <- emas3lastpa TEST -> idefine x'00000057' 87, ".OUT" -> allocatefd <- allocatefd x'04C3ACD4', 0 <- idefine x'04C3ACD4', 0, *TOPFD=15 -> open x'04C3ABC4', 1, *ll=4 LINK: 00000004 4 DSNUM: FFFFFFAF -81 STATUS: 00000003 3 ACCESS ROUTE: 00000008 8 VALID ACTION: 0000006D 109 CUR STATE: 00000001 1 MODE OF USE: 00000001 1 MODE: 0000000B 11 RECTYPE: 00000004 4 MINREC: 00000001 1 MAXREC: 00000400 MAXSIZE: 00100000 CONAD: 07D00000 CURREC: 07D00020 CUR: 07D00020 END: 07D00034 DATASTART: 07D00020 IDEN: {$121}ERCS07:FBUGS.TEST <- open *0 -> emas3setwor X00040000, -> outfile "T#WRK", x'00400000', 0, x'20000000', x'04113254' <- outfile x'05F00000', 0 <- emas3setwor X05F00000,0 -> loadep2 "ICL9CEIBMF77", 2, 0 -> search "ICL9CEIBMF77", x'04113218', 2 <- search "", "ICL9CEIBMF77", 2, 0, *-1 <- loadep2 "ICL9CEIBMF77", 2, 0, x'06300020', x'04C06D90', x'06300186', 0, *R es=1 ssfn= -> idefine x'00000052' 82, "{$12}ERCS07:T#LIST" -> allocatefd <- allocatefd x'04C3AD5C', 0 <- idefine x'04C3AD5C', 0, *TOPFD=15 -> open x'04C3AD5C', 2, *ll=4 -> outfile "{$12}ERCS07:T#LIST", x'FFFFF000' -4096, x'00300000', 20, x'04B7E 9CC' <- outfile x'06500000', 0 LINK: 00000004 4 DSNUM: 00000052 82 STATUS: 00000003 3 ACCESS ROUTE: 00000008 8 VALID ACTION: 0000007F 127 CUR STATE: 00000001 1 MODE OF USE: 00000001 1 MODE: 0000000B 11 RECTYPE: 00000002 2 RECSIZE: 00000400 MINREC: 00000001 1 MAXREC: 00000400 MAXSIZE: 00300000 CONAD: 06500000 CURREC: 06500020 CUR: 06500020 END: 06501000 CURSIZE: 00001000 DATASTART: 06500020 IDEN: {$12}ERCS07:T#LIST <- open *0 -> enter *ll=4 == setcomreg36 x'05C00000', * ENTER == incloadleve *to5 -> emas3outfil T#DICT, X00010000, X00010000,0, X06800000, -> outfile "T#DICT", x'00010000', x'00010000', 0, x'06800000' <- outfile x'06800000', 0 <- emas3outfil ,,,, X06800000,0 -> emas3outfil T#NAMES, X0000C000, X0000C000,0, X06900000, -> outfile "T#NAMES", x'0000C000', x'0000C000', 0, x'06900000' <- outfile x'06900000', 0 <- emas3outfil ,,,, X06900000,0 -> emas3outfil T#TRIADS, X00040000, X00040000,0, X06A00000, -> outfile "T#TRIADS", x'00040000', x'00040000', 0, x'06A00000' <- outfile x'06A00000', 0 <- emas3outfil ,,,, X06A00000,0 main program -> emas3signal X0000008C,2 IOCP fails - Channel 11273 not defined Monitor entered from IMP Entered from line 1682 of routine/fn/map selectinout starting at line 1561 Local variables afd =x'00000018' 24 aotheriof =x'04C3AD5C' 79932764 chan =x'00002C09' 11273 cur = invalid address 00000007 default =x'FFFFFFA6' -90 f =x'0620202020203260 0000000005C00400' far =x'0150ABC4' 22064068 flag =x'00000097' 151 ioroute =x'00000001' 1 j =x'00000001' 1 loop =x'00000000' 0 nxc =x'00002C09' 11273 pos =x'00000033' 51 reqchan =x'00002C09' 11273 special1 =x'FFFFFF9E' -98 special2 =x'00000000' 0 wk ="À À" Entered from line 1370 of routine/fn/map iocp starting at line 961 Local variables -> extend *chan=11269,size=00001000 -> changefiles "{$93}ERCS07:FBUGS.TESTLL", x'00010000' <- changefiles 0 <- extend *flag=0 arad =x'06300020' 103809056 c =x'06321A49' 103946825 ch =x'05C003B8' 96469944 chad =x'04C082E8' 79725288 col =x'05C003B8' 96469944 cur =x'0000009F' 159 domonitor =x'00000000' 0 end =x'05C003C8' 96469960 ep =x'00000008' 8 flag =x'07E00CE8' 132123880 fourdotscou=x'02400457' 37749847 from =x'05C00438' 96470072 from0 =x'00000000' 0 i =x'683000E2' 1747976418 inf =x'4210A05858F0A044 5AF060004210F000' j =x'00000009' 9 k =x'00000318' 792 len =x'0AC003A0' 180356000 len0 =x'00600914' 6293780 max =x'00000001' 1 next =x'05C00438' 96470072 outf = invalid address 00000001 parm =x'00002C09' 11273 pos =x'06329308' 103977736 res =x'FFFFFFFF' -1 saveoutdsnu=x'04C06D90' 79719824 start =x'0000000A' 10 to =x'05C00408' 96470024 top =x'00000901' 2305 Entered from routine/fn/map sourceline starting at line 155 No local variables Entered from routine/fn/map readnext starting at line 572 No local variables Entered from routine/fn/map readline starting at line 762 No local variables Entered from routine/fn/map analstart starting at line 4617 No local variables Entered from routine/fn/map fort77 starting at line 524 No local variables Entered from routine/fn/map icl9ceibmf7 starting at line 72 No local variables == stop *load level=5 comreg(36)=X05C00000 set by ENTER == setcomreg36 x'04112000', * reset to ENTER <- enter *ll=4 -> closei x'00000052' 82, 1, *ll=4 <- closei *0 -> closei x'00000057' 87, 1, *ll=4 <- closei *0 -> closei x'FFFFFFAF' -81, 1, *ll=4 <- closei *0 FORTRAN fails - during analysis phase == setcomreg36 x'0410A000', * reset to BCI <- enter *ll=4 <- command x'00000064' 100 -> setiodefaul 1, x'FFFFFFA5' -91