job RD-PCH-PR SPEED TEST 1000B ctl 6611 org 333 * 333start sw 8,12 340reload sw 1 344 r 1 * * Look for next program -- A in column 80 * 348detail r 349tptest bce *&5,80,a 357bcont b detail 361 cs reload,80 368 dc #1 * tapes1 equ 1268 blank indicates the tape loader taperd equ 1288 tape read routine? tapes2 equ 1398 GM indicates the tape loader org 377 377 BCE begin2,1278,3 385 B taperd org 400 400begin B begin2 dc #2 406loop CS 332 410 CS 411 BSS rd,B 416 BSS pu,C 421 BSS pr,D 426 BSS cy,E 431 B skiprp 435rd LCA read,266 442rdloop R 443 A k1,252 450 BSS rdloop,B 455 W loop 459pu LCA punch,266 466puloop P 467 A k1,252 474 BSS puloop,C 479 W loop 483pr LCA print,266 490prloop A k1,252 497 W 498 BSS prloop,D 503 B loop 507cy LCA cycles,259 514cyloop A k5,252 521 B skipn,F 526 NOP 527skipn CS 831 531 B cyloop,E 536 W loop 540cycles DCW @ CYCLES@ 554read DCW @ CARDS READ @ 572punch DCW @ CARDS PUNCHED@ 590print DCW @ LINES PRINTED@ 608k1 dcw 1 609k5 DCW @ 5@ 616 DCW #1 org 700 700begin2 CS 332 704 CS 705 B headpr,1252,1 713hdret CS 180 717 H 718 NOP skiprp 722 R 723 P 724skiprp B h,G 729 B loop 733h H detail dcw #1 org 1200 1200headpr W 1201 SW 49 1205 LCA 76,276 1212 W 1213 CS 277 1217 W hdret dcw #1 end start