midas assembler_. extended memory, part 5.
3a/ /bbn midas vocabulary
vco|
ist, sqoze 0, 0, 23 i
sqoze 0, 2, 35 1s
sqoze 0, 3, 35 2s
sqoze 0, 4, 35 3s
sqoze 0, 5, 35 4s
sqoze 0, 6, 35 5s
sqoze 0, 7, 35 6s
sqoze 0, 10, 35 7s
sqoze 0, 11, 35 8s
sqoze 0, 12, 35 9s
sqoze 0, 42, 42 xx
sqoze 13, 16, 16 add
sqoze 13, 16, 27 360000 /adm
sqoze 13, 16, 32 iot 4014 /adp
sqoze 13, 30, 16 and
sqoze 15, 13, 26 cal
sqoze 15, 14, 35 cbs
sqoze 15, 25, 35 cks
sqoze 15, 26, 13 cla
sqoze 15, 26, 15 clc
sqoze 15, 26, 20 clf
sqoze 15, 26, 23 cli
sqoze 15, 26, 31 clo
sqoze 15, 27, 13 cma
sqoze 16, 13, 15 dac
sqoze 16, 13, 32 dap
sqoze 16, 14, 13 dba
sqoze 16, 15, 15 dcc
sqoze 16, 16, 32 iot 14 /ddp
sqoze 16, 23, 13 dia
sqoze 16, 23, 31 dio
sqoze 16, 23, 32 dip
sqoze 16, 23, 40 div
sqoze 16, 32, 43 dpy
sqoze 16, 34, 13 dra
sqoze 16, 44, 27 dzm
sqoze 17, 17, 27 eem
sqoze 17, 35, 27 esm
sqoze 21, 15, 20 iot 127 /gcf
sqoze 21, 26, 20 iot 2026 /glf
sqoze 21, 32, 26 iot 2027 /gpl
sqoze 21, 32, 34 iot 27 /gpr
sqoze 21, 35, 32 iot 26 /gsp
sqoze 22, 26, 36 hlt
sqoze 23, 16, 42 idx
sqoze 23, 31, 22 ioh
sqoze 23, 31, 34 ior
sqoze 23, 31, 36 iot
sqoze 23, 35, 14 isb
sqoze 23, 35, 32 isp
sqoze 24, 16, 13 jda
sqoze 24, 27, 32 jmp
sqoze 24, 35, 32 jsp
sqoze 26, 13, 15 lac
sqoze 26, 13, 32 lap
sqoze 26, 13, 36 lat
sqoze 26, 13, 41 law
sqoze 26, 17, 27 lem
sqoze 26, 23, 31 lio
sqoze 26, 35, 27 lsm
sqoze 27, 26, 15 iot 401 /mlc
sqoze 27, 34, 16 iot 501 /mrd
sqoze 27, 34, 35 iot 701 /mrs
sqoze 27, 35, 17 iot 301 /mse
sqoze 27, 37, 26 mul
sqoze 27, 41, 34 iot 601 /mwr
sqoze 30, 31, 32 nop
sqoze 31, 32, 34 opr
sqoze 32, 32, 13 iot i 5 /ppa
sqoze 32, 32, 14 iot i 6 /ppb
sqoze 34, 13, 26 ral
sqoze 34, 13, 34 rar
sqoze 34, 15, 26 rcl
sqoze 34, 15, 34 rcr
sqoze 34, 23, 26 ril
sqoze 34, 23, 34 rir
sqoze 34, 32, 13 iot i 1 /rpa
sqoze 34, 32, 14 iot i 2 /rpb
sqoze 34, 34, 14 rrb
sqoze 35, 13, 16 sad
sqoze 35, 13, 26 sal
sqoze 35, 13, 34 sar
sqoze 35, 13, 35 sas
sqoze 35, 15, 26 scl
sqoze 35, 15, 34 scr
sqoze 35, 16, 14 iot 2007 /sdb
sqoze 35, 20, 36 sft
sqoze 35, 23, 26 sil
sqoze 35, 23, 34 sir
sqoze 35, 25, 32 skp
sqoze 35, 27, 13 sma
sqoze 35, 30, 23 skp 4000 /sni
sqoze 35, 32, 13 spa
sqoze 35, 32, 23 spi
sqoze 35, 32, 33 spq
sqoze 35, 36, 20 stf
sqoze 35, 37, 14 sub
sqoze 35, 44, 13 sza
sqoze 35, 44, 20 szf
sqoze 35, 44, 27 szm
sqoze 35, 44, 31 szo
sqoze 35, 44, 35 szs
sqoze 36, 43, 23 tyi
sqoze 36, 43, 31 iot i 3 /tyo
sqoze 42, 15, 36 xct
sqoze 42, 31, 34 xor
ipt, /pseudo-instruction list
sym3 0, 0, 0, 1, 23, 20, if0 /0if
sym3 0, 0, 0, 2, 23, 20, if1 /1if
sym6 15, 22, 13, 34, 13, 15, ch /character
sym6 15, 31, 30, 35, 36, 13, cns /constants
sym6 16, 17, 15, 23, 27, 13, dec /decimal
sym6 16, 17, 20, 23, 30, 17, dfn /define
sym6 16, 23, 27, 17, 30, 35, dim /dimension
sym6 17, 30, 16, 23, 34, 32, ipe /endirp
sym6 17, 33, 37, 13, 26, 35, eq /equals
sym6 17, 42, 32, 37, 30, 21, xpn /expunge
sym6 20, 26, 17, 0, 42, 31, fx /flexo
sym3 0, 0, 0, 23, 34, 32, ir /irp
sym6 23, 34, 32, 0, 0, 15, irc /irpc
sym6 26, 23, 14, 34, 13, 34, lib /library
sym6 30, 31, 23, 30, 32, 37, noi /noinput
sym6 30, 37, 26, 0, 0, 26, nrss /null
sym6 31, 15, 36, 0, 13, 26, oct /octal
sym6 31, 20, 20, 35, 17, 36, off /offset
sym6 31, 32, 35, 0, 43, 30, osn /opsyn
sym6 32, 34, 23, 0, 30, 36, pf /print
sym6 32, 34, 23, 30, 36, 42, pf0 /printx
sym6 34, 17, 13, 16, 23, 30, rdi /readin
sym6 34, 17, 26, 31, 15, 13, rel /relocatable
sym6 34, 17, 32, 17, 13, 36, rpt /repeat
sym6 35, 36, 13, 0, 34, 36, sta /start
sym6 35, 36, 31, 0, 0, 32, pstop /stop
sym6 36, 17, 34, 27, 23, 30, ter /terminate
sym6 36, 17, 42, 0, 0, 36, txt /text
sym6 40, 13, 34, 23, 13, 14, var /variables
sym6 41, 31, 34, 0, 0, 16, wd /word
vce,
/internal character table
define
entry a, b
.z.=a .zz.=b
.z.x100+.zz.x100000
termin
define
call a
entry a-rich+200, .z.
termin
ill=fx2-rich+200
ict| entry 0, 0 /space
entry 21, 2 /1, "
entry 22, 7 /2, '
entry 23, ill /3
entry 24, ill /4
entry 25, ill /5
entry 26, ill /6
entry 27, 34 /7, <
entry 30, 36 /8, >
entry 31, 76 /9, ^
repeat 6, call ich
entry 20, ill /0
entry 17, 37 //, ?
entry 63, 4 /s, |S
entry 64, ill /t
entry 65, ill /u
entry 66, 113 /v, vert. tab
entry 67, 176 /w, back arro.w
entry 70, 1 /x, .>>75<<'
entry 71, ill /y
entry 72, ill /z
call ich
entry 14, 35 /,, =
repeat 2, call ich
entry 111, 111 /horz. tab
call ich
entry fx4-rich+200, ill /_, or _.
entry 52, ill /j
entry 53, ill /k
entry 54, 112 /l, line feed
entry 55, ill /m
entry 56, 3 /n, number sign
entry 57, ill /o
entry 60, 5 /p, percent
entry 61, ill /q
entry 62, 177 /r, rubout
repeat 2, call ich
entry 15, 13 /-, +
entry 11, 75 /), ]
entry 74, ill /eom
entry 10, 73 /(, [
call ich
entry 41, 40 /a, each sign
entry 42, 100 /b, break
entry 43, 115 /c, car. ret.
entry 44, 174 /d, reverse diagonal
entry 45, 104 /e, eot
entry 46, 114 /f, form feed
entry 47, 107 /g, light on
entry 50, 125 /h, light off
entry 51, 6 /i, ampersand
call rag /l. c.
entry 16, 12 /., |x
call rag /u. c.
repeat 2, entry ill, ill
call fx6 /c. r. with line feed
ftp| /title punch table
tpt, 000400 400400 400042 /space, 1
477440
042461 451446 /2
021445 447431 /3
010414 412477 410027 /4,5
445445 431036 /6
445445 431001 /7
471405 403032 /8
445445 432046 /9
451451 436000
000000 000000 000036 /0
441441 436040 //
420410 404402 401044 /s
452452 422004 /t
436444 420036 /u
440440 436440
016420 440420 416016 /v,w
420440 420410 420440 420416
042424 410424 442116 /x,y
520520 476042 /z
462452 446442
000120 460000 000000 /, red, black
000014 414040 /j
504475
077414 422440 /k
041477 440002 /l,m
474402 402474 402402 474002 /n
474402 402474
034442 442442 434176 /o,p
422422 414014 /q
422422 576500
042474 442402 404066 /r, _.
466126 /_,
466010 410410 410410 /-
041436 /)
001401 401401 401036 /.,(
441000
022452 452474 440077 /a,b
444444 430034 /c
442442 444030 /d
444444 477034 /e
452452 454050 /f
476451 401402
114522 523455 /g
077404 404470 /h
044475 440000 /i
060460 /.
000000 000000
tpu, 000400 400400 400000 /space, "
407400 407400
000407 400010 /' ~
404404 410420 420410
042442 442442 434003 />>05<< ^
414460 500460 414403
140430 406401 406430 540010 /<
424442 501101 />
442424 410004 /^
402577 402404
000000 000000 000000
010410 410410 452434 410002 /. ?
401531 411406
022445 445445 430001 /S T
401477 401401
037440 440440 437017 /U V
420440 420417
017420 440430 440420 417061 /W X
412404 412461
001402 474402 401041 /Y Z
461451 445443 441000
024424 424424 424424 /=
000000 000000 100500 /.
500500 500040 /J
500500 477077 /K
404412 421440
077440 440440 /L
077402 404402 477077 /M N
402404 410477
036441 441441 436077 /O P
411411 406036 /Q
441461 441536 500077 /R
411431 446000
000010 410476 410410 /+
041441 477177 /] |
077441 441000 /[
074412 411412 474077 /A B
445445 432036 /C
441441 441422
077441 441436 /D
077445 445441 /E
077405 405401 /F
036441 441451 472077 /G H
404404 477041 /I
477441
000101 442424 410424 442501 /x
000000 000000
tpx,
dsp| / Argument pointers
pd1=dsp+2xndp+lpa-1 / Public pushdown list
92pb=pd1+1 / Sequence break punch buffer
pbf=92pb+9lp / Punch buffer
pd2=pbf+103+lpb-1 / Second public pushdown
cor=pd2+1 / Constants origins
vor=cor+3xncn / Variables origins
crl=vor+2xnvo / Constants relocation data
dsv=crl+ncr / Argument character storage
con=dsv+nac+ncc-1 / Constants list
mil=con+1 / Macro instruction storage
repeat 0if vp 3a+10000-mil+lmi,mil+lmi/print .overlap 3.
st=2a / Symbol table
low=st+3xsmk / End of symbol table
endputdrum
start ps5
4