Add tests, fixes for tests, reinstate and type-convert stuff marked "bitrot"

[ccom.git] / test / ucb / ctm012681x.ir

diff --git a/test/ucb/ctm012681x.ir b/test/ucb/ctm012681x.ir
new file mode 100644 (file)
index 0000000..3f14526
--- /dev/null
+++ b/test/ucb/ctm012681x.ir
@@ -0,0 +1,850 @@
+CSPACE msgCount 2
+CSPACE rcvmode 2
+CSPACE sawcom 2
+CSPACE Tflag 2
+CSPACE senderr 2
+CSPACE edit 2
+CSPACE readonly 2
+CSPACE noreset 2
+CSPACE sourcing 2
+CSPACE loading 2
+CSPACE cond 2
+CSPACE itf 2
+CSPACE otf 2
+CSPACE image 2
+CSPACE input 2
+CSPACE mailname 256
+CSPACE prevfile 256
+CSPACE homedir 2
+CSPACE myname 2
+CSPACE mailsize 4
+CSPACE lexnumber 2
+CSPACE lexstring 1024
+CSPACE regretp 2
+CSPACE regretstack 4
+CSPACE string_stack 4
+CSPACE numberstack 4
+CSPACE dot 2
+CSPACE message 2
+CSPACE variables 118
+CSPACE groups 118
+CSPACE ignore 240
+CSPACE saveignore 240
+CSPACE ignoreall 240
+CSPACE altnames 2
+CSPACE debug 2
+CSPACE screenwidth 2
+CSPACE screenheight 2
+CSPACE realscreenheight 2
+CSPACE srbuf 20
+CSPACE stringdope 150
+SYMDEF 
+BSS
+NLABEL c_erase
+SSPACE 2
+SYMDEF 
+BSS
+NLABEL c_kill
+SSPACE 2
+SYMDEF 
+BSS
+NLABEL rewrite
+SSPACE 20
+SYMDEF 
+BSS
+NLABEL intjmp
+SSPACE 20
+SYMDEF grabh
+PROG
+RLABEL grabh
+SAVE
+ANAME hp 4
+ANAME gflags 6
+SETREG 5
+BRANCH 1
+LABEL 2
+ANAME ttybuf -14
+ANAME saveint -16
+ANAME savetstp -18
+ANAME savettou -20
+ANAME savettin -22
+ANAME errs -24
+NAME AUTO PTR,FUNC,INT -18
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 18
+CON 144 0
+COMMA INT
+CALL PTR,FUNC,INT
+ASSIGN PTR,FUNC,INT
+EXPR 72
+NAME AUTO PTR,FUNC,INT -20
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 22
+CON 144 0
+COMMA INT
+CALL PTR,FUNC,INT
+ASSIGN PTR,FUNC,INT
+EXPR 73
+NAME AUTO PTR,FUNC,INT -22
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 21
+CON 144 0
+COMMA INT
+CALL PTR,FUNC,INT
+ASSIGN PTR,FUNC,INT
+EXPR 74
+NAME AUTO INT -24
+CON 0 0
+ASSIGN INT
+EXPR 75
+NAME EXTERN FUNC,INT ioctl
+NAME EXTERN CHAR _iob
+AMPER PTR,CHAR
+CON 0 0
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+CON 0 10
+PLUS PTR,CHAR
+STAR CHAR
+LCON LONG 1073741824L
+CON 7 6
+ITOL LONG
+CON 0 16
+ITOL LONG
+LSHIFT LONG
+OR LONG
+CON 0 29696
+ITOL LONG
+OR LONG
+CON 0 8
+ITOL LONG
+OR LONG
+COMMA INT
+NAME AUTO STRUCT -14
+AMPER PTR,STRUCT
+COMMA INT
+CALL INT
+CON 0 0
+LESS INT
+CBRANCH 4 0 79
+NAME EXTERN FUNC,INT perror
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 4721
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+CALL INT
+EXPR 80
+CON 0 -1
+RFORCE INT
+EXPR 81
+BRANCH 3
+LABEL 4
+NAME EXTERN INT c_erase
+NAME AUTO CHAR -14
+AMPER PTR,CHAR
+CON 0 2
+PLUS PTR,CHAR
+STAR CHAR
+ASSIGN INT
+EXPR 83
+NAME EXTERN INT c_kill
+NAME AUTO CHAR -14
+AMPER PTR,CHAR
+CON 0 3
+PLUS PTR,CHAR
+STAR CHAR
+ASSIGN INT
+EXPR 84
+NAME EXTERN FUNC,INT setjmp
+NAME EXTERN INT intjmp
+AMPER PTR,INT
+CALL INT
+CBRANCH 5 1 94
+NAME AUTO PTR,FUNC,INT -16
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 2
+NAME EXTERN FUNC,VOID ttyint
+AMPER PTR,FUNC,VOID
+COMMA INT
+CALL PTR,FUNC,INT
+ASSIGN PTR,FUNC,INT
+EXPR 95
+NAME AUTO INT 6
+CON 0 1
+AND INT
+CBRANCH 6 0 97
+NAME AUTO PTR,PTR,STRUCT 4
+CON 0 0
+PLUS PTR,PTR,STRUCT
+STAR PTR,STRUCT
+NAME EXTERN FUNC,PTR,STRUCT extract
+NAME EXTERN FUNC,PTR,CHAR readtty
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 4726
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+NAME EXTERN FUNC,PTR,CHAR detract
+NAME AUTO PTR,PTR,STRUCT 4
+CON 0 0
+PLUS PTR,PTR,STRUCT
+STAR PTR,STRUCT
+CON 0 0
+COMMA INT
+CALL PTR,CHAR
+COMMA INT
+CALL PTR,CHAR
+CON 0 1
+COMMA INT
+CALL PTR,STRUCT
+ASSIGN PTR,STRUCT
+EXPR 103
+LABEL 6
+NAME AUTO INT 6
+CON 0 2
+AND INT
+CBRANCH 7 0 105
+NAME AUTO PTR,PTR,CHAR 4
+CON 0 2
+PLUS PTR,PTR,CHAR
+STAR PTR,CHAR
+NAME EXTERN FUNC,PTR,CHAR readtty
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 4731
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+NAME AUTO PTR,PTR,CHAR 4
+CON 0 2
+PLUS PTR,PTR,CHAR
+STAR PTR,CHAR
+COMMA INT
+CALL PTR,CHAR
+ASSIGN PTR,CHAR
+EXPR 110
+LABEL 7
+NAME AUTO INT 6
+CON 0 4
+AND INT
+CBRANCH 8 0 112
+NAME AUTO PTR,PTR,STRUCT 4
+CON 0 4
+PLUS PTR,PTR,STRUCT
+STAR PTR,STRUCT
+NAME EXTERN FUNC,PTR,STRUCT extract
+NAME EXTERN FUNC,PTR,CHAR readtty
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 4741
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+NAME EXTERN FUNC,PTR,CHAR detract
+NAME AUTO PTR,PTR,STRUCT 4
+CON 0 4
+PLUS PTR,PTR,STRUCT
+STAR PTR,STRUCT
+CON 0 0
+COMMA INT
+CALL PTR,CHAR
+COMMA INT
+CALL PTR,CHAR
+CON 0 4
+COMMA INT
+CALL PTR,STRUCT
+ASSIGN PTR,STRUCT
+EXPR 118
+LABEL 8
+NAME AUTO INT 6
+CON 0 8
+AND INT
+CBRANCH 9 0 120
+NAME AUTO PTR,PTR,STRUCT 4
+CON 0 6
+PLUS PTR,PTR,STRUCT
+STAR PTR,STRUCT
+NAME EXTERN FUNC,PTR,STRUCT extract
+NAME EXTERN FUNC,PTR,CHAR readtty
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 4746
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+NAME EXTERN FUNC,PTR,CHAR detract
+NAME AUTO PTR,PTR,STRUCT 4
+CON 0 6
+PLUS PTR,PTR,STRUCT
+STAR PTR,STRUCT
+CON 0 0
+COMMA INT
+CALL PTR,CHAR
+COMMA INT
+CALL PTR,CHAR
+CON 0 8
+COMMA INT
+CALL PTR,STRUCT
+ASSIGN PTR,STRUCT
+EXPR 126
+LABEL 9
+LABEL 5
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 18
+NAME AUTO PTR,FUNC,INT -18
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 129
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 22
+NAME AUTO PTR,FUNC,INT -20
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 130
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 21
+NAME AUTO PTR,FUNC,INT -22
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 131
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 2
+NAME AUTO PTR,FUNC,INT -16
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 139
+NAME AUTO INT -24
+RFORCE INT
+EXPR 140
+BRANCH 3
+LABEL 3
+RETRN
+LABEL 1
+SETSTK 16
+BRANCH 2
+SYMDEF readtty
+PROG
+RLABEL readtty
+SAVE
+ANAME pr 4
+ANAME src 6
+SETREG 5
+BRANCH 10
+LABEL 11
+ANAME ch -10
+ANAME canonb -1034
+ANAME c -1036
+RNAME cp 4
+RNAME cp2 3
+SETREG 3
+NAME EXTERN FUNC,INT fputs
+NAME AUTO PTR,CHAR 4
+NAME EXTERN STRUCT _iob
+AMPER PTR,STRUCT
+CON 0 1
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,STRUCT
+STAR STRUCT
+AMPER PTR,STRUCT
+COMMA INT
+CALL INT
+EXPR 159
+NAME EXTERN FUNC,INT fflush
+NAME EXTERN STRUCT _iob
+AMPER PTR,STRUCT
+CON 0 1
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,STRUCT
+STAR STRUCT
+AMPER PTR,STRUCT
+CALL INT
+EXPR 160
+NAME AUTO PTR,CHAR 6
+CON 17 0
+NEQUAL INT
+NAME EXTERN FUNC,INT strlen
+NAME AUTO PTR,CHAR 6
+CALL INT
+CON 0 1022
+GREAT INT
+LOGAND INT
+CBRANCH 13 0 161
+NAME EXTERN FUNC,INT printf
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 4752
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+CALL INT
+EXPR 162
+NAME AUTO PTR,CHAR 6
+RFORCE PTR,CHAR
+EXPR 163
+BRANCH 12
+LABEL 13
+NAME REG PTR,CHAR 4
+NAME AUTO PTR,CHAR 6
+CON 17 0
+EQUAL INT
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 959
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+NAME AUTO PTR,CHAR 6
+COLON PTR,CHAR
+QUEST PTR,CHAR
+ASSIGN PTR,CHAR
+EXPR 173
+LABEL 14
+NAME AUTO INT -1036
+NAME REG PTR,CHAR 4
+CON 0 1
+CON 0 1
+ITOP PTR,CHAR
+INCAFT PTR,CHAR
+STAR CHAR
+ASSIGN INT
+CBRANCH 15 0 174
+NAME AUTO INT -1036
+NAME EXTERN INT c_erase
+EQUAL INT
+NAME AUTO INT -1036
+NAME EXTERN INT c_kill
+EQUAL INT
+LOGOR INT
+CBRANCH 16 0 175
+NAME AUTO CHAR -10
+CON 0 92
+ASSIGN INT
+EXPR 176
+NAME EXTERN FUNC,INT ioctl
+CON 0 0
+LCON LONG 2147483648L
+CON 7 1
+ITOL LONG
+CON 0 16
+ITOL LONG
+LSHIFT LONG
+OR LONG
+CON 0 29696
+ITOL LONG
+OR LONG
+CON 0 114
+ITOL LONG
+OR LONG
+COMMA INT
+NAME AUTO CHAR -10
+AMPER PTR,CHAR
+COMMA INT
+CALL INT
+EXPR 177
+LABEL 16
+NAME AUTO CHAR -10
+NAME AUTO INT -1036
+ASSIGN INT
+EXPR 179
+NAME EXTERN FUNC,INT ioctl
+CON 0 0
+LCON LONG 2147483648L
+CON 7 1
+ITOL LONG
+CON 0 16
+ITOL LONG
+LSHIFT LONG
+OR LONG
+CON 0 29696
+ITOL LONG
+OR LONG
+CON 0 114
+ITOL LONG
+OR LONG
+COMMA INT
+NAME AUTO CHAR -10
+AMPER PTR,CHAR
+COMMA INT
+CALL INT
+EXPR 180
+BRANCH 14
+LABEL 15
+NAME REG PTR,CHAR 4
+NAME AUTO CHAR -1034
+AMPER PTR,CHAR
+ASSIGN PTR,CHAR
+EXPR 182
+NAME REG PTR,CHAR 4
+STAR CHAR
+CON 0 0
+ASSIGN INT
+EXPR 183
+NAME REG PTR,CHAR 3
+NAME REG PTR,CHAR 4
+ASSIGN PTR,CHAR
+EXPR 185
+LABEL 17
+NAME REG PTR,CHAR 3
+NAME AUTO CHAR -1034
+AMPER PTR,CHAR
+CON 0 1024
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+LESSP INT
+CBRANCH 18 0 186
+NAME REG PTR,CHAR 3
+CON 0 1
+CON 0 1
+ITOP PTR,CHAR
+INCAFT PTR,CHAR
+STAR CHAR
+CON 0 0
+ASSIGN INT
+EXPR 187
+BRANCH 17
+LABEL 18
+NAME REG PTR,CHAR 3
+NAME REG PTR,CHAR 4
+ASSIGN PTR,CHAR
+EXPR 188
+NAME EXTERN FUNC,INT setjmp
+NAME EXTERN INT rewrite
+AMPER PTR,INT
+CALL INT
+CBRANCH 19 1 190
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 18
+NAME EXTERN FUNC,VOID ttystop
+AMPER PTR,FUNC,VOID
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 191
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 22
+NAME EXTERN FUNC,VOID ttystop
+AMPER PTR,FUNC,VOID
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 192
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 21
+NAME EXTERN FUNC,VOID ttystop
+AMPER PTR,FUNC,VOID
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 193
+NAME EXTERN INT _iob
+AMPER PTR,INT
+CON 0 0
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,INT
+STAR INT
+AMPER PTR,INT
+CON 0 8
+PLUS PTR,INT
+STAR INT
+CON 0 -49
+ASSAND INT
+EXPR 194
+LABEL 20
+NAME REG PTR,CHAR 3
+NAME AUTO CHAR -1034
+AMPER PTR,CHAR
+CON 0 1024
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+LESSP INT
+CBRANCH 21 0 195
+NAME AUTO INT -1036
+NAME EXTERN INT _iob
+AMPER PTR,INT
+CON 0 0
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,INT
+STAR INT
+AMPER PTR,INT
+CON 0 0
+PLUS PTR,INT
+STAR INT
+CON 0 1
+DECBEF INT
+CON 0 0
+GREATEQ INT
+NAME EXTERN PTR,CHAR _iob
+AMPER PTR,PTR,CHAR
+CON 0 0
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,PTR,CHAR
+STAR PTR,CHAR
+AMPER PTR,PTR,CHAR
+CON 0 2
+PLUS PTR,PTR,CHAR
+STAR PTR,CHAR
+CON 0 1
+CON 0 1
+ITOP PTR,CHAR
+INCAFT PTR,UNCHAR
+STAR UNCHAR
+CON 0 0
+PLUS INT
+NAME EXTERN FUNC,INT _filbuf
+NAME EXTERN STRUCT _iob
+AMPER PTR,STRUCT
+CON 0 0
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,STRUCT
+STAR STRUCT
+AMPER PTR,STRUCT
+CALL INT
+COLON INT
+QUEST INT
+ASSIGN INT
+EXPR 196
+NAME AUTO INT -1036
+CON 0 -1
+EQUAL INT
+NAME AUTO INT -1036
+CON 0 10
+EQUAL INT
+LOGOR INT
+CBRANCH 21 1 198
+NAME REG PTR,CHAR 3
+CON 0 1
+CON 0 1
+ITOP PTR,CHAR
+INCAFT PTR,CHAR
+STAR CHAR
+NAME AUTO INT -1036
+ASSIGN INT
+EXPR 199
+BRANCH 20
+LABEL 21
+NAME REG PTR,CHAR 3
+STAR CHAR
+CON 0 0
+ASSIGN INT
+EXPR 201
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 18
+CON 144 0
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 202
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 22
+CON 144 0
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 203
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+CON 0 21
+CON 144 0
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 204
+NAME AUTO INT -1036
+CON 0 -1
+EQUAL INT
+NAME EXTERN INT _iob
+AMPER PTR,INT
+CON 0 0
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,INT
+STAR INT
+AMPER PTR,INT
+CON 0 8
+PLUS PTR,INT
+STAR INT
+CON 0 32
+AND INT
+CON 0 0
+NEQUAL INT
+LOGAND INT
+CBRANCH 22 0 205
+LABEL 19
+NAME REG PTR,CHAR 4
+NAME EXTERN FUNC,INT strlen
+NAME AUTO CHAR -1034
+AMPER PTR,CHAR
+CALL INT
+CON 0 0
+GREAT INT
+NAME AUTO CHAR -1034
+AMPER PTR,CHAR
+CON 17 0
+COLON PTR,CHAR
+QUEST PTR,CHAR
+ASSIGN PTR,CHAR
+EXPR 207
+NAME EXTERN INT _iob
+AMPER PTR,INT
+CON 0 0
+CON 0 12
+ITOP PTR,STRUCT
+PLUS PTR,INT
+STAR INT
+AMPER PTR,INT
+CON 0 8
+PLUS PTR,INT
+STAR INT
+CON 0 -49
+ASSAND INT
+EXPR 208
+NAME EXTERN FUNC,PTR,CHAR readtty
+NAME AUTO PTR,CHAR 4
+NAME REG PTR,CHAR 4
+COMMA INT
+CALL PTR,CHAR
+RFORCE PTR,CHAR
+EXPR 209
+BRANCH 12
+LABEL 22
+NAME EXTERN FUNC,INT strcmp
+NAME EXTERN CHAR xstr
+AMPER PTR,CHAR
+CON 0 959
+CON 0 1
+ITOP PTR,CHAR
+PLUS PTR,CHAR
+STAR CHAR
+AMPER PTR,CHAR
+NAME AUTO CHAR -1034
+AMPER PTR,CHAR
+COMMA INT
+CALL INT
+CON 0 0
+EQUAL INT
+CBRANCH 23 0 244
+CON 17 0
+RFORCE PTR,CHAR
+EXPR 244
+BRANCH 12
+LABEL 23
+NAME EXTERN FUNC,PTR,CHAR savestr
+NAME AUTO CHAR -1034
+AMPER PTR,CHAR
+CALL PTR,CHAR
+RFORCE PTR,CHAR
+EXPR 245
+BRANCH 12
+SETREG 5
+LABEL 12
+RETRN
+LABEL 10
+SETSTK 1028
+BRANCH 11
+SYMDEF ttystop
+PROG
+RLABEL ttystop
+SAVE
+ANAME s 4
+SETREG 5
+BRANCH 24
+LABEL 25
+NAME AUTO PTR,FUNC,INT -10
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+NAME AUTO INT 4
+CON 144 0
+COMMA INT
+CALL PTR,FUNC,INT
+ASSIGN PTR,FUNC,INT
+EXPR 254
+ANAME old_action -10
+NAME EXTERN FUNC,LONG sigsetmask
+NAME EXTERN FUNC,LONG sigblock
+LCON LONG 0L
+CALL LONG
+LCON LONG 1L
+NAME AUTO INT 4
+CON 0 1
+MINUS INT
+ITOL LONG
+LSHIFT LONG
+COMPL LONG
+AND LONG
+CALL LONG
+EXPR 256
+NAME EXTERN FUNC,INT kill
+CON 0 0
+NAME AUTO INT 4
+COMMA INT
+CALL INT
+EXPR 257
+NAME EXTERN FUNC,LONG sigblock
+LCON LONG 1L
+NAME AUTO INT 4
+CON 0 1
+MINUS INT
+ITOL LONG
+LSHIFT LONG
+CALL LONG
+EXPR 258
+NAME EXTERN FUNC,PTR,FUNC,INT signal
+NAME AUTO INT 4
+NAME AUTO PTR,FUNC,INT -10
+COMMA INT
+CALL PTR,FUNC,INT
+EXPR 259
+NAME EXTERN FUNC,INT longjmp
+NAME EXTERN INT rewrite
+AMPER PTR,INT
+CON 0 1
+COMMA INT
+CALL INT
+EXPR 260
+LABEL 26
+RETRN
+LABEL 24
+SETSTK 2
+BRANCH 25
+SYMDEF ttyint
+PROG
+RLABEL ttyint
+SAVE
+ANAME s 4
+SETREG 5
+BRANCH 27
+LABEL 28
+NAME EXTERN FUNC,INT longjmp
+NAME EXTERN INT intjmp
+AMPER PTR,INT
+CON 0 1
+COMMA INT
+CALL INT
+EXPR 267
+LABEL 29
+RETRN
+LABEL 27
+SETSTK 0
+BRANCH 28
+EOFC
+*EOFC