File: skips.t2

For general comments see here
LineAddressObject Code LabelF1N1BF2N2CommentsCheck
1 0  ; tape1.d/skips.t2
2 0  ;-----------------
3 0  =1296 
4 1296  ; skipcomment
5 1296  ;
6 1296  skips::; 
7 1296  skipcomment.ent:; 
8 1296   call     ;alt entry with currchar @1296
8+11296 7303015010561 lnk getchar2.lnk:jmp getchar2.ent 
9 1297 1000604 jmp getchar.ent   ;letters
10 1297+1000604 jmp getchar.ent   ;punct1
11 1298 1000604 jmp getchar.ent   ;digits @1298
12 1298+1000604 jmp getchar.ent   ;@.
13 1299 1102431 jmp .1305P   ;punct2 o44 1305
14 1299+1000604 jmp getchar.ent   ;layout
15 1300  ;---------------------------------------------------------
16 1300  ; skipelse, as for skipcomment, but test for else too
17 1300  ;
18 1300  skipelse.ent:; 
19 1300 1660602.1300:lnk incomment   ;set comment flag @1300
20 1300+1002436 jmp .1310   ;->1310
21 1301  =1310 
22 1310  .1310:call     ; @1310
22+11310 7305105001222 lnk gettoken.lnk:jmp gettoken.ent 
23 1311 0540602 cls incomment   ;reset comment flag
24 1311+1002425 jmp .1301   ;->
25 1312  =1301 
26 1301 0600600.1301:lod token   ;token @1301
27 1301+0122200 sub K8a   ;=8 [semicolon]
28 1302 1042412 jz stack.ret   ;->return
29 1302+0102211 add K4   ;=4 [end]
30 1303 1042412 jz stack.ret   ;->
31 1303+0600600 lod token   ;token
32 1304 0122235 sub K39b   ;=39 [else] @1304
33 1304+1042412 jz stack.ret   ;->
34 1305 1002424 jmp .1300    
35 1305+ ;
36 1305+0600574.1305P:lod currchar   ; @1305+
37 1306 0100575 add ipshift   ;convert to 6-bit
38 1306+0122176 sub K9a   ;=9
39 1307 1042434 jz .1308   ;end of comment
40 1307+1000604 jmp getchar.ent   ;continue ignoring comments
41 1308  ;
42 1308 0540574.1308:cls currchar   ; @1308
43 1308+0602200 lod K8a   ;=8, [']
44 1309 0400600 sto token   ;
45 1309+1002412 jmp stack.ret   ;
46 1310  ;--------------------------------------------------------------------