lisp for ts_ 1/1/66 test=sas hih define error who,where q=flexo who jsp err'where [q^77xi]>>05<<[q^7700]>>05<<[q^770000x100] terminate ct=(1t cn=(1nil c1=(1 c3=(3 cpde=(pde repeat 1-if2,equals halt,stop bind=jdp bn push=jda pwl pop=jsp po zorch=jdp zo 0/ jmp begin law rd1 dap rdx loop, dzm pa3 dzm pa4 law pde dap pdl cal read cal eval cal print jmp loop lac 100 pwl, 0 /push dap psx law i 1 adm pdl sad snd jmp pce lac pwl dac i pdl psx, jmp . po, dap pox /pop pdl, lac pde dac pwl idx pdl lac pwl pox, jmp . bn,t4, 0 /bind push lac i pwl dio i pwl push jmp i bn cddr, add (1 /"cddr" cdar, cal car /"cdar" cdr, idx 100 /"cdr" quote, /"quote" car, lac i 100 /"car" sza i jmp cva x, dac 100 pop ral 1s spa jmp pwl-1 lio pwl pop dio i pwl jmp x 1 cadr, add (1 /"cadr" caar, cal car /"caar" jmp car number, sma /"numberp" jmp fal sub cpde atom, sma /"atom" jmp fal tru, lac ct jmp x zerop, cal vag /"zerop" sza jmp fal jmp tru g4,t1, 0 g1,t2, 0 repeat ifm 100-.,[printx /No room. /] 101/ dap pox sub (1 dap . 1 lac . dap . 4 lac pox push lac 100 jmp . cva, error cva,-2 jmp u2 vag, sma jmp nna sub cpde sma jmp nna lac i 100 jmp x zo,t3, 0 /zorch idx i pdl dac t2 idx t1 lac i t2 dac i t1 dio i t2 dio i pdl idx pwl lac i pwl jmp i zo valp, sma /"valp" jmp ana cla sas i 100 jmp tru fal, lac cn jmp x ana, error ana,-2 jmp u2 nna, error nna,-2 cal print nnx, cla>>05<>05<>05<>05<>05<lac a2 jmp pdlp low, law frs dac t1 swlp, idx t1 lac i t1 lia and (-lac dac i t1 ril 1s spi jmp swlf lac fre dac i t1 law i 1 add t1 dac fre swlf, idx t1 test jmp swlp cla>>05<>05<>05<