Код:
.COPY TT: T.PAS
Files copied:
^PROGRAM TEST(INPUT, OUTPUT);
BEGIN
WRITELN('Hello, world!');
END.
^ZTT: to DK:T.PAS
.TYP T.PAS
PROGRAM TEST(INPUT, OUTPUT);
BEGIN
WRITELN('Hello, world!');
END.
.dir t.*
18-May-2020
T .PAS 1 18-May-2020
1 Files, 1 Blocks
52134 Free blocks
.PASCAL T/LIST
.link t,pas/lib/map:t
.dir t.*
18-May-2020
T .PAS 1 18-May-2020 T .SAV 18 18-May-2020
T .OBJ 3 18-May-2020 T .LST 1 18-May-2020
T .MAP 5 18-May-2020
5 Files, 28 Blocks
51764 Free blocks
.typ t.lst
Pascal-2 RT-11 XM V2.1D 18-Jan-89 6:45 PM Site #1-1955 Page 1-1
University of Santa Clara #AG07619 Academic Computer Center Kenna 101 Santa
Clara CA 95053 USA
T/LIST
1 PROGRAM TEST(INPUT, OUTPUT);
2 BEGIN
3 WRITELN('Hello, world!');
4 END.
*** No lines with errors detected ***
.typ t.map
RT-11 LINK V05.45 Load Map Monday 18-May-2020 18:49 Page 1
T .SAV Title: T Ident: V2.1
Section Addr Size Global Value Global Value Global Value
. ABS. 000000 001000 = 256. words (RW,I,GBL,ABS,OVR)
P$VER 000025
P$CODE 001000 004212 = 1093. words (RO,I,LCL,REL,CON)
P$BGN 001000 P$PMA 001056 P$DGTE 002024
P$DGDA 002116 P$GETL 002436 P$ADDR 003120
P$UERR 003450 P$ERRO 003720
GLOBAL 005212 000006 = 3. words (RW,D,GBL,REL,OVR)
P$DYNL 005220 000004 = 2. words (RW,D,GBL,REL,OVR)
CONSTS 005224 002722 = 745. words (RO,D,LCL,REL,CON)
TABLES 010146 000050 = 20. words (RO,D,GBL,REL,OVR)
DIAGS 010216 000016 = 7. words (RO,D,LCL,REL,CON)
P$RTS 010234 000620 = 200. words (RW,I,GBL,REL,OVR)
P$RSR6 010234 P$RSR5 010236 P$IN 010240
P$OUT 010242 P$IBLK 010244 P$OBLK 010246
P$CHN0 010252 P$ICHN 010312 P$OCHN 010314
P$CHNX 010316 P$PMDL 010316 P$PMPC 010320
P$UPC 010322 P$SVER 010324 P$KORE 010326
P$FREE 010330 P$MTOP 010336 P$AREA 010376
P$STAC 011052
P$LCON 011054 000000 = 0. words (RO,D,LCL,REL,CON)
P$LIBR 011054 010450 = 2196. words (RW,I,LCL,REL,CON)
P$59 011054 P$33 011374 P$63 011662
P$END 011662 P$EXST 011732 P$DXIT 011740
P$68 012016 P$CLOS 012022 P$57 012316
P$CLSR 012322 P$PUTC 012404 P$FLUS 012456
P$20 012474 P$22 012520 P$36 012614
P$38 012624 P$32 012704 P$34 012736
P$WSTR 012742 P$SETI 013056 P$SEAR 013114
P$SETO 013154 P$61 013202 P$GETC 013236
P$60 013504 P$PUT 013510 P$NXTB 013710
P$CHKE 014246 P$62 014276 P$BREA 014302
P$READ 014364 P$GCHN 015234 P$GETB 015352
P$GETH 015550 P$NFSC 015716 P$BLDN 015774
P$24 017270 P$26 017314 P$TRPP 017570
EXITST 017660 P$CLRS 017664 P$LOWS 017712
P$HIST 017736 P$76 017770 P$74 020006
P$127 020024 P$75 020074 P$75L 020104
P$77 020130 P$70 020146 P$NEW 020152
P$INEW 020234 P$DISP 020574 P$72 020622
P$XDIS 020626 P$113 021222
P$GROW 021524 000000 = 0. words (RW,D,GBL,REL,OVR)
P$GRWH 021524 000000 = 0. words (RW,D,GBL,REL,OVR)
DBGLNK 021524 000004 = 2. words (RW,I,GBL,REL,OVR)
SIMLNK 021530 000002 = 1. words (RW,I,GBL,REL,OVR)
P$F8 021532
Transfer address = 001000, High limit = 021530 = 4524. words
.PASCAL T/mac
.dir t.*
18-May-2020
T .PAS 1 18-May-2020 T .SAV 18 18-May-2020
T .OBJ 3 18-May-2020 T .LST 1 18-May-2020
T .MAP 5 18-May-2020 T .MAC 3 18-May-2020
6 Files, 31 Blocks
51761 Free blocks
.typ t.mac
ac0=r0
ac1=r1
ac2=r2
ac3=r3
ac4=r4
ac5=r5
.title T
P$VER==21.
.psect global,d,ovr,gbl
$G$: .=.+6
.psect tables,ro,d,ovr,gbl
$bits: .word 1001
.word 4004
.word 20020
.word 100100
.word 1
.word 2
.word 4
.word 10
.word 20
.word 40
.word 100
.word 200
.word 400
.word 1000
.word 2000
.word 4000
.word 10000
.word 20000
.word 40000
.word 100000
.psect consts,ro,d,con,lcl
$const:
.word 62510
.word 66154
.word 26157
.word 73440
.word 71157
.word 62154
.word 24441
.psect p$code,ro,i,lcl
$code:
p$bgn::
jsr pc,P$59
.globl P$59
mov #$G$+2,-(sp)
mov #$G$+0,-(sp)
jsr pc,P$33
.globl P$33
mov #$const+0,-(sp)
mov #15,-(sp)
mov @sp,-(sp)
jsr pc,P$32
.globl P$32
jsr pc,P$36
.globl P$36
jsr pc,P$63
.globl P$63
.psect diags,ro,d,con,lcl
.psect diags
$stdg: .word $endg-$stdg
.word $code
.word $last-$code
.word 6017
.word 140721
.psect p$code
$last=.
.word 0,0,0,$stdg
.psect diags
.word 153540
$endg: .word $stdg-$endg
.psect p$dynl,d,ovr,gbl
$dynl: .word 0
.globl p$pma
.word p$pma
.end p$bgn
.