home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
rt11pascal.zip
/
rtkerm.com
< prev
next >
Wrap
Text File
|
1984-05-22
|
934b
|
82 lines
R PASCAL
TEMP.TMP=EDLOG,OPT,KERMIT
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KERMIT=TEMP.TMP
!
R PASCAL
TEMP.TMP=GLOBAL,OPT,KPROC
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KPROC=TEMP.TMP
!
R PASCAL
TEMP.TMP=GLOBAL,OPT,KTIME
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KTIME=TEMP.TMP
!
R PASCAL
TEMP.TMP=GLOBAL,OPT,KINIT
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KINIT=TEMP.TMP
!
R PASCAL
TEMP.TMP=GLOBAL,KEXT,OPT,KSEND
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KSEND=TEMP.TMP
!
R PASCAL
TEMP.TMP=OPT,KLINE
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KLINE=TEMP.TMP
!
R PASCAL
TEMP.TMP=GLOBAL,KEXT,OPT,KRECV
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KRECV=TEMP.TMP
!
R PASCAL
TEMP.TMP=GLOBAL,OPT,KPARSE
R IMP
TEMP.TMP=TEMP.TMP
R MACRO
KPARSE=TEMP.TMP
!
! LINK
!
R LINK
KERMIT,KERMIT=KERMIT,KPROC,PASCAL/T//
KLINE
KTIME
KINIT/O:1
KSEND/O:1
KRECV/O:1
KPARSE/O:1
//
$START
!
! diddle USR address
!
@USR