perm filename UR[P,BGB] blob
sn#009272 filedate 1974-04-16 generic text, type T, neo UTF8
(LAP GFUN1UREAD SUBR)
(MOVE 1 (SPECIAL A))
(JCALL 1 (E *EVAL))
NIL
(LAP UREAD FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL A))
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE FOO) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HLRZ@ 1 -3 P)
(CALL 1 (E ATOM))
(JUMPN 1 TAG11)
(HLRZ@ 1 -3 P)
(HRRZ@ 1 1)
(CALL 1 (E ATOM))
(JUMPE 1 TAG10)
TAG11 (HLRZ@ 1 -3 P)
(MOVEM 1 0 P)
(JRST 0 TAG7)
TAG10 (HLRZ@ 1 -3 P)
(MOVEM 1 -1 P)
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
TAG12
TAG7 (MOVE 1 -1 P)
(JUMPE 1 TAG15)
(JRST 0 TAG14)
TAG15 (MOVEI 1 (QUOTE DSK:))
(MOVEM 1 -1 P)
TAG16
TAG14 (MOVE 1 0 P)
(CALL 1 (E NCONS))
(MOVE 2 -1 P)
(CALL 2 (E XCONS))
(MOVE 2 -2 P)
(CALL 2 (E XCONS))
(CALL 17 (E INPUT))
(MOVEI 2 (QUOTE NIL))
(MOVE 1 -2 P)
(CALL 2 (E INC))
TAG2 (MOVEI 1 (QUOTE ((READ))))
(CALL 17 (E ERRSET))
(MOVEM 1 (SPECIAL A))
(CALL 1 (E ATOM))
(JUMPE 1 TAG21)
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JUMPN 1 TAG1)
(MOVEI 1 (QUOTE LOADED!))
(JRST 0 TAG4)
TAG23 (JRST 0 TAG20)
TAG21 (HLRZ@ 1 (SPECIAL A))
(MOVEM 1 (SPECIAL A))
TAG25
TAG20 (MOVE 1 (SPECIAL A))
(CAIE 1 (QUOTE COMMENT))
(JRST 0 TAG30)
(MOVEI 1 (QUOTE COMMENT))
(CALL 1 (E PRINT))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG3 (CALL 0 (E READCH))
(MOVEM 1 0 P)
(CAIE 1 (QUOTE ;))
(JRST 0 TAG35)
(MOVEI 1 (QUOTE T))
(JRST 0 TAG31)
TAG35 (JRST 0 TAG3)
TAG31 (SUB P (C 0 0 1 1))
(JRST 0 TAG27)
TAG30 (MOVEI 1 (QUOTE ((GFUN1UREAD))))
(CALL 17 (E ERRSET))
(HLRZ@ 1 1)
(CALL 1 (E PRINT))
TAG37
TAG27 (JRST 0 TAG2)
TAG4 (SUB P (C 0 0 4 4))
(JRST 0 SPECSTR)
NIL