program bug(output,f); var f:text; i :integer; begin rewrite(f,'XX'); writeln(output, 'XX opened'); for i := 1 to 5 do writeln(f, i); close(f); writeln(output, 'XX closed'); append(f,'XX'); writeln(output, 'XX opened (append)'); for i := 6 to 10 do writeln(f, i); close(f); writeln(output, 'XX closed'); reset(f, 'XX'); writeln(output, 'XX opened (read) - contents are'); while not eof(f) do begin readln(f,i); writeln(output, i) end end. B_ERCC14:pascal pbugs,pbugy,pbugl 21 Statements compiled B_ERCC14:#note 7 <- command 0 -> setiodefaul 0, x'FFFFFFA6' -90 <- setiodefaul -> setiodefaul 1, x'FFFFFFA5' -91 <- setiodefaul == setcomreg36 x'04112A48', * JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'041187A8', * JSexpression == setcomreg36 x'041158F8', * reset to JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'0410A000', * reset to BCI == setcomreg36 x'041127E0', * JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'04118540', * JSexpression == setcomreg36 x'04115690', * reset to JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'0410A000', * reset to BCI B_ERCC14:run pbugy == history "run pbugy", "NOTE", "7", 0 == setcomreg36 x'04110088', * JSman == setcomreg36 x'0410A000', * reset to BCI -> command "run pbugy", "RUN", "PBUGY", 1, 1 -> queryrestri "RUN", "PBUGY" <- queryrestri "RUN", "PBUGY", 0 -> sclear x'FFFFFF38' -200 <- sclear 0 == incloadleve *to3 -> loadep2 "C#RUN", 6, 3 -> search "C#RUN", x'041102F0', 6 <- search "", "C#RUN", 2, 3, *-1 <- loadep2 "C#RUN", 2, 0, x'04B6FC20', x'04BDD508', x'04B7F620', 0, *Res=1 ssf n= -> enter *ll=3 == setcomreg36 x'04111000', * ENTER == runinner *ll=3 -> connect "ERCC14:PBUGY", 1, 0, 0, x'0410FDC4' <- connect x'07400000', 1, 32, x'000009DD' 2525, 0 == incloadleve *to4 -> loadfile "ERCC14:PBUGY", 4 -> connect "ERCC14:PBUGY", 1, 0, 4, x'06455243' <- connect x'07400000', 1, 32, x'000009DD' 2525, 0 -> outfile "T#UGLA", x'00010000', x'00C00000', 4, 0 <- outfile x'07B00000', 0 <- loadfile 0 -> enter *ll=4 == setcomreg36 x'06400000', * ENTER == incloadleve *to5 -> emas3claimc <- emas3claimc X00002C09 -> idefine x'00002C09' 11273, ".OUT" -> allocatefd <- allocatefd x'04C3AC4C', 0 <- idefine x'04C3AC4C', 0, *TOPFD=8 -> outfile "T#PHP012", x'00020000', x'00300000', x'20000000', 0 <- outfile x'08700000', 0 -> emas3claimc <- emas3claimc X00002C08 -> idefine x'00002C08' 11272, "XX" -> allocatefd <- allocatefd x'04C3ACD4', 0 <- idefine x'04C3ACD4', 0, *TOPFD=8 -> open x'04C3ACD4', 2, *ll=5 -> outfile "ERCC14:XX", x'FFFFF000' -4096, x'00300000', 20, x'04C380DC' <- outfile x'08A00000', 0 LINK: 00000005 5 DSNUM: 00002C08 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: 08A00000 CURREC: 08A00020 CUR: 08A00020 END: 08A01000 CURSIZE: 00001000 DATASTART: 08A00020 IDEN: ERCC14:XX <- open *0 XX opened -> closei x'00002C08' 11272, 0, *ll=5 -> setconlevel "ERCC14:XX", 0 <- setconlevel 0, *connected, type=3 -> changeacces "ERCC14:XX", 1 <- changeacces 0 <- closei *0 -> sclear x'00002C08' 11272 == clearchan 22 <- sclear 0 XX closed -> emas3claimc <- emas3claimc X00002C07 -> idefine x'00002C07' 11271, "XX" -> allocatefd <- allocatefd x'04C3ACD4', 0 <- idefine x'04C3ACD4', 0, *TOPFD=8 XX opened (append) -> connect "{$84}ERCC14:XX", 0, 0, 2, x'08A00000' <- connect x'08A00000', 3, 32, x'0000005C' 92, 0 -> open x'04C3ACD4', 2, *ll=5 -> outfile "ERCC14:XX", x'FFFFF000' -4096, x'00300000', 20, 0 <- outfile x'08A00000', 0 LINK: 00000005 5 DSNUM: 00002C07 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: 08A00000 CURREC: 08A00020 CUR: 08A00020 END: 08A01000 CURSIZE: 00001000 DATASTART: 08A00020 IDEN: ERCC14:XX <- open *0 -> closei x'00002C07' 11271, 0, *ll=5 -> setconlevel "ERCC14:XX", 0 <- setconlevel 0, *connected, type=3 -> changeacces "ERCC14:XX", 1 <- changeacces 0 <- closei *0 -> sclear x'00002C07' 11271 == clearchan x'0000005A' 90 <- sclear 0 XX closed -> emas3claimc <- emas3claimc X00002C06 -> idefine x'00002C06' 11270, "XX" -> allocatefd <- allocatefd x'04C3ACD4', 0 <- idefine x'04C3ACD4', 0, *TOPFD=8 -> open x'04C3ACD4', 1, *ll=5 -> connect "ERCC14:XX", x'00000200' 512, 0, 4, x'0000005A' 90 <- connect x'08A00000', 3, 32, x'0000005C' 92, 0 LINK: 00000005 5 DSNUM: 00002C06 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: 00300000 CONAD: 08A00000 CURREC: 08A00020 CUR: 08A00020 END: 08A0005C CURSIZE: 00001000 DATASTART: 08A00020 IDEN: ERCC14:XX <- open *0 XX opened (read) - contents are 6 7 8 9 10 -> closei x'00002C06' 11270, 0, *ll=5 -> setconlevel "ERCC14:XX", 0 <- setconlevel 0, *connected, type=3 <- closei *0 -> sclear x'00002C06' 11270 == clearchan x'0000003D' 61 <- sclear 0 -> sdisconnect "T#PHP012" -> fstatus "T#PHP012", 18, 4 <- fstatus 0 <- sdisconnect 0, *type=0 == stop *load level=5 comreg(36)=X06400000 set by ENTER == setcomreg36 x'04111000', * reset to ENTER <- enter *ll=4 -> setconlevel "ERCC14:PBUGY", 0 <- setconlevel 0, *connected, type=1 == setcomreg36 x'0410A000', * reset to BCI <- enter *ll=3 <- command 0 -> setiodefaul 0, x'FFFFFFA6' -90 <- setiodefaul -> setiodefaul 1, x'FFFFFFA5' -91 <- setiodefaul == setcomreg36 x'04112A48', * JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'041187A8', * JSexpression == setcomreg36 x'041158F8', * reset to JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'041158F8', * JSexpression == setcomreg36 x'04112A48', * reset to JSexpression == setcomreg36 x'0410A000', * reset to BCI == setcomreg36 x'041127E0', * JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'04118540', * JSexpression == setcomreg36 x'04115690', * reset to JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'04115690', * JSexpression == setcomreg36 x'041127E0', * reset to JSexpression == setcomreg36 x'0410A000', * reset to BCI