;Reading at top level in Lisp Listener 4. ;Reading in base 10 in package TV with standard Zetalisp readtable. (disassemble 'sheet-tyo) 72 PUSH FEF|6 ;CHAR 73 (MISC) FIXNUMP D-IGNORE 74 BR-NIL 280 75 PUSH FEF|6 ;CHAR 76 < '128 77 BR-NIL 236 78 PUSH 'T 79 BIND-POP FEF|7 ;INHIBIT-SCHEDULING-FLAG 80 PUSH FEF|10 ;PREPARED-SHEET 81 EQ ARG|0 ;SHEET 82 BR-NIL 92 83 PUSH-NUMBER 257 84 PUSH ARG|0 ;SHEET 85 %INSTANCE-REF (23) D-PDL 86 (MISC) LDB D-PDL 87 ZEROP PDL-POP 88 BR-NIL 92 89 CALL D-IGNORE FEF|11 ;#'SHEET-CAN-GET-LOCK 90 MOVE D-LAST ARG|0 ;SHEET 91 BR-NOT-NIL 94 92 CALL D-IGNORE FEF|12 ;#'SHEET-PREPARE-SHEET-INTERNAL 93 MOVE D-LAST ARG|0 ;SHEET 94 PUSH ARG|0 ;SHEET 95 POP FEF|10 ;PREPARED-SHEET 96 PUSH ARG|0 ;SHEET 97 BIND-POP FEF|8 ;CURRENTLY-PREPARED-SHEET 98 PUSH-NUMBER 68 99 PUSH ARG|0 ;SHEET 100 %INSTANCE-REF (23) D-PDL 101 (MISC) LDB D-PDL 102 ZEROP PDL-POP 103 BR-NOT-NIL 106 104 CALL D-IGNORE FEF|13 ;#'SHEET-HANDLE-EXCEPTIONS 105 MOVE D-LAST ARG|0 ;SHEET 106 MOVE D-IGNORE ARG|2 ;FONT 107 BR-NOT-NIL 116 108 PUSH ARG|0 ;SHEET 109 %INSTANCE-REF (26) D-PDL 110 POP ARG|2 ;FONT 111 PUSH ARG|0 ;SHEET 112 %INSTANCE-REF (17) D-PDL 113 PUSH ARG|0 ;SHEET 114 %INSTANCE-REF (27) D-PDL 115 BR 133 116 PUSH ARG|2 ;FONT 117 PUSH FEF|14 ;'FONT 118 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE 119 BR-NOT-NIL 126 120 CALL D-PDL FEF|15 ;#'SHEET-GET-SCREEN 121 MOVE D-LAST ARG|0 ;SHEET 122 CALL D-PDL PDL-POP 123 PUSH FEF|16 ;':PARSE-FONT-SPECIFIER 124 MOVE D-LAST ARG|2 ;FONT 125 POP ARG|2 ;FONT 126 PUSH ARG|0 ;SHEET 127 %INSTANCE-REF (17) D-PDL 128 PUSH ARG|0 ;SHEET 129 %INSTANCE-REF (24) D-PDL 130 PUSH ARG|2 ;FONT 131 ARRAY-LEADER (9) D-PDL 132 - PDL-POP 133 + PDL-POP 134 POP LOCAL|1 ;Y 135 PUSH ARG|2 ;FONT 136 ARRAY-LEADER (10) D-PDL 137 POP LOCAL|4 ;CWT 138 PUSH ARG|2 ;FONT 139 ARRAY-LEADER (12) D-PDL 140 POP LOCAL|5 ;FIT 141 PUSH ARG|0 ;SHEET 142 %INSTANCE-REF (30) D-PDL 143 POP LOCAL|3 ;ALU 144 MOVE D-IGNORE LOCAL|4 ;CWT 145 BR-NIL 150 146 PUSH LOCAL|4 ;CWT 147 PUSH FEF|6 ;CHAR 148 (MISC) AR-1 D-PDL 149 BR 152 150 PUSH ARG|2 ;FONT 151 ARRAY-LEADER (4) D-PDL 152 POP LOCAL|2 ;WIDTH 153 PUSH ARG|0 ;SHEET 154 %INSTANCE-REF (16) D-PDL 155 MOVEM LOCAL|0 ;X 156 + LOCAL|2 ;WIDTH 157 PUSH-NUMBER 321 158 PUSH ARG|0 ;SHEET 159 %INSTANCE-REF (23) D-PDL 160 (MISC) LDB D-PDL 161 ZEROP PDL-POP 162 BR-NIL 168 163 PUSH ARG|0 ;SHEET 164 %INSTANCE-REF (14) D-PDL 165 PUSH ARG|0 ;SHEET 166 %INSTANCE-REF (22) D-PDL 167 BR 175 168 PUSH ARG|0 ;SHEET 169 %INSTANCE-REF (14) D-PDL 170 PUSH ARG|0 ;SHEET 171 %INSTANCE-REF (22) D-PDL 172 - PDL-POP 173 PUSH ARG|0 ;SHEET 174 %INSTANCE-REF (29) D-PDL 175 - PDL-POP 176 > PDL-POP 177 BR-NOT-NIL 227 178 PUSH ARG|2 ;FONT 179 ARRAY-LEADER (11) D-PDL 180 POP LOCAL|6 ;LKT 181 BR-NOT-NIL 197 182 MOVE D-IGNORE LOCAL|5 ;FIT 183 BR-NOT-NIL 192 184 PUSH ARG|2 ;FONT 185 PUSH FEF|6 ;CHAR 186 PUSH LOCAL|0 ;X 187 PUSH LOCAL|1 ;Y 188 PUSH LOCAL|3 ;ALU 189 PUSH ARG|0 ;SHEET 190 (MISC) %DRAW-CHAR D-IGNORE 191 BR 222 192 CALL D-IGNORE FEF|17 ;#'DRAW-CHAR 193 PUSH ARG|2 ;FONT 194 PUSH FEF|6 ;CHAR 195 PUSH LOCAL|0 ;X 196 BR 219 197 MOVE D-IGNORE LOCAL|5 ;FIT 198 BR-NOT-NIL 211 199 PUSH ARG|2 ;FONT 200 PUSH FEF|6 ;CHAR 201 PUSH LOCAL|0 ;X 202 PUSH LOCAL|6 ;LKT 203 PUSH FEF|6 ;CHAR 204 (MISC) AR-1 D-PDL 205 - PDL-POP 206 PUSH LOCAL|1 ;Y 207 PUSH LOCAL|3 ;ALU 208 PUSH ARG|0 ;SHEET 209 (MISC) %DRAW-CHAR D-IGNORE 210 BR 222 211 CALL D-IGNORE FEF|17 ;#'DRAW-CHAR 212 PUSH ARG|2 ;FONT 213 PUSH FEF|6 ;CHAR 214 PUSH LOCAL|0 ;X 215 PUSH LOCAL|6 ;LKT 216 PUSH FEF|6 ;CHAR 217 (MISC) AR-1 D-PDL 218 - PDL-POP 219 PUSH LOCAL|1 ;Y 220 PUSH LOCAL|3 ;ALU 221 MOVE D-LAST ARG|0 ;SHEET 222 PUSH ARG|0 ;SHEET 223 PUSH LOCAL|0 ;X 224 + LOCAL|2 ;WIDTH 225 SET-%INSTANCE-REF (16) D-IGNORE 226 MOVE D-RETURN FEF|6 ;CHAR 227 CALL D-IGNORE ARG|0 ;SHEET 228 MOVE D-LAST FEF|18 ;':END-OF-LINE-EXCEPTION 229 CALL D-IGNORE FEF|19 ;#'SHEET-TYO 230 PUSH ARG|0 ;SHEET 231 PUSH FEF|6 ;CHAR 232 MOVE D-LAST ARG|2 ;FONT 233 (MISC) UNBIND 1 binding 234 (MISC) UNBIND 1 binding 235 MOVE D-RETURN FEF|6 ;CHAR 236 PUSH FEF|6 ;CHAR 237 = '141 238 BR-NIL 248 239 PUSH FEF|20 ;'577 240 PUSH ARG|0 ;SHEET 241 %INSTANCE-REF (23) D-PDL 242 (MISC) LDB D-PDL 243 ZEROP PDL-POP 244 BR-NIL 248 245 CALL D-IGNORE FEF|21 ;#'SHEET-CRLF 246 MOVE D-LAST ARG|0 ;SHEET 247 MOVE D-RETURN FEF|6 ;CHAR 248 PUSH FEF|6 ;CHAR 249 = '137 250 BR-NIL 254 251 CALL D-IGNORE FEF|22 ;#'SHEET-TAB-1 252 MOVE D-LAST ARG|0 ;SHEET 253 MOVE D-RETURN FEF|6 ;CHAR 254 PUSH FEF|6 ;CHAR 255 = FEF|23 ;'136 256 BR-NIL 266 257 PUSH FEF|24 ;'513 258 PUSH ARG|0 ;SHEET 259 %INSTANCE-REF (23) D-PDL 260 (MISC) LDB D-PDL 261 ZEROP PDL-POP 262 BR-NIL 266 263 CALL D-IGNORE FEF|25 ;#'SHEET-BACKSPACE-1 264 MOVE D-LAST ARG|0 ;SHEET 265 MOVE D-RETURN FEF|6 ;CHAR 266 CALL D-IGNORE FEF|26 ;#'SHEET-DISPLAY-LOZENGED-STRING 267 PUSH ARG|0 ;SHEET 268 CALL D-LAST FEF|27 ;#'STRING 269 CALL D-PDL FEF|28 ;#'RASSQ 270 PUSH FEF|6 ;CHAR 271 MOVE D-LAST FEF|9 ;SI:XR-SPECIAL-CHARACTER-NAMES 272 CAR D-PDL PDL-POP 273 BR-NOT-NIL-POP 278 274 CALL D-PDL FEF|29 ;#'FORMAT 275 PUSH 'NIL 276 PUSH FEF|30 ;'"~3O" 277 MOVE D-LAST FEF|6 ;CHAR 278 MOVE D-LAST PDL-POP 279 MOVE D-RETURN FEF|6 ;CHAR 280 PUSH FEF|6 ;CHAR 281 (MISC) CHARACTERP D-IGNORE 282 BR-NIL 287 283 PUSH FEF|6 ;CHAR 284 (MISC) CHAR-INT D-PDL 285 POP FEF|6 ;CHAR 286 BR 72 287 CALL D-IGNORE FEF|31 ;#'SI::NO-CASE-ERROR 288 PUSH 'NIL 289 PUSH FEF|32 ;'ETYPECASE 290 PUSH FEF|33 ;'CHAR 291 PUSH FEF|6 ;CHAR 292 MOVE D-LAST FEF|34 ;'(OR FIXNUM CHARACTER) 293 BR 72 SHEET-TYO (disassemble 'sheet-tyo-test) 72 PUSH FEF|6 ;CHAR 73 (MISC) FIXNUMP D-IGNORE 74 BR-NIL 280 75 PUSH FEF|6 ;CHAR 76 < '128 77 BR-NIL 236 78 PUSH 'T 79 BIND-POP FEF|7 ;INHIBIT-SCHEDULING-FLAG 80 PUSH FEF|10 ;PREPARED-SHEET 81 EQ ARG|0 ;SHEET 82 BR-NIL 92 83 PUSH-NUMBER 257 84 PUSH ARG|0 ;SHEET 85 %INSTANCE-REF (23) D-PDL 86 (MISC) LDB D-PDL 87 ZEROP PDL-POP 88 BR-NIL 92 89 CALL D-IGNORE FEF|11 ;#'SHEET-CAN-GET-LOCK 90 MOVE D-LAST ARG|0 ;SHEET 91 BR-NOT-NIL 94 92 CALL D-IGNORE FEF|12 ;#'SHEET-PREPARE-SHEET-INTERNAL 93 MOVE D-LAST ARG|0 ;SHEET 94 PUSH ARG|0 ;SHEET 95 POP FEF|10 ;PREPARED-SHEET 96 PUSH ARG|0 ;SHEET 97 BIND-POP FEF|8 ;CURRENTLY-PREPARED-SHEET 98 PUSH-NUMBER 68 99 PUSH ARG|0 ;SHEET 100 %INSTANCE-REF (23) D-PDL 101 (MISC) LDB D-PDL 102 ZEROP PDL-POP 103 BR-NOT-NIL 106 104 CALL D-IGNORE FEF|13 ;#'SHEET-HANDLE-EXCEPTIONS 105 MOVE D-LAST ARG|0 ;SHEET 106 MOVE D-IGNORE ARG|2 ;FONT 107 BR-NOT-NIL 116 108 PUSH ARG|0 ;SHEET 109 %INSTANCE-REF (26) D-PDL 110 POP ARG|2 ;FONT 111 PUSH ARG|0 ;SHEET 112 %INSTANCE-REF (17) D-PDL 113 PUSH ARG|0 ;SHEET 114 %INSTANCE-REF (27) D-PDL 115 BR 133 116 PUSH ARG|2 ;FONT 117 PUSH FEF|14 ;'FONT 118 (MISC) TYPEP-STRUCTURE-OR-FLAVOR D-IGNORE 119 BR-NOT-NIL 126 120 CALL D-PDL FEF|15 ;#'SHEET-GET-SCREEN 121 MOVE D-LAST ARG|0 ;SHEET 122 CALL D-PDL PDL-POP 123 PUSH FEF|16 ;':PARSE-FONT-SPECIFIER 124 MOVE D-LAST ARG|2 ;FONT 125 POP ARG|2 ;FONT 126 PUSH ARG|0 ;SHEET 127 %INSTANCE-REF (17) D-PDL 128 PUSH ARG|0 ;SHEET 129 %INSTANCE-REF (24) D-PDL 130 PUSH ARG|2 ;FONT 131 ARRAY-LEADER (9) D-PDL 132 - PDL-POP 133 + PDL-POP 134 POP LOCAL|1 ;Y 135 PUSH ARG|2 ;FONT 136 ARRAY-LEADER (10) D-PDL 137 POP LOCAL|4 ;CWT 138 PUSH ARG|2 ;FONT 139 ARRAY-LEADER (12) D-PDL 140 POP LOCAL|5 ;FIT 141 PUSH ARG|0 ;SHEET 142 %INSTANCE-REF (30) D-PDL 143 POP LOCAL|3 ;ALU 144 MOVE D-IGNORE LOCAL|4 ;CWT 145 BR-NIL 150 146 PUSH LOCAL|4 ;CWT 147 PUSH FEF|6 ;CHAR 148 (MISC) AR-1 D-PDL 149 BR 152 150 PUSH ARG|2 ;FONT 151 ARRAY-LEADER (4) D-PDL 152 POP LOCAL|2 ;WIDTH 153 PUSH ARG|0 ;SHEET 154 %INSTANCE-REF (16) D-PDL 155 MOVEM LOCAL|0 ;X 156 + LOCAL|2 ;WIDTH 157 PUSH-NUMBER 321 158 PUSH ARG|0 ;SHEET 159 %INSTANCE-REF (23) D-PDL 160 (MISC) LDB D-PDL 161 ZEROP PDL-POP 162 BR-NIL 168 163 PUSH ARG|0 ;SHEET 164 %INSTANCE-REF (14) D-PDL 165 PUSH ARG|0 ;SHEET 166 %INSTANCE-REF (22) D-PDL 167 BR 175 168 PUSH ARG|0 ;SHEET 169 %INSTANCE-REF (14) D-PDL 170 PUSH ARG|0 ;SHEET 171 %INSTANCE-REF (22) D-PDL 172 - PDL-POP 173 PUSH ARG|0 ;SHEET 174 %INSTANCE-REF (29) D-PDL 175 - PDL-POP 176 > PDL-POP 177 BR-NOT-NIL 227 178 PUSH ARG|2 ;FONT 179 ARRAY-LEADER (11) D-PDL 180 POP LOCAL|6 ;LKT 181 BR-NOT-NIL 197 182 MOVE D-IGNORE LOCAL|5 ;FIT 183 BR-NOT-NIL 192 184 PUSH ARG|2 ;FONT 185 PUSH FEF|6 ;CHAR 186 PUSH LOCAL|0 ;X 187 PUSH LOCAL|1 ;Y 188 PUSH LOCAL|3 ;ALU 189 PUSH ARG|0 ;SHEET 190 (MISC) %DRAW-CHAR D-IGNORE 191 BR 222 192 CALL D-IGNORE FEF|17 ;#'DRAW-CHAR 193 PUSH ARG|2 ;FONT 194 PUSH FEF|6 ;CHAR 195 PUSH LOCAL|0 ;X 196 BR 219 197 MOVE D-IGNORE LOCAL|5 ;FIT 198 BR-NOT-NIL 211 199 PUSH ARG|2 ;FONT 200 PUSH FEF|6 ;CHAR 201 PUSH LOCAL|0 ;X 202 PUSH LOCAL|6 ;LKT 203 PUSH FEF|6 ;CHAR 204 (MISC) AR-1 D-PDL 205 - PDL-POP 206 PUSH LOCAL|1 ;Y 207 PUSH LOCAL|3 ;ALU 208 PUSH ARG|0 ;SHEET 209 (MISC) %DRAW-CHAR D-IGNORE 210 BR 222 211 CALL D-IGNORE FEF|17 ;#'DRAW-CHAR 212 PUSH ARG|2 ;FONT 213 PUSH FEF|6 ;CHAR 214 PUSH LOCAL|0 ;X 215 PUSH LOCAL|6 ;LKT 216 PUSH FEF|6 ;CHAR 217 (MISC) AR-1 D-PDL 218 - PDL-POP 219 PUSH LOCAL|1 ;Y 220 PUSH LOCAL|3 ;ALU 221 MOVE D-LAST ARG|0 ;SHEET 222 PUSH ARG|0 ;SHEET 223 PUSH LOCAL|0 ;X 224 + LOCAL|2 ;WIDTH 225 SET-%INSTANCE-REF (16) D-IGNORE 226 MOVE D-RETURN FEF|6 ;CHAR 227 CALL D-IGNORE ARG|0 ;SHEET 228 MOVE D-LAST FEF|18 ;':END-OF-LINE-EXCEPTION 229 CALL D-IGNORE FEF|19 ;#'SHEET-TYO 230 PUSH ARG|0 ;SHEET 231 PUSH FEF|6 ;CHAR 232 MOVE D-LAST ARG|2 ;FONT 233 (MISC) UNBIND 1 binding 234 (MISC) UNBIND 1 binding 235 MOVE D-RETURN FEF|6 ;CHAR 236 PUSH FEF|6 ;CHAR 237 = '141 238 BR-NIL 248 239 PUSH FEF|20 ;'577 240 PUSH ARG|0 ;SHEET 241 %INSTANCE-REF (23) D-PDL 242 (MISC) LDB D-PDL 243 ZEROP PDL-POP 244 BR-NIL 248 245 CALL D-IGNORE FEF|21 ;#'SHEET-CRLF 246 MOVE D-LAST ARG|0 ;SHEET 247 MOVE D-RETURN FEF|6 ;CHAR 248 PUSH FEF|6 ;CHAR 249 = '137 250 BR-NIL 254 251 CALL D-IGNORE FEF|22 ;#'SHEET-TAB-1 252 MOVE D-LAST ARG|0 ;SHEET 253 MOVE D-RETURN FEF|6 ;CHAR 254 PUSH FEF|6 ;CHAR 255 = FEF|23 ;'136 256 BR-NIL 266 257 PUSH FEF|24 ;'513 258 PUSH ARG|0 ;SHEET 259 %INSTANCE-REF (23) D-PDL 260 (MISC) LDB D-PDL 261 ZEROP PDL-POP 262 BR-NIL 266 263 CALL D-IGNORE FEF|25 ;#'SHEET-BACKSPACE-1 264 MOVE D-LAST ARG|0 ;SHEET 265 MOVE D-RETURN FEF|6 ;CHAR 266 CALL D-IGNORE FEF|26 ;#'SHEET-DISPLAY-LOZENGED-STRING 267 PUSH ARG|0 ;SHEET 268 CALL D-LAST FEF|27 ;#'STRING 269 CALL D-PDL FEF|28 ;#'RASSQ 270 PUSH FEF|6 ;CHAR 271 MOVE D-LAST FEF|9 ;SI:XR-SPECIAL-CHARACTER-NAMES 272 CAR D-PDL PDL-POP 273 BR-NOT-NIL-POP 278 274 CALL D-PDL FEF|29 ;#'FORMAT 275 PUSH 'NIL 276 PUSH FEF|30 ;'"~3O" 277 MOVE D-LAST FEF|6 ;CHAR 278 MOVE D-LAST PDL-POP 279 MOVE D-RETURN FEF|6 ;CHAR 280 PUSH FEF|6 ;CHAR 281 (MISC) CHARACTERP D-IGNORE 282 BR-NIL 287 283 PUSH FEF|6 ;CHAR 284 (MISC) CHAR-INT D-PDL 285 POP FEF|6 ;CHAR 286 BR 72 287 CALL D-IGNORE FEF|31 ;#'SI::NO-CASE-ERROR 288 PUSH 'NIL 289 PUSH FEF|32 ;'ETYPECASE 290 PUSH FEF|33 ;'CHAR 291 PUSH FEF|6 ;CHAR 292 MOVE D-LAST FEF|34 ;'(OR FIXNUM CHARACTER) 293 BR 72 SHEET-TYO-TEST (dribble)