perm filename REVRS.LAP[206,LSP] blob sn#311143 filedate 1977-10-20 generic text, type T, neo UTF8
(LAP REVRS SUBR) 
(PUSH P 1) 
(MOVE 1 0 P) 
(JUMPE 1 G0001) 
(HRRZ 1 @ 0 P) 
(CALL 1 (QUOTE REVRS)) 
(PUSH P 1) 
(HLRZ 1 @ -1 P) 
(CALL 1 (QUOTE LIST)) 
(MOVE 2 1) 
(MOVE 1 0 P) 
(SUB P (% 0 0 1 1)) 
(CALL 2 (QUOTE APPEND)) 
G0001 
(SUB P (% 0 0 1 1)) 
(POPJ P) 
NIL