; ; pdp11dasm version 0.0.3 ; disassembly of rqdx3.bin ; ; ; ;-------------------------------------------------------- ; ; ; File: rqdx3.mac ; rw$ptr == 140000 rw$pll == 140002 w$fpl == 140004 r$fps == 140006 r$dat == 140010 r$cmd == 140012 w$dat == 140020 w$cmd == 140022 rw$csr == 160006 r$sard == 160010 r$sawr == 160012 w$q22l == 160200 w$q22h == 160202 w$wcnt == 160204 w$sard == 160210 w$vec == 160214 w$req == 160216 ;.psect c$code i, r .asect . = 0 000000: 000167 000244 jmp m$init ; w.$. ; 000004: 000200 000340 .word badint,340 000010: 000200 000340 .word badint,340 000014: 000200 000340 .word badint,340 000020: 000200 000340 .word badint,340 000024: 000200 000340 .word badint,340 000030: 000200 000340 .word badint,340 000034: 000200 000340 .word badint,340 ; 000040: 177777 177777 .word 177777,177777 000044: 177777 177777 .word 177777,177777 000050: 177777 177777 .word 177777,177777 000054: 177777 177777 .word 177777,177777 ; 000060: 000214 000340 .word udcint,340 000064: 000220 000340 .word dmaint,340 000070: 000224 000340 .word clkint,340 ; 000074: 177777 177777 .word 177777,177777 000100: 177777 177777 .word 177777,177777 000104: 177777 177777 .word 177777,177777 000110: 177777 177777 .word 177777,177777 000114: 177777 177777 .word 177777,177777 ; 000120: 000230 000340 .word ipwint,340 000124: 000234 000340 .word iprint,340 000130: 000240 000340 .word sawint,340 000134: 000244 000340 .word secint,340 . = 140 000140: 032672 032734 .word progress, terminate ; `.:5\5 000144: 032346 032520 .word get$host, put$host ; f4P5 ; 000150: 177777 177777 .word 177777,177777 ; .... 000154: 177777 177777 .word 177777,177777 ; .... 000160: 177777 177777 .word 177777,177777 ; .... 000164: 177777 177777 .word 177777,177777 ; .... 000170: 177777 177777 .word 177777,177777 ; .... 000174: 177777 177777 .word 177777,177777 ; .... ; badint:: 000200: 012706 140000 mov #140000,sp ; F..@ 000204: 012746 000733 mov #733,-(sp) ; f.[. 000210: 004767 035116 call fatal.error ; w.N: udcint:: 000214: 000177 077562 jmp @100002 ; ..r. ; dmaint:: 000220: 000177 077560 jmp @100004 ; ..p. ; clkint:: 000224: 000177 077556 jmp @100006 ; ..n. ; ipwint:: 000230: 000177 077554 jmp @100010 ; ..l. ; iprint:: 000234: 000177 077552 jmp @100012 ; ..j. ; sawint:: 000240: 000177 077550 jmp @100014 ; ..h. ; secint:: 000244: 000177 077546 jmp @100016 ; ..f. ; m$init:: 000250: 005067 077544 clr 100020 ; 7.d. 000254: 012767 072460 077540 mov #72460,100022 ; w.0u`. 000262: 000167 057724 jmp 60212 ; w.T_ ; m$main:: 000266: 106427 000340 mtps #340 ; ..`. 000272: 012700 100024 mov #100024,r0 ; @... 000276: 012701 017766 mov #17766,r1 ; A.v. 000302: 005020 clr (r0)+ ; .. 000304: 077102 sob r1,302 ; B~ 000306: 012706 140000 mov #140000,sp ; F..@ 000312: 012737 000011 140002 mov #11,@#rw$pll ; _....@ 000320: 005037 140004 clr @#w$fpl ; ...@ 000324: 112737 000000 140022 movb #0,@#w$cmd ; _....@ 000332: 005067 077722 clr 100260 ; 7.R. 000336: 032737 020000 140006 bit #20000,@#r$fps ; _5. .@ 000344: 001422 beq 412 ; .. 000346: 112737 000111 140022 movb #111,@#w$cmd ; _.I..@ 000354: 112737 000040 140020 movb #40,@#w$dat ; _. ..@ 000362: 112737 000001 140022 movb #1,@#w$cmd ; _....@ 000370: 012700 001000 mov #1000,r0 ; @... 000374: 077001 sob r0,374 ; .~ 000376: 032737 020000 140006 bit #20000,@#r$fps ; _5. .@ 000404: 001002 bne 412 ; .. 000406: 005267 077646 inc udc$bug ; 7.&. 000412: 012767 000472 077362 mov #m$udc,i$udc ; w.:.r~ 000420: 012767 000704 077356 mov #m$dma,i$dma ; w.D.n~ 000426: 012767 000712 077352 mov #m$clk,i$clk ; w.J.j~ 000434: 012767 000764 077346 mov #m$ipw,i$ipw ; w.t.f~ 000442: 012767 001020 077342 mov #m$ipr,i$ipr ; w...b~ 000450: 012767 001050 077336 mov #m$saw,i$saw ; w.(.^~ 000456: 012767 001100 077332 mov #m$sec,i$sec ; w.@.Z~ 000464: 000167 043270 jmp 43760 ; w.8F ; m$rti:: 000470: 000002 rti ; .. ; m$udc:: 000472: 005767 077562 tst 100260 ; w.r. 000476: 001405 beq 512 ; .. 000500: 032737 020000 140006 bit #20000,@#r$fps ; _5. .@ 000506: 001401 beq 512 ; .. 000510: 000002 rti ; .. ; 000512: 113746 140012 movb @#r$cmd,-(sp) ; f..@ 000516: 142716 000035 bicb #35,(sp) ; NE.. 000522: 122726 000240 cmpb #240,(sp)+ ; V% . 000526: 001062 bne 674 ; 2. 000530: 005767 077444 tst 100200 ; w.$. 000534: 003436 ble 632 ; .. 000536: 132737 000030 140012 bitb #30,@#r$cmd ; _5...@ 000544: 001030 bne 626 ; .. 000546: 005367 077426 dec 100200 ; w... 000552: 001427 beq 632 ; .. 000554: 112737 000103 140022 movb #103,@#w$cmd ; _.C..@ 000562: 117737 077276 140020 movb @100064,@#w$dat ; _.>~.@ 000570: 112737 000106 140022 movb #106,@#w$cmd ; _.F..@ 000576: 112737 000001 140020 movb #1,@#w$dat ; _....@ 000604: 112737 000112 140022 movb #112,@#w$cmd ; _.J..@ 000612: 116737 077360 140022 movb 100176,@#w$cmd ; _.p~.@ 000620: 005267 077240 inc 100064 ; 7. ~ 000624: 000002 rti ; .. ; 000626: 005467 077346 neg 100200 ; 7.f~ 000632: 005267 077376 inc 100234 ; 7.~~ 000636: 005767 077166 tst 100030 ; w.v~ 000642: 100415 bmi 676 ; .. 000644: 012767 000001 077156 mov #1,100030 ; w...n~ 000652: 005767 077150 tst 100026 ; w.h~ 000656: 100407 bmi 676 ; .. 000660: 012767 000001 077140 mov #1,100026 ; w...`~ 000666: 005767 077334 tst 100226 ; w.\~ 000672: 001001 bne 676 ; .. 000674: 000002 rti ; .. ; 000676: 004067 043112 jsr r0,intdis ; 7.JF 000702: 035466 .word udcisr m$dma:: 000704: 005267 077326 inc dma.flag 000710: 000002 rti ; .. ; m$clk:: 000712: 005267 077322 inc 100240 ; 7.R~ 000716: 032767 000360 077256 bit #360,100202 ; w5p..~ 000724: 001010 bne 746 ; .. 000726: 005037 140004 clr @#w$fpl ; ...@ 000732: 013767 140006 077244 mov @#r$fps,100204 ; w..@$~ 000740: 016737 077236 140004 mov 100202,@#w$fpl ; _..~.@ 000746: 005767 077050 tst 100022 ; w.(~ 000752: 001402 beq 760 ; .. 000754: 005367 077042 dec 100022 ; w."~ 000760: 004067 043176 jsr r0,tick ; 7.~F m$ipw:: 000764: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 000772: 001007 bne 1012 ; .. 000774: 005737 160010 tst @#r$sard ; _..` 001000: 001405 beq 1014 ; .. 001002: 026737 077250 160010 cmp vector,@#r$sard ; _-(~.` 001010: 001001 bne 1014 ; .. 001012: 000002 rti ; .. ; 001014: 000167 057172 jmp 60212 ; w.z^ ; m$ipr:: 001020: 005267 077216 inc 100242 ; 7..~ 001024: 005767 076774 tst 100024 ; w.|} 001030: 100404 bmi 1042 ; .. 001032: 012767 000001 076764 mov #1,100024 ; w...t} 001040: 000002 rti ; .. ; 001042: 004067 042746 jsr r0,intdis ; 7.fE 001046: 033146 .word iprisr ; m$saw:: 001050: 005267 077170 inc saw.flag ; 7.x~ 001054: 005037 160210 clr @#w$sard ; ...` 001060: 032767 000002 101562 bit #2,102650 ; w5..r. 001066: 001403 beq 1076 ; .. 001070: 016737 077162 160210 mov vector,@#w$sard ; _.r~.` 001076: 000002 rti ; .. ; m$sec:: 001100: 005267 077142 inc 100246 ; 7.b~ 001104: 005767 076716 tst 100026 ; w.N} 001110: 100404 bmi 1122 ; .. 001112: 012767 000001 076706 mov #1,100026 ; w...F} 001120: 000002 rti ; .. ; 001122: 004067 042666 jsr r0,intdis ; 7.6E 001126: 035720 .word secisr ;-------------------------------------------------------- ; ; File: main.c ; ; ; start( ) start:: 001130: 004567 075744 jsr r5,csv$ ; 001134: 012746 101102 mov #101102,-(sp) ; stack 001140: 005046 clr -(sp) ; priority 001142: 012746 001166 mov #main,-(sp) ; entry 001146: 012746 102546 mov #102546,-(sp) ; jcb 001152: 004767 043404 call $create ; 001156: 062706 000010 add #10,sp ; 001162: 000167 075726 jmp cret$ ; ; ; main( ) main:: 001166: 004567 075706 jsr r5,csv$ ; 001172: 004767 001124 call clear ; 001176: 004767 001776 call init ; 001202: 004767 025742 call setup ; 001206: 005004 clr r4 ; 001210: 000434 br 1302 ; ; 001212: 010246 mov r2,-(sp) ; 001214: 012746 000620 mov #2*work$size,-(sp) ; 001220: 010446 mov r4,-(sp) ; 001222: 004767 075216 call 76444 ; 001226: 022626 cmp (sp)+,(sp)+ ; 001230: 010046 mov r0,-(sp) ; 001232: 062716 133610 add #133610,(sp) ; 001236: 062716 000620 add #620,(sp) ; stack 001242: 012746 000004 mov #4,-(sp) ; priority 001246: 012746 001714 mov #work,-(sp) ; entry 001252: 010400 mov r4,r0 ; 001254: 006300 asl r0 ; 001256: 006300 asl r0 ; 001260: 006300 asl r0 ; 001262: 010046 mov r0,-(sp) ; 001264: 062716 102606 add #102606,(sp) ; jcb 001270: 004767 043266 call $create ; 001274: 062706 000012 add #12,sp ; 001300: 005204 inc r4 ; 001302: 010446 mov r4,-(sp) ; 001304: 066716 076742 add 100252,(sp) ; 001310: 004767 042006 call get.ucb ; 001314: 005726 tst (sp)+ ; 001316: 010002 mov r0,r2 ; 001320: 001334 bne 1212 ; 001322: 012746 101722 mov #101722,-(sp) ; 001326: 012746 000003 mov #3,-(sp) ; 001332: 012746 033172 mov #poll,-(sp) ; 001336: 012746 102556 mov #102556,-(sp) ; 001342: 004767 043214 call $create ; 001346: 062706 000010 add #10,sp ; 001352: 012746 102542 mov #102542,-(sp) ; 001356: 012746 000002 mov #2,-(sp) ; 001362: 012746 001610 mov #time,-(sp) ; 001366: 012746 102576 mov #102576,-(sp) ; 001372: 004767 043164 call $create ; 001376: 062706 000010 add #10,sp ; 001402: 012746 102232 mov #102232,-(sp) ; 001406: 012746 000001 mov #1,-(sp) ; 001412: 012746 001534 mov #scan,-(sp) ; 001416: 012746 102566 mov #102566,-(sp) ; 001422: 004767 043134 call $create ; 001426: 062706 000010 add #10,sp ; 001432: 036727 101212 000004 bit 102650,#4 ; 001440: 001412 beq 1466 ; 001442: 036727 101222 000001 bit 102670,#1 ; 001450: 001406 beq 1466 ; 001452: 042767 000001 101210 bic #1,102670 ; 001460: 004777 101176 call @102662 ; 001464: 000420 br 1526 ; ; 001466: 012746 001750 mov #1750,-(sp) ; 001472: 004767 043162 call $sleep ; 001476: 005726 tst (sp)+ ; 001500: 005767 076512 tst 100216 ; 001504: 001410 beq 1526 ; 001506: 005367 076504 dec 100216 ; 001512: 001005 bne 1526 ; 001514: 012746 000011 mov #11,-(sp) ; 001520: 004767 033606 call fatal.error ; 001524: 005726 tst (sp)+ ; 001526: 000741 br 1432 ; ; 001530: 000167 075360 jmp cret$ ; ;-------------------------------------------------------- ; ; File: scan.c ; ; scan ( ) scan:: 001534: 004567 075340 jsr r5,csv$ ; w.`z 001540: 005004 clr r4 ; .. 001542: 000407 br 1562 ; .. ; 001544: 010446 mov r4,-(sp) ; &. 001546: 066716 076500 add 100252,(sp) ; Nm@} 001552: 004767 041544 call get.ucb ; w.dC 001556: 005726 tst (sp)+ ; V. 001560: 005204 inc r4 ; .. 001562: 020427 000004 cmp r4,#4 ; .!.. 001566: 002766 blt 1544 ; v. 001570: 012746 001750 mov #1000.,-(sp) ; f.h. 001574: 004767 043060 call $sleep ; w.0F 001600: 005726 tst (sp)+ ; V. 001602: 000756 br 1540 ; n. ; 001604: 000167 075304 jmp cret$ ; w.Dz ;-------------------------------------------------------- ; ; File: time.c ; ; ; ; time( ) time:: 001610: 004567 075264 jsr r5,csv$ ; w.4z 001614: 005767 076400 tst 100220 ; w..} 001620: 001405 beq 1634 ; .. 001622: 005367 076372 dec 100220 ; w.z| 001626: 001002 bne 1634 ; .. 001630: 004767 014762 call sd$tmo ; w.r. 001634: 005767 076362 tst 100222 ; w.r| 001640: 001405 beq 1654 ; .. 001642: 005367 076354 dec 100222 ; w.l| 001646: 001002 bne 1654 ; .. 001650: 004767 015036 call mo$tmo ; w... 001654: 005767 076344 tst 100224 ; w.d| 001660: 001405 beq 1674 ; .. 001662: 005367 076336 dec 100224 ; w.^| 001666: 001002 bne 1674 ; .. 001670: 004767 015134 call cd$tmo ; w.\. 001674: 012746 001750 mov #1000.,-(sp) ; f.h. 001700: 004767 042754 call $sleep ; w.lE 001704: 005726 tst (sp)+ ; V. 001706: 000742 br 1614 ; b. ; 001710: 000167 075200 jmp cret$ ; w..z ; ;-------------------------------------------------------- ; ; File: work.c ; ; ; ; work ( ucb ) work:: 001714: 004567 075160 jsr r5,csv$ ; w.pz 001720: 016504 000004 mov 4(r5),r4 ; D... 001724: 010446 mov r4,-(sp) ; while( true ) 001726: 062716 000126 add #126,(sp) ; NeV. 001732: 004767 042302 call $acquire ; w.BD 001736: 005726 tst (sp)+ ; V. 001740: 016403 000004 mov 4(r4),r3 ; .... 001744: 010364 000136 mov r3,136(r4) ; t.^. 001750: 001450 beq 2072 ; (. 001752: 011364 000004 mov (r3),4(r4) ; t... 001756: 010446 mov r4,-(sp) ; &. 001760: 062716 000126 add #126,(sp) ; NeV. 001764: 004767 042344 call $release ; w.dD 001770: 005726 tst (sp)+ ; V. 001772: 036327 000026 100000 bit 26(r3),#100000 ; W<.... 002000: 001021 bne 2044 ; .. 002002: 016364 000006 000032 mov 6(r3),32(r4) ; t..... 002010: 016364 000010 000034 mov 10(r3),34(r4) ; t..... 002016: 036327 000024 040000 bit 24(r3),#40000 ; W<...@ 002024: 001404 beq 2036 ; .. 002026: 052764 040000 000030 bis #40000,30(r4) ; tU.@.. 002034: 000403 br 2044 ; .. ; 002036: 042764 040000 000030 bic #40000,30(r4) ; tE.@.. 002044: 010346 mov r3,-(sp) ; f. 002046: 004767 053312 call $do$rw ; w.JV 002052: 005726 tst (sp)+ ; V. 002054: 010446 mov r4,-(sp) ; &. 002056: 062716 000126 add #126,(sp) ; NeV. 002062: 004767 042152 call $acquire ; w.jD 002066: 005726 tst (sp)+ ; V. 002070: 000723 br 1740 ; S. ; 002072: 016402 000002 mov 2(r4),r2 ; .... 002076: 001424 beq 2150 ; .. 002100: 005064 000002 clr 2(r4) ; 4... 002104: 010446 mov r4,-(sp) ; &. 002106: 062716 000126 add #126,(sp) ; NeV. 002112: 004767 042216 call $release ; w..D 002116: 005726 tst (sp)+ ; V. 002120: 005702 tst r2 ; B. 002122: 001411 beq 2146 ; .. 002124: 011265 177770 mov (r2),177770(r5) ; 5.x. 002130: 010246 mov r2,-(sp) ; &. 002132: 004767 000370 call do$mscp ; w.x. 002136: 005726 tst (sp)+ ; V. 002140: 016502 177770 mov 177770(r5),r2 ; B.x. 002144: 000765 br 2120 ; u. ; 002146: 000406 br 2164 ; .. ; 002150: 010446 mov r4,-(sp) ; &. 002152: 062716 000126 add #126,(sp) ; NeV. 002156: 004767 042152 call $release ; w.jD 002162: 005726 tst (sp)+ ; V. 002164: 010446 mov r4,-(sp) ; &. 002166: 004767 042226 call $block ; w..D 002172: 005726 tst (sp)+ ; V. 002174: 000653 br 1724 ; +. ; 002176: 000167 074712 jmp cret$ ; w.Jy ;-------------------------------------------------------- ; ; File: data.c ; ; main$size = 200. poll$size = 200. scan$size = 100. time$size = 100. work$size = 200. data$size = 18.*512. max$programs = 1. max$commands = 16. max$errors = 4 max$packets = max$commands+max$errors ;.psect c$data d, rw savepc=. . = 100000 board$okay:: .blkw 1 ; 100000 i$udc:: .blkw 1 i$dma:: .blkw 1 i$clk:: .blkw 1 i$ipw:: .blkw 1 i$ipr:: .blkw 1 i$saw:: .blkw 1 i$sec:: .blkw 1 port$error:: .blkw 1 stalling:: .blkw 1 ipr$job::.blkw 1 ; list sec$job::.blkw 1 ; list udc$job::.blkw 1 ; list pd$jobs::.blkw 4 ; list dma:: .blkw 1 ; list mem:: .blkw 1 ; list udc:: .blkw 1 ; list pkts:: .blkw 1 ; list tcbs:: .blkw 1 ; list ucbs:: .blkw 4 ; *byte rx$sector:: .blkw 1 ; *byte id$table:: .blkb 18.*4. ; byte rx$opcode:: .blkw 1 ; word rx$number:: .blkw 1 ; word fpl:: .blkw 1 ; word fps:: .blkw 1 ; word reg$7:: .blkw 1 ; word reg$8:: .blkw 1 ; word reg$9:: .blkw 1 ; word pd$mask: .blkw 1 ; word ha$time:: .blkw 1 ; word sd$time:: .blkw 1 ; word mo$time:: .blkw 1 ; word cd$time:: .blkw 1 ; word pd$flag:: .blkw 1 ; word ha$flag:: .blkw 1 ; word sd$flag:: .blkw 1 ; word udc$flag:: .blkw 1 ; word dma.flag:: .blkw 1 ; word clk$flag:: .blkw 1 ; word ipr$flag:: .blkw 1 ; word saw.flag:: .blkw 1 ; word sec$flag:: .blkw 1 ; word total$sectors:: .blkw 1 ; word unit$base:: .blkw 1 ; word credits:: .blkw 1 ; word vector:: .blkw 1 ; word udc$bug:: .blkw 1 ; word main$stack:: .blkw main$size ; word poll$stack:: .blkw poll$size ; word scan$stack:: .blkw scan$size ; word time$stack:: .blkw time$size ; word purge$flag:: .blkw 2 ; long main$jcb:: .blkw 4 ; $jcb poll$jcb:: .blkw 4 ; $jcb scan$jcb:: .blkw 4 ; $jcb time$jcb:: .blkw 4 ; $jcb work$jcb:: .blkw 4*4 ; $jcb $ccb.flags:: .blkw 1 ; $ccb $ccb.state:: .blkw 1 ; $ccb $ccb.timeout:: .blkw 1 ; $ccb $ccb.type:: .blkw 1 ; $ccb $pcb:: .blkw 8. ; $pcb $tcb:: .blkw 28. * max$packets ; $tcb $ucb:: .blkw 49. * 4. ; $ucb $pkt:: .blkb 66. * max$packets ; $pkt cmd.ring:: .blkw 7. ; $ring rsp.ring:: .blkw 7. ; $ring . = 110416 .blkw 20 ; kernel stack kstack:: ; 110456 .blkw 4 ; null stack nstack:: ; 110466 intlev::.blkw 1 ; interrupt level usersp::.blkw 1 ; user stack pointer curjob::.blkw 1 ; current job pointer runjob::.blkw 1 ; list of running jobs hibjob::.blkw 1 ; list of hibernating jobs ;.psect c$buff d, rw data:: .blkb data$size+4 temp:: .blkb 512.+4. work$stack:: .blkw work$size*4 data$end = . ;.psect c$code i, r .=savepc rx$table:: 002202: 001401 .byte 1., 3. 002204: 003405 .byte 5., 7. 002206: 001011 .byte 9., 2. 002210: 003004 .byte 4., 6. ; .. 002212: 005010 .byte 8., 10. ; .. 002214: 002403 .byte 3., 5. ; .. 002216: 004407 .byte 7., 9. ; .. 002220: 002001 .byte 1., 4. ; .. 002222: 004006 .byte 6., 8. ; .. 002224: 001012 .byte 10., 2. ; .. 002226: 003405 .byte 5., 7. ; .. 002230: 000411 .byte 9., 1. ; .. 002232: 003003 .byte 3., 6. ; .. 002234: 005010 .byte 8., 10. ; .. 002236: 002002 .byte 2., 4. ; .. 002240: 004407 .byte 7., 9. ; .. 002242: 001401 .byte 1., 3. ; .. 002244: 004005 .byte 5., 8. ; .. 002246: 001012 .byte 10., 2. ; .. 002250: 003004 .byte 4., 6. ; .. 002252: 000411 .byte 9., 1. ; .. 002254: 002403 .byte 3., 5. ; .. 002256: 005007 .byte 7., 10. ; .. 002260: 002002 .byte 2., 4. ; .. 002262: 004006 .byte 6., 8. ; .. ..bit0:: 002264: 000001 .word 1. 002266: 000002 .word 2. 002270: 000004 .word 4. 002272: 000010 .word 8. ..bit1:: 002274: 000020 .word 16. 002276: 000040 .word 32. 002300: 000100 .word 64. 002302: 000200 .word 128. ; lcl$prog:: .ascii /FORMAT/ 002312: 000011 .word pf$sta!pf$sdd 002314: 063574 .word format 002314: 000001 .word 1 002320: 000074 .word 60 ;-------------------------------------------------------- ; ; File: clear.c ; ; clear( ) clear:: 002322: 004567 074552 jsr r5,csv$ ; 002326: 012767 000074 100316 mov #74,102652 ; 002334: 012767 100000 100304 mov #100000,102646 ; 002342: 012767 000423 100304 mov #423,102654 ; 002350: 012767 000074 100314 mov #74,102672 ; 002356: 004767 010150 call init$udc 002362: 012746 000006 mov #6,-(sp) ; 002366: 016746 135414 mov r$fps,-(sp) ; 002372: 042716 140377 bic #140377,(sp) ; 002376: 004767 074002 call 76404 ; 002402: 022626 cmp (sp)+,(sp)+ ; 002404: 010067 075642 mov r0,100252 ; 002410: 005767 075644 tst 100260 ; 002414: 001403 beq 2424 ; 002416: 042767 177603 075626 bic #177603,100252 ; 002424: 012767 000017 075622 mov #17,100254 ; 002432: 012767 000075 075556 mov #75,100216 ; 002440: 012703 105646 mov #105646,r3 ; 002444: 012702 102676 mov #102676,r2 ; 002450: 012704 000024 mov #24,r4 ; 002454: 000420 br 2516 ; ; 002456: 010346 mov r3,-(sp) ; 002460: 012746 100050 mov #100050,-(sp) ; 002464: 004767 041120 call $enq.head 002470: 022626 cmp (sp)+,(sp)+ ; 002472: 010246 mov r2,-(sp) ; 002474: 012746 100052 mov #100052,-(sp) ; 002500: 004767 041104 call $enq.head 002504: 022626 cmp (sp)+,(sp)+ ; 002506: 062703 000102 add #102,r3 ; 002512: 062702 000070 add #70,r2 ; 002516: 005304 dec r4 ; 002520: 002356 bge 2456 ; 002522: 000167 074366 jmp cret$ ; ;-------------------------------------------------------- ; ; File: mscp.c ; ; do$mscp( pkt ) ; do$mscp:: 002526: 004567 074346 jsr r5,csv$ ; w.fx 002532: 016504 000004 mov 4(r5),r4 ; D... 002536: 116400 000016 movb 16(r4),r0 ; .... 002542: 000476 br 2740 ; >. ; op$abo: 002544: 010446 mov r4,-(sp) ; &. 002546: 004767 042266 call do$abo ; w.6D 002552: 005726 tst (sp)+ ; V. 002554: 000511 br 3000 ; I. ; op$avl: 002556: 010446 mov r4,-(sp) ; &. 002560: 004767 043046 call do$avl ; w.&F 002564: 005726 tst (sp)+ ; V. 002566: 000504 br 3000 ; D. ; op$new: op$fmt: 002570: 010446 mov r4,-(sp) ; &. 002572: 004767 045462 call do$fmt ; w.2K 002576: 005726 tst (sp)+ ; V. 002600: 000477 br 3000 ; ?. ; op$gcs: 002602: 010446 mov r4,-(sp) ; &. 002604: 004767 047152 call do$gcs ; w.jN 002610: 005726 tst (sp)+ ; V. 002612: 000472 br 3000 ; :. ; op$gus: 002614: 010446 mov r4,-(sp) ; &. 002616: 004767 047552 call do$gus ; w.jO 002622: 005726 tst (sp)+ ; V. 002624: 000465 br 3000 ; 5. ; op$onl: 002626: 010446 mov r4,-(sp) ; &. 002630: 004767 050142 call do$onl ; w.bP 002634: 005726 tst (sp)+ ; V. 002636: 000460 br 3000 ; 0. ; op$scc: 002640: 010446 mov r4,-(sp) ; &. 002642: 004767 053654 call do$scc ; w.,W 002646: 005726 tst (sp)+ ; V. 002650: 000453 br 3000 ; +. ; op$suc: 002652: 010446 mov r4,-(sp) ; &. 002654: 004767 054432 call do$suc ; w..Y 002660: 005726 tst (sp)+ ; V. 002662: 000446 br 3000 ; &. ; op$acc: op$ers: op$cmd: op$rd: op$wr: 002664: 010446 mov r4,-(sp) ; &. 002666: 004767 051634 call do$rw ; w..S 002672: 005726 tst (sp)+ ; V. 002674: 000441 br 3000 ; !. ; op$dab: op$ccd: op$flu: 002676: 152764 000200 000016 bisb #200,16(r4) ; tU.... 002704: 105064 000017 clrb 17(r4) ; 4... 002710: 005064 000020 clr 20(r4) ; 4... 002714: 000420 br 2756 ; .. ; op$default: 002716: 112764 000200 000016 movb #200,16(r4) ; t..... 002724: 105064 000017 clrb 17(r4) ; 4... 002730: 012764 004001 000020 mov #4001,20(r4) ; t..... 002736: 000407 br 2756 ; .. ; 002740: 005300 dec r0 ; @. 002742: 020027 000056 cmp r0,#56 ; . .. 002746: 101363 bhi 2716 ; s. 002750: 006300 asl r0 ; @. 002752: 000170 077132 jmp @swmscp(r0) ; x.Z~ ; 002756: 012764 000014 000002 mov #14,2(r4) ; t..... 002764: 105064 000004 clrb 4(r4) ; 4... 002770: 010446 mov r4,-(sp) ; &. 002772: 004767 030520 call put.packet ; w.P1 002776: 005726 tst (sp)+ ; V. 003000: 000167 074110 jmp cret$ ; w.Hx ;-------------------------------------------------------- ; ; File: dup.c ; ; ; do$dup( pkt ) ; do$dup:: 003004: 004567 074070 jsr r5,csv$ ; w.8x 003010: 016504 000004 mov 4(r5),r4 ; D... 003014: 116400 000016 movb 16(r4),r0 ; .... 003020: 000442 br 3126 ; ". ; op$ap: 003022: 010446 mov r4,-(sp) ; &. 003024: 004767 042504 call do$ap ; w.DE 003030: 005726 tst (sp)+ ; V. 003032: 000460 br 3174 ; 0. ; op$elp: 003034: 010446 mov r4,-(sp) ; &. 003036: 004767 044320 call do$elp ; w.PH 003042: 005726 tst (sp)+ ; V. 003044: 000453 br 3174 ; +. ; op$esp: 003046: 010446 mov r4,-(sp) ; &. 003050: 004767 044612 call do$esp ; w..I 003054: 005726 tst (sp)+ ; V. 003056: 000446 br 3174 ; &. ; op$gds: 003060: 010446 mov r4,-(sp) ; &. 003062: 004767 047146 call do$gds ; w.fN 003066: 005726 tst (sp)+ ; V. 003070: 000441 br 3174 ; !. ; op$rcv: 003072: 010446 mov r4,-(sp) ; &. 003074: 004767 051034 call do$rcv ; w..R 003100: 005726 tst (sp)+ ; V. 003102: 000434 br 3174 ; .. ; op$snd: 003104: 010446 mov r4,-(sp) ; &. 003106: 004767 053630 call do$snd ; w..W 003112: 005726 tst (sp)+ ; V. 003114: 000427 br 3174 ; .. ; dup$default: 003116: 012764 004001 000020 mov #4001,20(r4) ; t..... 003124: 000407 br 3144 ; .. ; 003126: 005300 dec r0 ; @. 003130: 020027 000005 cmp r0,#5 ; . .. 003134: 101370 bhi 3116 ; x. 003136: 006300 asl r0 ; @. 003140: 000170 077270 jmp @swdup(r0) ; x.8~ ; 003144: 112764 000200 000016 movb #200,16(r4) ; t..... 003152: 012764 000014 000002 mov #14,2(r4) ; t..... 003160: 105064 000004 clrb 4(r4) ; 4... 003164: 010446 mov r4,-(sp) ; &. 003166: 004767 030324 call put.packet ; w.T0 003172: 005726 tst (sp)+ ; V. 003174: 000167 073714 jmp cret$ ; w.Lw ; ;-------------------------------------------------------- ; ; File: uqssp.mac ; init:: 003200: 010246 mov r2,-(sp) ; 003202: 010346 mov r3,-(sp) ; 003204: 010446 mov r4,-(sp) ; 003206: 012746 100044 mov #mem,-(sp) ; 003212: 004767 041022 call $acquire 003216: 042767 000002 077424 bic #2,$ccb.state ; $ccb.state 003224: 052767 000001 077416 bis #1,$ccb.state ; $ccb.state 003232: 005767 075006 tst saw.flag ; 003236: 001004 bne 3250 ; 003240: 012737 005500 160210 mov #5500,@#w$sard ; 003246: 000771 br 3232 ; ; 003250: 005367 074770 dec saw.flag ; w.xy 003254: 013704 160012 mov @#r$sawr,r4 ; 003260: 100364 bpl 3232 ; 003262: 032704 040000 bit #40000,r4 ; 003266: 001410 beq 3310 ; 003270: 010437 160210 mov r4,@#w$sard ; 003274: 005767 074744 tst saw.flag ; w.dy 003300: 001774 beq 3272 ; 003302: 013704 160012 mov @#r$sawr,r4 ; 003306: 000770 br 3270 ; ; 003310: 010400 mov r4,r0 ; 003312: 042700 177600 bic #177600,r0 ; 003316: 006300 asl r0 ; 003320: 006300 asl r0 ; 003322: 010067 074730 mov r0,vector ; 003326: 010037 160214 mov r0,@#w$vec ; 003332: 010400 mov r4,r0 ; 003334: 000300 swab r0 ; 003336: 006200 asr r0 ; 003340: 006200 asr r0 ; 003342: 006200 asr r0 ; 003344: 012701 000001 mov #1,r1 ; 003350: 042700 177770 bic #177770,r0 ; 003354: 001402 beq 3362 ; 003356: 006301 asl r1 ; 003360: 077002 sob r0,3356 ; 003362: 010167 104740 mov r1,110326 ; cmd.ring->size 003366: 005301 dec r1 ; 003370: 006301 asl r1 ; 003372: 006301 asl r1 ; 003374: 005101 com r1 ; 003376: 010167 104726 mov r1,110330 ; cmd.ring->mask 003402: 010400 mov r4,r0 ; 003404: 000300 swab r0 ; 003406: 012701 000001 mov #1,r1 ; 003412: 042700 177770 bic #177770,r0 ; 003416: 001402 beq 3424 ; 003420: 006301 asl r1 ; 003422: 077002 sob r0,3420 ; 003424: 010167 104714 mov r1,110344 ; rsp.ring->size 003430: 005301 dec r1 ; 003432: 006301 asl r1 ; 003434: 006301 asl r1 ; 003436: 005101 com r1 ; 003440: 010167 104702 mov r1,110346 ; rsp.ring->mask 003444: 012716 100046 mov #udc,(sp) ; 003450: 004767 040564 call $acquire ; 003454: 012716 114600 mov #114600,(sp) ; 003460: 012746 112600 mov #112600,-(sp) ; 003464: 004767 055162 call t$port ; 003470: 005726 tst (sp)+ ; 003472: 005700 tst r0 ; 003474: 001403 beq 3504 ; 003476: 010016 mov r0,(sp) ; 003500: 004767 031626 call fatal.error ; 003504: 004767 007022 call init$udc ; 003510: 012716 100046 mov #udc,(sp) ; 003514: 004767 040614 call $release ; 003520: 012700 010000 mov #10000,r0 ; 003524: 010401 mov r4,r1 ; 003526: 000301 swab r1 ; 003530: 150100 bisb r1,r0 ; 003532: 010037 160210 mov r0,@#w$sard ; 003536: 004767 000576 call poke.host ; 003542: 013703 160012 mov @#r$sawr,r3 ; 003546: 012700 020000 mov #20000,r0 ; 003552: 150400 bisb r4,r0 ; 003554: 010037 160210 mov r0,@#w$sard ; 003560: 004767 000554 call poke.host ; 003564: 013702 160012 mov @#r$sawr,r2 ; 003570: 032702 100000 bit #100000,r2 ; 003574: 001423 beq 3644 ; 003576: 005067 074440 clr 100242 ; 003602: 005037 160210 clr @#w$sard ; 003606: 005767 074432 tst saw.flag ; 003612: 001775 beq 3606 ; 003614: 005367 074424 dec saw.flag ; 003620: 005737 160012 tst @#r$sawr ; 003624: 001404 beq 3636 ; 003626: 012716 000025 mov #25,(sp) ; 003632: 004767 031474 call fatal.error ; 003636: 005767 074400 tst 100242 ; ipr_flag 003642: 001775 beq 3636 ; 003644: 010301 mov r3,r1 ; 003646: 042701 000001 bic #1,r1 ; 003652: 010200 mov r2,r0 ; 003654: 042700 100000 bic #100000,r0 ; ringbase 003660: 010067 104450 mov r0,110334 ; rsp.ring->base 003664: 010167 104446 mov r1,110336 ; rsp.ring->base+2 003670: 010067 104422 mov r0,110316 ; cmd.ring->base 003674: 010167 104420 mov r1,110320 ; cmd.ring->base+2 003700: 016702 104440 mov 110344,r2 ; rsp.ring->size 003704: 006302 asl r2 ; 003706: 006302 asl r2 ; *4 003710: 060267 104404 add r2,110320 ; cmd.ring->base += r2 003714: 005567 104376 adc 110316 ; 003720: 162701 000002 sub #2,r1 ; 003724: 005600 sbc r0 ; 003726: 010067 104406 mov r0,110340 ; rsp.ring->flag 003732: 010167 104404 mov r1,110342 ; rsp.ring->flag+2 003736: 162701 000002 sub #2,r1 ; 003742: 005600 sbc r0 ; 003744: 010067 104352 mov r0,110322 ; cmd.ring->flag 003750: 010167 104350 mov r1,110324 ; cmd.ring->flag+2 003754: 016702 104364 mov 110344,r2 ; cmd.ring->size 003760: 066702 104342 add 110326,r2 ; +rsp.ring->size 003764: 005202 inc r2 ; 003766: 032703 000001 bit #1,r3 ; PI flag? 003772: 001414 beq 4024 ; 003774: 162701 000002 sub #2,r1 ; 004000: 005600 sbc r0 ; 004002: 010067 076534 mov r0,102542 ; 004006: 010167 076532 mov r1,102544 ; 004012: 005202 inc r2 ; 004014: 162701 000002 sub #2,r1 ; 004020: 005600 sbc r0 ; 004022: 000404 br 4034 ; ; 004024: 005067 076512 clr 102542 ; 004030: 005067 076510 clr 102544 ; 004034: 010216 mov r2,(sp) ; 004036: 010146 mov r1,-(sp) ; 004040: 010046 mov r0,-(sp) ; 004042: 004767 000132 call test.memory ; erase host memory 004046: 022626 cmp (sp)+,(sp)+ ; 004050: 005067 104256 clr 110332 ; rsp.ring->index = 0 004054: 005067 104270 clr 110350 ; cmd.ring->index = 0 004060: 012737 040464 160210 mov #40464,@#w$sard ; 004066: 004767 000246 call poke.host ; write_sa 004072: 013701 160012 mov @#r$sawr,r1 ; 004076: 032701 000001 bit #1,r1 ; 004102: 001773 beq 4072 ; 004104: 032701 000002 bit #2,r1 ; 004110: 001411 beq 4134 ; 004112: 005767 073702 tst 100020 ; 004116: 001406 beq 4134 ; 004120: 016716 073674 mov 100020,(sp) ; 004124: 004767 047616 call do.plf ; 004130: 005067 073664 clr 100020 ; 004134: 042767 000001 076506 bic #1,102650 ; ccb.state 004142: 052767 000002 076500 bis #2,102650 ; ccb.state 004150: 012716 100044 mov #mem,(sp) ; 004154: 004767 040154 call $release 004160: 016737 074072 160210 mov vector,@#w$sard ; 004166: 005726 tst (sp)+ ; 004170: 012604 mov (sp)+,r4 ; 004172: 012603 mov (sp)+,r3 ; 004174: 012602 mov (sp)+,r2 ; 004176: 000207 return ; ; test.memory:: 004200: 012700 110600 mov #data,r0 ; 004204: 016601 000006 mov 6(sp),r1 ; 004210: 005020 clr (r0)+ ; 004212: 005020 clr (r0)+ ; 004214: 077103 sob r1,4210 ; 004216: 012746 100042 mov #dma,-(sp) ; 004222: 004767 040012 call $acquire 004226: 012737 000022 160006 mov #22,@#rw$csr ; 004234: 012737 110600 140000 mov #data,@#140000 ; 004242: 016637 000006 160200 mov 6(sp),@#w$q22l ; 004250: 016637 000004 160202 mov 4(sp),@#w$q22h ; 004256: 016600 000010 mov 10(sp),r0 ; 004262: 006300 asl r0 ; 004264: 010037 160204 mov r0,@#w$wcnt ; 004270: 005237 160006 inc @#rw$csr ; 004274: 032737 000001 160006 bit #1,@#rw$csr ; 004302: 001374 bne 4274 ; 004304: 032737 000300 160006 bit #300,@#rw$csr ; 004312: 001404 beq 4324 ; 004314: 012716 000007 mov #7,(sp) ; 004320: 004767 031006 call fatal.error 004324: 012716 100042 mov #dma,(sp) ; 004330: 004767 040000 call $release 004334: 005726 tst (sp)+ ; 004336: 000207 return ; poke.host:: 004340: 032704 000200 bit #200,r4 ; 004344: 001405 beq 4360 ; 004346: 005767 073704 tst vector ; 004352: 001402 beq 4360 ; 004354: 005037 160216 clr @#w$req ; 004360: 005767 073660 tst saw.flag 004364: 001775 beq 4360 ; 004366: 005367 073652 dec saw.flag 004372: 000207 return ; ;-------------------------------------------------------- ; ; File: disk.c ; ; word rd$cmd( tcb ) rd$cmd:: 004374: 004567 072500 jsr r5,csv$ ; w.@u 004400: 016504 000004 mov 4(r5),r4 ; D... 004404: 005003 clr r3 ; .. 004406: 016402 000002 mov 2(r4),r2 ; .... 004412: 036427 000024 000040 bit 24(r4),#40 ; .=.. . 004420: 001466 beq 4576 ; 6. 004422: 166264 000010 000010 sub 10(r2),10(r4) ; 4l.... 004430: 005664 000006 sbc 6(r4) ; 4... 004434: 166264 000006 000006 sub 6(r2),6(r4) ; 4l.... 004442: 012746 100044 mov #mem,-(sp) ; f.$. 004446: 004767 037566 call $acquire ; w.v? 004452: 005726 tst (sp)+ ; V. 004454: 012746 110600 mov #data,-(sp) ; f... 004460: 016400 000010 mov 10(r4),r0 ; .... 004464: 010046 mov r0,-(sp) ; &. 004466: 010446 mov r4,-(sp) ; &. 004470: 004767 002724 call rd$rct ; w.T. 004474: 062706 000006 add #6,sp ; Fe.. 004500: 010003 mov r0,r3 ; .. 004502: 001134 bne 4774 ; \. 004504: 012746 100042 mov #dma,-(sp) ; f.". 004510: 004767 037524 call $acquire ; w.T? 004514: 005726 tst (sp)+ ; V. 004516: 016467 000004 103640 mov 4(r4),110364 ; 7... . 004524: 012746 001000 mov #1000,-(sp) ; f... 004530: 012746 110600 mov #data,-(sp) ; f... 004534: 016446 000020 mov 20(r4),-(sp) ; &... 004540: 016446 000016 mov 16(r4),-(sp) ; &... 004544: 004767 030050 call put.buffer ; w.(0 004550: 062706 000010 add #10,sp ; Fe.. 004554: 010064 000060 mov r0,60(r4) ; 4.0. 004560: 001405 beq 4574 ; .. 004562: 010446 mov r4,-(sp) ; &. 004564: 004767 005272 call st$err ; w.:. 004570: 005726 tst (sp)+ ; V. 004572: 010003 mov r0,r3 ; .. 004574: 000472 br 4762 ; :. ; 004576: 066264 000046 000010 add 46(r2),10(r4) ; 4l&... 004604: 005564 000006 adc 6(r4) ; t... 004610: 066264 000044 000006 add 44(r2),6(r4) ; 4l$... 004616: 036227 000030 000004 bit 30(r2),#4 ; .<.... 004624: 001404 beq 4636 ; .. 004626: 010446 mov r4,-(sp) ; &. 004630: 004767 036276 call calc.pbn ; w.>< 004634: 005726 tst (sp)+ ; V. 004636: 012746 100044 mov #mem,-(sp) ; f.$. 004642: 004767 037372 call $acquire ; w.z> 004646: 005726 tst (sp)+ ; V. 004650: 016401 000014 mov 14(r4),r1 ; .... 004654: 016400 000012 mov 12(r4),r0 ; .... 004660: 162701 000001 sub #1,r1 ; Ae.. 004664: 005600 sbc r0 ; .. 004666: 002434 blt 4760 ; .. 004670: 026427 000014 022000 cmp 14(r4),#22000 ; .-...$ 004676: 101006 bhi 4714 ; .. 004700: 005764 000012 tst 12(r4) ; t... 004704: 001003 bne 4714 ; .. 004706: 016446 000014 mov 14(r4),-(sp) ; &... 004712: 000402 br 4720 ; .. ; 004714: 012746 022000 mov #22000,-(sp) ; f..$ 004720: 012746 110600 mov #data,-(sp) ; f... 004724: 010446 mov r4,-(sp) ; &. 004726: 004767 003372 call fill$tcb ; w.z. 004732: 062706 000006 add #6,sp ; Fe.. 004736: 012746 000001 mov #1,-(sp) ; f... 004742: 010446 mov r4,-(sp) ; &. 004744: 004767 001150 call rd$seg ; w.h. 004750: 022626 cmp (sp)+,(sp)+ ; .% 004752: 010003 mov r0,r3 ; .. 004754: 001007 bne 4774 ; .. 004756: 000734 br 4650 ; \. ; 004760: 000405 br 4774 ; .. ; 004762: 012746 100042 mov #dma,-(sp) ; f.". 004766: 004767 037342 call $release ; w.b> 004772: 005726 tst (sp)+ ; V. 004774: 012746 100044 mov #mem,-(sp) ; f.$. 005000: 004767 037330 call $release ; w.X> 005004: 005726 tst (sp)+ ; V. 005006: 010300 mov r3,r0 ; @. 005010: 000167 072100 jmp cret$ ; w.@t ; wr$cmd( tcb ) wr$cmd:: 005014: 004567 072060 jsr r5,csv$ ; 005020: 016504 000004 mov 4(r5),r4 ; TCB 005024: 005003 clr r3 ; error 005026: 016402 000002 mov 2(r4),r2 ; ucb 005032: 066264 000046 000010 add 46(r2),10(r4) ; TCB.block += UCB.lbnbase 005040: 005564 000006 adc 6(r4) ; 005044: 066264 000044 000006 add 44(r2),6(r4) ; 005052: 036227 000030 000004 bit 30(r2),#4 ; UCB-state & us$rd 005060: 001404 beq 5072 ; 005062: 010446 mov r4,-(sp) ; 005064: 004767 036042 call calc.pbn ; 005070: 005726 tst (sp)+ ; 005072: 012746 100044 mov #mem,-(sp) ; f.$. 005076: 004767 037136 call $acquire ; w.^> 005102: 005726 tst (sp)+ ; V. 005104: 036427 000024 000020 bit 24(r4),#20 ; if(TCB.type & tt$rfq) 005112: 001004 bne 5124 ; .. 005114: 010446 mov r4,-(sp) ; &. 005116: 004767 005302 call zero ; w.B. 005122: 005726 tst (sp)+ ; V. 005124: 016401 000014 mov 14(r4),r1 ; .... 005130: 016400 000012 mov 12(r4),r0 ; .... 005134: 162701 000001 sub #1,r1 ; Ae.. 005140: 005600 sbc r0 ; .. 005142: 002434 blt 5234 ; .. 005144: 026427 000014 022000 cmp 14(r4),#22000 ; .-...$ 005152: 101006 bhi 5170 ; .. 005154: 005764 000012 tst 12(r4) ; t... 005160: 001003 bne 5170 ; .. 005162: 016446 000014 mov 14(r4),-(sp) ; &... 005166: 000402 br 5174 ; .. ; 005170: 012746 022000 mov #22000,-(sp) ; f..$ 005174: 012746 110600 mov #data,-(sp) ; f... 005200: 010446 mov r4,-(sp) ; &. 005202: 004767 003116 call fill$tcb ; w.N. 005206: 062706 000006 add #6,sp ; Fe.. 005212: 012746 000002 mov #2,-(sp) ; f... 005216: 010446 mov r4,-(sp) ; &. 005220: 004767 000674 call rd$seg ; w.<. 005224: 022626 cmp (sp)+,(sp)+ ; .% 005226: 010003 mov r0,r3 ; .. 005230: 001001 bne 5234 ; .. 005232: 000734 br 5124 ; \. ; 005234: 012746 100044 mov #mem,-(sp) ; f.$. 005240: 004767 037070 call $release ; w.8> 005244: 005726 tst (sp)+ ; V. 005246: 010300 mov r3,r0 ; @. 005250: 000167 071640 jmp cret$ ; w. s ; ; word cmd$cmd( tcb ) cmd$cmd:: 005254: 004567 071620 jsr r5,csv$ ; w..s 005260: 162706 000010 sub #10,sp ; word i, j, k, error 005264: 016504 000004 mov 4(r5),r4 ; ucb = TCB.ucb 005270: 005065 177762 clr 177762(r5) ; error = st$suc 005274: 016465 000002 177760 mov 2(r4),177760(r5) ; 5...p. 005302: 036427 000024 000040 bit 24(r4),#40 ; if(TCB.type && tt$rct) 005310: 001403 beq 5320 ; .. 005312: 005000 clr r0 ; .. 005314: 000167 000574 jmp 6114 ; w.|. ; 005320: 016500 177760 mov 177760(r5),r0 ; TCB.block += UCB.lbnbase 005324: 066064 000046 000010 add 46(r0),10(r4) ; 4l&... 005332: 005564 000006 adc 6(r4) ; t... 005336: 066064 000044 000006 add 44(r0),6(r4) ; 4l$... 005344: 016500 177760 mov 177760(r5),r0 ; @.p. 005350: 036027 000030 000004 bit 30(r0),#4 ; .<.... 005356: 001404 beq 5370 ; .. 005360: 010446 mov r4,-(sp) ; &. 005362: 004767 035544 call calc.pbn ; w.d; 005366: 005726 tst (sp)+ ; V. 005370: 012746 100044 mov #mem,-(sp) ; f.$. 005374: 004767 036640 call $acquire ; w. = 005400: 005726 tst (sp)+ ; V. 005402: 016401 000014 mov 14(r4),r1 ; .... 005406: 016400 000012 mov 12(r4),r0 ; .... 005412: 162701 000001 sub #1,r1 ; Ae.. 005416: 005600 sbc r0 ; .. 005420: 002002 bge 5426 ; .. 005422: 000167 000434 jmp 6062 ; w... ; 005426: 016500 177760 mov 177760(r5),r0 ; @.p. 005432: 036027 000030 000010 bit 30(r0),#10 ; .<.... 005440: 001403 beq 5450 ; .. 005442: 012700 001000 mov #1000,r0 ; @... 005446: 000402 br 5454 ; .. ; 005450: 012700 014000 mov #14000,r0 ; @... 005454: 010065 177770 mov r0,177770(r5) ; 5.x. 005460: 016501 177770 mov 177770(r5),r1 ; A.x. 005464: 006700 sxt r0 ; @. 005466: 166401 000014 sub 14(r4),r1 ; .m.. 005472: 005600 sbc r0 ; .. 005474: 166400 000012 sub 12(r4),r0 ; .m.. 005500: 162701 000001 sub #1,r1 ; Ae.. 005504: 005600 sbc r0 ; .. 005506: 002003 bge 5516 ; .. 005510: 016546 177770 mov 177770(r5),-(sp) ; f.x. 005514: 000403 br 5524 ; .. ; 005516: 016400 000014 mov 14(r4),r0 ; .... 005522: 010046 mov r0,-(sp) ; &. 005524: 012746 110600 mov #data,-(sp) ; f... 005530: 010446 mov r4,-(sp) ; &. 005532: 004767 002566 call fill$tcb ; w.v. 005536: 062706 000006 add #6,sp ; Fe.. 005542: 012746 000001 mov #1,-(sp) ; f... 005546: 010446 mov r4,-(sp) ; &. 005550: 004767 000344 call rd$seg ; w.d. 005554: 022626 cmp (sp)+,(sp)+ ; .% 005556: 010065 177762 mov r0,177762(r5) ; 5.r. 005562: 001145 bne 6076 ; e. 005564: 005065 177770 clr 177770(r5) ; 5.x. 005570: 000526 br 6046 ; V. ; 005572: 016400 000042 mov 42(r4),r0 ; ..". 005576: 166500 177770 sub 177770(r5),r0 ; @mx. 005602: 010065 177764 mov r0,177764(r5) ; 5.t. 005606: 026527 177764 001000 cmp 177764(r5),#1000 ; W-t... 005614: 003403 ble 5624 ; .. 005616: 012765 001000 177764 mov #1000,177764(r5) ; u...t. 005624: 012746 100042 mov #dma,-(sp) ; f.". 005630: 004767 036404 call $acquire ; w..= 005634: 005726 tst (sp)+ ; V. 005636: 016467 000004 102520 mov 4(r4),110364 ; 7...P. 005644: 016546 177764 mov 177764(r5),-(sp) ; f.t. 005650: 012746 132604 mov #132604,-(sp) ; f..5 005654: 016446 000020 mov 20(r4),-(sp) ; &... 005660: 016446 000016 mov 16(r4),-(sp) ; &... 005664: 004767 026720 call get.buffer ; w.P- 005670: 062706 000010 add #10,sp ; Fe.. 005674: 010064 000060 mov r0,60(r4) ; 4.0. 005700: 001407 beq 5720 ; .. 005702: 010446 mov r4,-(sp) ; &. 005704: 004767 004152 call st$err ; w.j. 005710: 005726 tst (sp)+ ; V. 005712: 010065 177762 mov r0,177762(r5) ; 5.r. 005716: 000462 br 6064 ; 2. ; 005720: 012746 100042 mov #dma,-(sp) ; f.". 005724: 004767 036404 call $release ; w..= 005730: 005726 tst (sp)+ ; V. 005732: 066564 177764 000020 add 177764(r5),20(r4) ; tmt... 005740: 005564 000016 adc 16(r4) ; t... 005744: 012703 110600 mov #data,r3 ; C... 005750: 066503 177770 add 177770(r5),r3 ; Cmx. 005754: 012702 132604 mov #132604,r2 ; B..5 005760: 016500 177764 mov 177764(r5),r0 ; @.t. 005764: 000241 clc ; !. 005766: 006000 ror r0 ; .. 005770: 010065 177766 mov r0,177766(r5) ; 5.v. 005774: 000416 br 6032 ; .. ; 005776: 022322 cmp (r3)+,(r2)+ ; R$ 006000: 001414 beq 6032 ; .. 006002: 016400 000042 mov 42(r4),r0 ; ..". 006006: 166500 177770 sub 177770(r5),r0 ; @mx. 006012: 060064 000014 add r0,14(r4) ; 4`.. 006016: 005564 000012 adc 12(r4) ; t... 006022: 012765 000007 177762 mov #7,177762(r5) ; u...r. 006030: 000422 br 6076 ; .. ; 006032: 005365 177766 dec 177766(r5) ; u.v. 006036: 002357 bge 5776 ; o. 006040: 062765 001000 177770 add #1000,177770(r5) ; ue..x. 006046: 026564 177770 000042 cmp 177770(r5),42(r4) ; t-x.". 006054: 002646 blt 5572 ; &. 006056: 000167 177320 jmp 5402 ; w.P~ ; 006062: 000405 br 6076 ; .. ; 006064: 012746 100042 mov #dma,-(sp) ; f.". 006070: 004767 036240 call $release ; w. < 006074: 005726 tst (sp)+ ; V. 006076: 012746 100044 mov #mem,-(sp) ; f.$. 006102: 004767 036226 call $release ; w..< 006106: 005726 tst (sp)+ ; V. 006110: 016500 177762 mov 177762(r5),r0 ; @.r. 006114: 000167 070774 jmp cret$ ; w.|q ; ; word rd$seg( tcb ) rd$seg:: 006120: 004567 070754 jsr r5,csv$ ; w.lq 006124: 005746 tst -(sp) ; f. 006126: 016504 000004 mov 4(r5),r4 ; D... 006132: 016403 000002 mov 2(r4),r3 ; .... 006136: 005764 000036 tst 36(r4) ; t... 006142: 003525 ble 6416 ; U. 006144: 026527 000006 000001 cmp 6(r5),#1 ; W-.... 006152: 001005 bne 6166 ; .. 006154: 010446 mov r4,-(sp) ; &. 006156: 004767 030666 call read ; w.61 006162: 005726 tst (sp)+ ; V. 006164: 000404 br 6176 ; .. ; 006166: 010446 mov r4,-(sp) ; &. 006170: 004767 030704 call write ; w.D1 006174: 005726 tst (sp)+ ; V. 006176: 010065 177770 mov r0,177770(r5) ; 5.x. 006202: 001007 bne 6222 ; .. 006204: 005764 000056 tst 56(r4) ; t... 006210: 001404 beq 6222 ; .. 006212: 010446 mov r4,-(sp) ; &. 006214: 004767 003642 call st$err ; w.". 006220: 005726 tst (sp)+ ; V. 006222: 005764 000040 tst 40(r4) ; t. . 006226: 003406 ble 6244 ; .. 006230: 016446 000040 mov 40(r4),-(sp) ; &. . 006234: 010446 mov r4,-(sp) ; &. 006236: 004767 002532 call update$tcb ; w.Z. 006242: 022626 cmp (sp)+,(sp)+ ; .% 006244: 036427 000024 000400 bit 24(r4),#400 ; .=.... 006252: 001403 beq 6262 ; .. 006254: 012700 000002 mov #2,r0 ; @... 006260: 000457 br 6420 ; /. ; 006262: 005765 177770 tst 177770(r5) ; u.x. 006266: 001452 beq 6414 ; *. 006270: 036527 177770 000030 bit 177770(r5),#30 ; W=x... 006276: 001441 beq 6402 ; !. 006300: 036327 000030 000004 bit 30(r3),#4 ; W<.... 006306: 001435 beq 6402 ; .. 006310: 016546 000006 mov 6(r5),-(sp) ; f... 006314: 010446 mov r4,-(sp) ; &. 006316: 004767 000102 call rd$rpl ; w.B. 006322: 022626 cmp (sp)+,(sp)+ ; .% 006324: 010065 177766 mov r0,177766(r5) ; 5.v. 006330: 001415 beq 6364 ; .. 006332: 036527 177766 000002 bit 177766(r5),#2 ; W=v... 006340: 001403 beq 6350 ; .. 006342: 012700 000010 mov #10,r0 ; @... 006346: 000424 br 6420 ; .. ; 006350: 010446 mov r4,-(sp) ; &. 006352: 004767 003504 call st$err ; w.D. 006356: 005726 tst (sp)+ ; V. 006360: 000417 br 6420 ; .. ; 006362: 000406 br 6400 ; .. ; 006364: 012746 000001 mov #1,-(sp) ; f... 006370: 010446 mov r4,-(sp) ; &. 006372: 004767 002376 call update$tcb ; w.~. 006376: 022626 cmp (sp)+,(sp)+ ; .% 006400: 000405 br 6414 ; .. ; 006402: 010446 mov r4,-(sp) ; &. 006404: 004767 003452 call st$err ; w.*. 006410: 005726 tst (sp)+ ; V. 006412: 000402 br 6420 ; .. ; 006414: 000650 br 6136 ; (. ; 006416: 005000 clr r0 ; .. 006420: 000167 070470 jmp cret$ ; w.8q ; ; word rd$rpl( tcb ) rd$rpl:: 006424: 004567 070450 jsr r5,csv$ ; w.(q 006430: 162706 000004 sub #4,sp ; Fe.. 006434: 016504 000004 mov 4(r5),r4 ; D... 006440: 012746 100052 mov #100052,-(sp) ; f.*. 006444: 004767 035254 call $deqf.head ; w.,: 006450: 005726 tst (sp)+ ; V. 006452: 010002 mov r0,r2 ; .. 006454: 016403 000002 mov 2(r4),r3 ; .... 006460: 016401 000010 mov 10(r4),r1 ; .... 006464: 016400 000006 mov 6(r4),r0 ; .... 006470: 166301 000046 sub 46(r3),r1 ; Al&. 006474: 005600 sbc r0 ; .. 006476: 166300 000044 sub 44(r3),r0 ; @l$. 006502: 010065 177764 mov r0,177764(r5) ; 5.t. 006506: 010165 177766 mov r1,177766(r5) ; u.v. 006512: 016462 000002 000002 mov 2(r4),2(r2) ; 2..... 006520: 016462 000004 000004 mov 4(r4),4(r2) ; 2..... 006526: 016546 177766 mov 177766(r5),-(sp) ; f.v. 006532: 016546 177764 mov 177764(r5),-(sp) ; f.t. 006536: 010246 mov r2,-(sp) ; &. 006540: 004767 010336 call get$rbn ; w.^. 006544: 062706 000006 add #6,sp ; Fe.. 006550: 010065 177770 mov r0,177770(r5) ; 5.x. 006554: 001402 beq 6562 ; .. 006556: 000167 000612 jmp 7374 ; w... ; 006562: 005762 000046 tst 46(r2) ; r.&. 006566: 002146 bge 7104 ; f. 006570: 016462 000006 000006 mov 6(r4),6(r2) ; 2..... 006576: 016462 000010 000010 mov 10(r4),10(r2) ; 2..... 006604: 012701 001000 mov #1000,r1 ; A... 006610: 005000 clr r0 ; .. 006612: 166401 000014 sub 14(r4),r1 ; .m.. 006616: 005600 sbc r0 ; .. 006620: 166400 000012 sub 12(r4),r0 ; .m.. 006624: 162701 000001 sub #1,r1 ; Ae.. 006630: 005600 sbc r0 ; .. 006632: 002405 blt 6646 ; .. 006634: 016401 000014 mov 14(r4),r1 ; .... 006640: 016400 000012 mov 12(r4),r0 ; .... 006644: 000403 br 6654 ; .. ; 006646: 012701 001000 mov #1000,r1 ; A... 006652: 005000 clr r0 ; .. 006654: 010062 000012 mov r0,12(r2) ; 2... 006660: 010162 000014 mov r1,14(r2) ; r... 006664: 016400 000024 mov 24(r4),r0 ; .... 006670: 052700 101000 bis #101000,r0 ; @U.. 006674: 010062 000024 mov r0,24(r2) ; 2... 006700: 016462 000026 000026 mov 26(r4),26(r2) ; 2..... 006706: 016462 000016 000016 mov 16(r4),16(r2) ; 2..... 006714: 016462 000020 000020 mov 20(r4),20(r2) ; 2..... 006722: 016200 000014 mov 14(r2),r0 ; .... 006726: 010046 mov r0,-(sp) ; &. 006730: 016446 000044 mov 44(r4),-(sp) ; &.$. 006734: 010246 mov r2,-(sp) ; &. 006736: 004767 001362 call fill$tcb ; w.r. 006742: 062706 000006 add #6,sp ; Fe.. 006746: 026527 000006 000001 cmp 6(r5),#1 ; W-.... 006754: 001005 bne 6770 ; .. 006756: 010246 mov r2,-(sp) ; &. 006760: 004767 030064 call read ; w.40 006764: 005726 tst (sp)+ ; V. 006766: 000404 br 7000 ; .. ; 006770: 010246 mov r2,-(sp) ; &. 006772: 004767 030102 call write ; w.B0 006776: 005726 tst (sp)+ ; V. 007000: 010065 177770 mov r0,177770(r5) ; 5.x. 007004: 001002 bne 7012 ; .. 007006: 000167 000362 jmp 7374 ; w.r. ; 007012: 005046 clr -(sp) ; &. 007014: 016546 177766 mov 177766(r5),-(sp) ; f.v. 007020: 016546 177764 mov 177764(r5),-(sp) ; f.t. 007024: 010246 mov r2,-(sp) ; &. 007026: 004767 011330 call put$rbn ; w.X. 007032: 062706 000010 add #10,sp ; Fe.. 007036: 010065 177770 mov r0,177770(r5) ; 5.x. 007042: 001154 bne 7374 ; l. 007044: 005762 000046 tst 46(r2) ; r.&. 007050: 002015 bge 7104 ; .. 007052: 016401 000010 mov 10(r4),r1 ; .... 007056: 016400 000006 mov 6(r4),r0 ; .... 007062: 166301 000056 sub 56(r3),r1 ; Al.. 007066: 005600 sbc r0 ; .. 007070: 166300 000054 sub 54(r3),r0 ; @l,. 007074: 010062 000046 mov r0,46(r2) ; 2.&. 007100: 010162 000050 mov r1,50(r2) ; r.(. 007104: 016201 000050 mov 50(r2),r1 ; ..(. 007110: 016200 000046 mov 46(r2),r0 ; ..&. 007114: 066301 000056 add 56(r3),r1 ; Al.. 007120: 005500 adc r0 ; @. 007122: 066300 000054 add 54(r3),r0 ; @l,. 007126: 010062 000006 mov r0,6(r2) ; 2... 007132: 010162 000010 mov r1,10(r2) ; r... 007136: 012701 001000 mov #1000,r1 ; A... 007142: 005000 clr r0 ; .. 007144: 166401 000014 sub 14(r4),r1 ; .m.. 007150: 005600 sbc r0 ; .. 007152: 166400 000012 sub 12(r4),r0 ; .m.. 007156: 162701 000001 sub #1,r1 ; Ae.. 007162: 005600 sbc r0 ; .. 007164: 002405 blt 7200 ; .. 007166: 016401 000014 mov 14(r4),r1 ; .... 007172: 016400 000012 mov 12(r4),r0 ; .... 007176: 000403 br 7206 ; .. ; 007200: 012701 001000 mov #1000,r1 ; A... 007204: 005000 clr r0 ; .. 007206: 010062 000012 mov r0,12(r2) ; 2... 007212: 010162 000014 mov r1,14(r2) ; r... 007216: 016400 000024 mov 24(r4),r0 ; .... 007222: 052700 100000 bis #100000,r0 ; @U.. 007226: 010062 000024 mov r0,24(r2) ; 2... 007232: 016462 000026 000026 mov 26(r4),26(r2) ; 2..... 007240: 016462 000016 000016 mov 16(r4),16(r2) ; 2..... 007246: 016462 000020 000020 mov 20(r4),20(r2) ; 2..... 007254: 016200 000014 mov 14(r2),r0 ; .... 007260: 010046 mov r0,-(sp) ; &. 007262: 016446 000044 mov 44(r4),-(sp) ; &.$. 007266: 010246 mov r2,-(sp) ; &. 007270: 004767 001030 call fill$tcb ; w... 007274: 062706 000006 add #6,sp ; Fe.. 007300: 026527 000006 000002 cmp 6(r5),#2 ; W-.... 007306: 001010 bne 7330 ; .. 007310: 036427 000024 000020 bit 24(r4),#20 ; .=.... 007316: 001004 bne 7330 ; .. 007320: 010446 mov r4,-(sp) ; &. 007322: 004767 003076 call zero ; w.>. 007326: 005726 tst (sp)+ ; V. 007330: 026527 000006 000001 cmp 6(r5),#1 ; W-.... 007336: 001005 bne 7352 ; .. 007340: 010246 mov r2,-(sp) ; &. 007342: 004767 027502 call read ; w.B/ 007346: 005726 tst (sp)+ ; V. 007350: 000404 br 7362 ; .. ; 007352: 010246 mov r2,-(sp) ; &. 007354: 004767 027520 call write ; w.P/ 007360: 005726 tst (sp)+ ; V. 007362: 010065 177770 mov r0,177770(r5) ; 5.x. 007366: 030027 000030 bit r0,#30 ; .0.. 007372: 001207 bne 7012 ; .. 007374: 010246 mov r2,-(sp) ; &. 007376: 012746 100052 mov #100052,-(sp) ; f.*. 007402: 004767 034202 call $enq.head ; w..8 007406: 022626 cmp (sp)+,(sp)+ ; .% 007410: 016500 177770 mov 177770(r5),r0 ; @.x. 007414: 000167 067474 jmp cret$ ; w.= UCB.rccyl ) 013506: 002404 blt 13520 ; 013510: 052767 000010 064470 bis #10,100206 ; reg$7 |= bit3; 013516: 000403 br 13526 ; ; else 013520: 042767 000010 064460 bic #10,100206 ; reg$7 &= ~bit3; 013526: 026765 064454 177770 cmp 100206,177770(r5) ; if( reg$7 != i ) 013534: 001413 beq 13564 ; 013536: 112767 000107 124256 movb #107,w$cmd ; w$cmd = op$srp + 7; 013544: 116767 064436 124246 movb 100206,w$dat ; w$dat = reg$7; 013552: 016746 064454 mov 100232,-(sp) ; 013556: 004767 177060 call put$udc ; put$udc( sd$flag ); 013562: 005726 tst (sp)+ ; ; 013564: 005067 074624 clr 110414 ; 7..y 013570: 036427 000026 000400 bit 26(r4),#400 ; .=.... 013576: 001403 beq 13606 ; .. 013600: 012700 000002 mov #2,r0 ; @... 013604: 000402 br 13612 ; .. ; 013606: 012700 000011 mov #11,r0 ; @... 013612: 010065 177770 mov r0,177770(r5) ; 5.x. 013616: 000167 001012 jmp 14634 ; w... ; 013622: 016467 000034 064234 mov 34(r4),100064 ; 7....h 013630: 036327 000030 002000 bit 30(r3),#2000 ; W<.... 013636: 001416 beq 13674 ; .. 013640: 016700 064220 mov 100064,r0 ; @..h 013644: 005267 064214 inc 100064 ; 7..h 013650: 111000 movb (r0),r0 ; .. 013652: 010065 177764 mov r0,177764(r5) ; 5.t. 013656: 012765 000001 177762 mov #1,177762(r5) ; u...r. 013664: 016465 000036 177760 mov 36(r4),177760(r5) ; 5...p. 013672: 000410 br 13714 ; .. ; 013674: 016465 000034 177764 mov 34(r4),177764(r5) ; 5...t. 013702: 016465 000036 177762 mov 36(r4),177762(r5) ; 5...r. 013710: 005065 177760 clr 177760(r5) ; 5.p. 013714: 112767 000100 124100 movb #100,w$cmd ; w.@.@( 013722: 116467 000044 124070 movb 44(r4),w$dat ; 7.$.8( 013730: 116467 000045 124062 movb 45(r4),w$dat ; 7.%.2( 013736: 105067 124056 clrb w$dat ; 7..( 013742: 116567 177764 124050 movb 177764(r5),w$dat ; w.t.(( 013750: 016400 000030 mov 30(r4),r0 ; .... 013754: 006200 asr r0 ; .. 013756: 006200 asr r0 ; .. 013760: 006200 asr r0 ; .. 013762: 006200 asr r0 ; .. 013764: 042700 177417 bic #177417,r0 ; @E.. 013770: 066400 000032 add 32(r4),r0 ; .m.. 013774: 110067 124020 movb r0,w$dat ; 7..( 014000: 116467 000030 124012 movb 30(r4),w$dat ; 7....( 014006: 116567 177762 124004 movb 177762(r5),w$dat ; w.r..( 014014: 016567 177760 064156 mov 177760(r5),100200 ; w.p.nh 014022: 036427 000024 000010 bit 24(r4),#10 ; .=.... 014030: 001554 beq 14362 ; l. 014032: 005067 064210 clr 100246 ; 7..h 014036: 005067 064206 clr 100250 ; 7..h 014042: 005067 063760 clr 100026 ; 7.pg 014046: 005067 063756 clr 100030 ; 7.ng 014052: 112767 000112 123742 movb #112,w$cmd ; w.J.b' 014060: 012767 000004 064136 mov #4,100224 ; w...^h 014066: 116767 064104 123726 movb 100176,w$cmd ; w.DhV' 014074: 016467 000044 074300 mov 44(r4),110402 ; 7.$.@x 014102: 016467 000016 074276 mov 16(r4),110406 ; 7...>x 014110: 016467 000020 074272 mov 20(r4),110410 ; 7...:x 014116: 016467 000042 074266 mov 42(r4),110412 ; 7.".6x 014124: 012746 100026 mov #100026,-(sp) ; f... 014130: 004767 030264 call $block ; w.40 014134: 005726 tst (sp)+ ; V. 014136: 005767 064062 tst 100224 ; w.2h 014142: 001006 bne 14160 ; .. 014144: 005064 000040 clr 40(r4) ; 4. . 014150: 012700 000101 mov #101,r0 ; @.A. 014154: 000167 000546 jmp 14726 ; w.f. ; 014160: 012746 100042 mov #dma,-(sp) ; f.". 014164: 004767 030050 call $acquire ; w.(0 014170: 005726 tst (sp)+ ; V. 014172: 016467 000004 074164 mov 4(r4),110364 ; 7...tx 014200: 005767 064042 tst 100246 ; w."h 014204: 003451 ble 14330 ; ). 014206: 005367 064034 dec 100246 ; w..h 014212: 005267 064032 inc 100250 ; 7..h 014216: 005767 074170 tst 110412 ; w.xx 014222: 003426 ble 14300 ; .. 014224: 026727 074162 001000 cmp 110412,#1000 ; W-rx.. 014232: 002003 bge 14242 ; .. 014234: 016746 074152 mov 110412,-(sp) ; f.jx 014240: 000402 br 14246 ; .. ; 014242: 012746 001000 mov #1000,-(sp) ; f... 014246: 016746 074130 mov 110402,-(sp) ; f.Xx 014252: 016746 074132 mov 110410,-(sp) ; f.Zx 014256: 016746 074124 mov 110406,-(sp) ; f.Tx 014262: 004767 020332 call put.buffer ; w.Z 014266: 062706 000010 add #10,sp ; Fe.. 014272: 010002 mov r0,r2 ; .. 014274: 050264 000060 bis r2,60(r4) ; 4P0. 014300: 062767 001000 074074 add #1000,110402 ; we..& 014524: 116700 123260 movb r$dat,r0 ; @.0& 014530: 166400 000034 sub 34(r4),r0 ; .m.. 014534: 010064 000040 mov r0,40(r4) ; 4. . 014540: 036527 177766 000100 bit 177766(r5),#100 ; W=v.@. 014546: 001037 bne 14646 ; .. 014550: 000406 br 14566 ; .. ; 014552: 005065 177766 clr 177766(r5) ; 5.v. 014556: 016464 000036 000040 mov 36(r4),40(r4) ; 4... . 014564: 000430 br 14646 ; .. ; 014566: 036527 177766 000010 bit 177766(r5),#10 ; W=v... 014574: 001412 beq 14622 ; .. 014576: 010446 mov r4,-(sp) ; &. 014600: 004767 025550 call apply.ecc ; w.h+ 014604: 005726 tst (sp)+ ; V. 014606: 010065 177766 mov r0,177766(r5) ; 5.v. 014612: 001003 bne 14622 ; .. 014614: 005267 063430 inc 100250 ; 7..g 014620: 000412 br 14646 ; .. ; 014622: 012746 000044 mov #44,-(sp) ; f.$. 014626: 004767 030026 call $sleep ; w..0 014632: 005726 tst (sp)+ ; V. 014634: 005365 177770 dec 177770(r5) ; u.x. 014640: 002402 blt 14646 ; .. 014642: 000167 176754 jmp 13622 ; w.l} ; 014646: 036527 177766 040000 bit 177766(r5),#40000 ; W=v..@ 014654: 001406 beq 14672 ; .. 014656: 036527 177766 000002 bit 177766(r5),#2 ; W=v... 014664: 001402 beq 14672 ; .. 014666: 005364 000040 dec 40(r4) ; t. . 014672: 036527 177766 000002 bit 177766(r5),#2 ; W=v... 014700: 001402 beq 14706 ; .. 014702: 005367 063342 dec 100250 ; w.bf 014706: 026764 063336 000040 cmp 100250,40(r4) ; t-^f . 014714: 001402 beq 14722 ; .. 014716: 000167 176646 jmp 13570 ; w.&} ; 014722: 016500 177766 mov 177766(r5),r0 ; @.v. 014726: 000167 062162 jmp cret$ ; w.rd ; ; word rx$write( tcb ) rx$write:: 014732: 004567 062142 jsr r5,csv$ ; w.bd 014736: 162706 000014 sub #14,sp ; Fe.. 014742: 016504 000004 mov 4(r5),r4 ; D... 014746: 016402 000002 mov 2(r4),r2 ; .... 014752: 012767 000240 063216 mov #240,100176 ; w. ..f 014760: 026462 000030 000064 cmp 30(r4),64(r2) ; 2-..4. 014766: 002404 blt 15000 ; .. 014770: 052767 000004 063200 bis #4,100176 ; wU...f 014776: 000403 br 15006 ; .. ; 015000: 052767 000001 063170 bis #1,100176 ; wU..xf 015006: 005067 063210 clr 100222 ; 7..f 015012: 016765 063170 177770 mov 100206,177770(r5) ; u.xfx. 015020: 052767 000001 063160 bis #1,100206 ; wU..pf 015026: 026462 000030 000066 cmp 30(r4),66(r2) ; 2-..6. 015034: 002404 blt 15046 ; .. 015036: 052767 000010 063142 bis #10,100206 ; wU..bf 015044: 000415 br 15100 ; .. ; 015046: 042767 000010 063132 bic #10,100206 ; wE..Zf 015054: 005767 073334 tst 110414 ; w.\v 015060: 002007 bge 15100 ; .. 015062: 036727 073326 000010 bit 110414,#10 ; W=Vv.. 015070: 001403 beq 15100 ; .. 015072: 052765 000010 177770 bis #10,177770(r5) ; uU..x. 015100: 026765 063102 177770 cmp 100206,177770(r5) ; u-Bfx. 015106: 001450 beq 15230 ; (. 015110: 112767 000107 122704 movb #107,w$cmd ; w.G.D% 015116: 116767 063064 122674 movb 100206,w$dat ; w.4f<% 015124: 016746 063102 mov 100232,-(sp) ; f.Bf 015130: 004767 175506 call put$udc ; w.F{ 015134: 005726 tst (sp)+ ; V. 015136: 016700 063044 mov 100206,r0 ; @.$f 015142: 016546 177770 mov 177770(r5),-(sp) ; f.x. 015146: 040065 177770 bic r0,177770(r5) ; 5@x. 015152: 042600 bic (sp)+,r0 ; .E 015154: 050065 177770 bis r0,177770(r5) ; 5Px. 015160: 036227 000030 001000 bit 30(r2),#1000 ; .<.... 015166: 001403 beq 15176 ; .. 015170: 012701 177766 mov #177766,r1 ; A.v. 015174: 000402 br 15202 ; .. ; 015176: 012701 177776 mov #177776,r1 ; A.~. 015202: 005101 com r1 ; A. 015204: 040165 177770 bic r1,177770(r5) ; u@x. 015210: 005765 177770 tst 177770(r5) ; u.x. 015214: 001405 beq 15230 ; .. 015216: 012746 000764 mov #764,-(sp) ; f.t. 015222: 004767 027432 call $sleep ; w../ 015226: 005726 tst (sp)+ ; V. 015230: 005067 073160 clr 110414 ; 7.pv 015234: 036427 000026 000400 bit 26(r4),#400 ; .=.... 015242: 001403 beq 15252 ; .. 015244: 012700 000002 mov #2,r0 ; @... 015250: 000402 br 15256 ; .. ; 015252: 012700 000011 mov #11,r0 ; @... 015256: 010065 177770 mov r0,177770(r5) ; 5.x. 015262: 000167 001306 jmp 16574 ; w.F. ; 015266: 016467 000034 062570 mov 34(r4),100064 ; 7...xe 015274: 036227 000030 002000 bit 30(r2),#2000 ; .<.... 015302: 001416 beq 15340 ; .. 015304: 016700 062554 mov 100064,r0 ; @.le 015310: 005267 062550 inc 100064 ; 7.he 015314: 111000 movb (r0),r0 ; .. 015316: 010065 177760 mov r0,177760(r5) ; 5.p. 015322: 012765 000001 177756 mov #1,177756(r5) ; u...n. 015330: 016465 000036 177754 mov 36(r4),177754(r5) ; 5...l. 015336: 000410 br 15360 ; .. ; 015340: 016465 000034 177760 mov 34(r4),177760(r5) ; 5...p. 015346: 016465 000036 177756 mov 36(r4),177756(r5) ; 5...n. 015354: 005065 177754 clr 177754(r5) ; 5.l. 015360: 112767 000100 122434 movb #100,w$cmd ; w.@..% 015366: 116467 000044 122424 movb 44(r4),w$dat ; 7.$..% 015374: 116467 000045 122416 movb 45(r4),w$dat ; 7.%..% 015402: 105067 122412 clrb w$dat ; 7..% 015406: 116567 177760 122404 movb 177760(r5),w$dat ; w.p..% 015414: 016400 000030 mov 30(r4),r0 ; .... 015420: 006200 asr r0 ; .. 015422: 006200 asr r0 ; .. 015424: 006200 asr r0 ; .. 015426: 006200 asr r0 ; .. 015430: 042700 177417 bic #177417,r0 ; @E.. 015434: 066400 000032 add 32(r4),r0 ; .m.. 015440: 110067 122354 movb r0,w$dat ; 7.l$ 015444: 116467 000030 122346 movb 30(r4),w$dat ; 7...f$ 015452: 116567 177756 122340 movb 177756(r5),w$dat ; w.n.`$ 015460: 012765 000004 177766 mov #4,177766(r5) ; u...v. 015466: 000446 br 15604 ; &. ; 015470: 012767 000004 062526 mov #4,100224 ; w...Ve 015476: 012746 000124 mov #124,-(sp) ; f.T. 015502: 004767 175134 call put$udc ; w.\z 015506: 005726 tst (sp)+ ; V. 015510: 005767 062510 tst 100224 ; w.He 015514: 001006 bne 15532 ; .. 015516: 005064 000040 clr 40(r4) ; 4. . 015522: 012700 000101 mov #101,r0 ; @.A. 015526: 000167 001060 jmp 16612 ; w.0. ; 015532: 005067 062466 clr 100224 ; 7.6e 015536: 012746 000044 mov #44,-(sp) ; f.$. 015542: 004767 027112 call $sleep ; w.J. 015546: 005726 tst (sp)+ ; V. 015550: 010446 mov r4,-(sp) ; &. 015552: 012746 000002 mov #2,-(sp) ; f... 015556: 004767 175124 call get$udc ; w.Tz 015562: 022626 cmp (sp)+,(sp)+ ; .% 015564: 010065 177762 mov r0,177762(r5) ; 5.r. 015570: 001404 beq 15602 ; .. 015572: 036527 177762 000100 bit 177762(r5),#100 ; W=r.@. 015600: 001401 beq 15604 ; .. 015602: 000403 br 15612 ; .. ; 015604: 005365 177766 dec 177766(r5) ; u.v. 015610: 002327 bge 15470 ; W. 015612: 005765 177762 tst 177762(r5) ; u.r. 015616: 001402 beq 15624 ; .. 015620: 000167 000740 jmp 16564 ; w.`. ; 015624: 016567 177754 062346 mov 177754(r5),100200 ; w.l.fd 015632: 036427 000024 000020 bit 24(r4),#20 ; .=.... 015640: 001002 bne 15646 ; .. 015642: 000167 000510 jmp 16356 ; w.H. ; 015646: 012767 177777 062372 mov #177777,100246 ; w...zd 015654: 005067 062150 clr 100030 ; 7.hd 015660: 016467 000044 072516 mov 44(r4),110404 ; 7.$.Nu 015666: 016467 000016 072512 mov 16(r4),110406 ; 7...Ju 015674: 016467 000020 072506 mov 20(r4),110410 ; 7...Fu 015702: 016467 000042 072502 mov 42(r4),110412 ; 7.".Bu 015710: 012746 100042 mov #dma,-(sp) ; f.". 015714: 004767 026320 call $acquire ; w.P, 015720: 005726 tst (sp)+ ; V. 015722: 016467 000004 072434 mov 4(r4),110364 ; 7....u 015730: 026727 072456 001000 cmp 110412,#1000 ; W-.u.. 015736: 002003 bge 15746 ; .. 015740: 016746 072446 mov 110412,-(sp) ; f.&u 015744: 000402 br 15752 ; .. ; 015746: 012746 001000 mov #1000,-(sp) ; f... 015752: 016746 072426 mov 110404,-(sp) ; f..u 015756: 016746 072426 mov 110410,-(sp) ; f..u 015762: 016746 072420 mov 110406,-(sp) ; f..u 015766: 004767 016616 call get.buffer ; w... 015772: 062706 000010 add #10,sp ; Fe.. 015776: 010001 mov r0,r1 ; .. 016000: 050164 000060 bis r1,60(r4) ; tP0. 016004: 062767 001000 072372 add #1000,110404 ; we..zt 016012: 062767 001000 072370 add #1000,110410 ; we..xt 016020: 005567 072362 adc 110406 ; w.rt 016024: 162767 001000 072360 sub #1000,110412 ; we..pt 016032: 036427 000042 000777 bit 42(r4),#777 ; .="... 016040: 001424 beq 16112 ; .. 016042: 016401 000042 mov 42(r4),r1 ; ..". 016046: 042701 177000 bic #177000,r1 ; AE.~ 016052: 012700 001000 mov #1000,r0 ; @... 016056: 160100 sub r1,r0 ; @` 016060: 000241 clc ; !. 016062: 006000 ror r0 ; .. 016064: 010065 177764 mov r0,177764(r5) ; 5.t. 016070: 016403 000044 mov 44(r4),r3 ; ..$. 016074: 066403 000042 add 42(r4),r3 ; .m". 016100: 000401 br 16104 ; .. ; 016102: 005023 clr (r3)+ ; .. 016104: 005365 177764 dec 177764(r5) ; u.t. 016110: 002374 bge 16102 ; |. 016112: 112767 000112 121702 movb #112,w$cmd ; w.J.B# 016120: 012767 000004 062076 mov #4,100224 ; w...>d 016126: 116767 062044 121666 movb 100176,w$cmd ; w.$d6# 016134: 005767 072252 tst 110412 ; w.*t 016140: 003463 ble 16310 ; 3. 016142: 026727 072244 001000 cmp 110412,#1000 ; W-$t.. 016150: 002003 bge 16160 ; .. 016152: 016746 072234 mov 110412,-(sp) ; f..t 016156: 000402 br 16164 ; .. ; 016160: 012746 001000 mov #1000,-(sp) ; f... 016164: 016746 072214 mov 110404,-(sp) ; f..t 016170: 016746 072214 mov 110410,-(sp) ; f..t 016174: 016746 072206 mov 110406,-(sp) ; f..t 016200: 004767 016404 call get.buffer ; w... 016204: 062706 000010 add #10,sp ; Fe.. 016210: 010001 mov r0,r1 ; .. 016212: 050164 000060 bis r1,60(r4) ; tP0. 016216: 062767 001000 072160 add #1000,110404 ; we..pt 016224: 062767 001000 072156 add #1000,110410 ; we..nt 016232: 005567 072150 adc 110406 ; w.ht 016236: 162767 001000 072146 sub #1000,110412 ; we..ft 016244: 005767 061776 tst 100246 ; w.~c 016250: 002414 blt 16302 ; .. 016252: 012746 100042 mov #dma,-(sp) ; f.". 016256: 004767 026052 call $release ; w.*, 016262: 005726 tst (sp)+ ; V. 016264: 012746 100030 mov #100030,-(sp) ; f... 016270: 004767 026124 call $block ; w.T, 016274: 005726 tst (sp)+ ; V. 016276: 000167 176732 jmp 15234 ; w.Z} ; 016302: 005367 061740 dec 100246 ; w.`c 016306: 000712 br 16134 ; J. ; 016310: 012746 100042 mov #dma,-(sp) ; f.". 016314: 004767 026014 call $release ; w.., 016320: 005726 tst (sp)+ ; V. 016322: 012746 100030 mov #100030,-(sp) ; f... 016326: 004767 026066 call $block ; w.6, 016332: 005726 tst (sp)+ ; V. 016334: 005767 061664 tst 100224 ; w.4c 016340: 001005 bne 16354 ; .. 016342: 005064 000040 clr 40(r4) ; 4. . 016346: 012700 000101 mov #101,r0 ; @.A. 016352: 000517 br 16612 ; O. ; 016354: 000420 br 16416 ; .. ; 016356: 012767 000004 061640 mov #4,100224 ; w... c 016364: 016746 061606 mov 100176,-(sp) ; f..c 016370: 004767 174246 call put$udc ; w.&x 016374: 005726 tst (sp)+ ; V. 016376: 005767 061622 tst 100224 ; w..c 016402: 001005 bne 16416 ; .. 016404: 005064 000040 clr 40(r4) ; 4. . 016410: 012700 000101 mov #101,r0 ; @.A. 016414: 000476 br 16612 ; >. ; 016416: 005067 061602 clr 100224 ; 7..c 016422: 012746 000003 mov #3,-(sp) ; f... 016426: 004767 026226 call $sleep ; w.., 016432: 005726 tst (sp)+ ; V. 016434: 136727 121352 000030 bitb r$cmd,#30 ; W=j".. 016442: 001441 beq 16546 ; !. 016444: 010446 mov r4,-(sp) ; &. 016446: 012746 000002 mov #2,-(sp) ; f... 016452: 004767 174230 call get$udc ; w..x 016456: 022626 cmp (sp)+,(sp)+ ; .% 016460: 010065 177762 mov r0,177762(r5) ; 5.r. 016464: 036227 000030 002000 bit 30(r2),#2000 ; .<.... 016472: 001407 beq 16512 ; .. 016474: 016400 000036 mov 36(r4),r0 ; .... 016500: 066700 061474 add 100200,r0 ; @m` ; ; sd$tmo( ) sd$tmo:: 016616: 004567 060256 jsr r5,csv$ ; w..` 016622: 012746 100046 mov #udc,-(sp) ; f.&. 016626: 004767 025406 call $acquire ; w..+ 016632: 005726 tst (sp)+ ; V. 016634: 005767 061366 tst 100226 ; w.vb 016640: 001406 beq 16656 ; .. 016642: 012746 000001 mov #1,-(sp) ; f... 016646: 004767 026006 call $sleep ; w.., 016652: 005726 tst (sp)+ ; V. 016654: 000767 br 16634 ; w. ; 016656: 012746 000001 mov #1,-(sp) ; f... 016662: 004767 173754 call put$udc ; w.lw 016666: 005726 tst (sp)+ ; V. 016670: 005067 061336 clr 100232 ; 7.^b 016674: 012746 100046 mov #udc,-(sp) ; f.&. 016700: 004767 025430 call $release ; w..+ 016704: 005726 tst (sp)+ ; V. 016706: 000167 060202 jmp cret$ ; w..` ; ; mo$tmo( ) mo$tmo:: 016712: 004567 060162 jsr r5,csv$ ; w.r` 016716: 012746 100046 mov #udc,-(sp) ; f.&. 016722: 004767 025312 call $acquire ; w.J* 016726: 005726 tst (sp)+ ; V. 016730: 005767 061272 tst 100226 ; w.:b 016734: 001406 beq 16752 ; .. 016736: 012746 000001 mov #1,-(sp) ; f... 016742: 004767 025712 call $sleep ; w.J+ 016746: 005726 tst (sp)+ ; V. 016750: 000767 br 16730 ; w. ; 016752: 042767 000001 061226 bic #1,100206 ; wE...b 016760: 112767 000107 121034 movb #107,w$cmd ; w.G.." 016766: 116767 061214 121024 movb 100206,w$dat ; w..b." 016774: 012746 000001 mov #1,-(sp) ; f... 017000: 004767 173636 call put$udc ; w..w 017004: 005726 tst (sp)+ ; V. 017006: 005067 061220 clr 100232 ; 7..b 017012: 012746 100046 mov #udc,-(sp) ; f.&. 017016: 004767 025312 call $release ; w.J* 017022: 005726 tst (sp)+ ; V. 017024: 000167 060064 jmp cret$ ; w.4` ; ; cd$tmo( ) cd$tmo:: 017030: 004567 060044 jsr r5,csv$ ; w.$` 017034: 105067 120762 clrb w$cmd ; 7.r! 017040: 112767 000107 120754 movb #107,w$cmd ; w.G.l! 017046: 116767 061134 120744 movb 100206,w$dat ; w.\bd! 017054: 116767 061130 120736 movb 100210,w$dat ; w.Xb^! 017062: 116767 061124 120730 movb 100212,w$dat ; w.TbX! 017070: 116767 061136 120724 movb 100232,w$cmd ; w.^bT! 017076: 000167 060012 jmp cret$ ; w..` ;-------------------------------------------------------- ; ; File cibbr.c ; ; ; get$rbn( tcb, lbn ) get$rbn:: 017102: 004567 057772 jsr r5,csv$ ; w.z_ 017106: 162706 000020 sub #20,sp ; Fe.. 017112: 016504 000004 mov 4(r5),r4 ; D... 017116: 016402 000002 mov 2(r4),r2 ; .... 017122: 012764 177777 000050 mov #177777,50(r4) ; t...(. 017130: 006764 000046 sxt 46(r4) ; t.&. 017134: 012764 177777 000054 mov #177777,54(r4) ; t...,. 017142: 006764 000052 sxt 52(r4) ; t.*. 017146: 036227 000030 000020 bit 30(r2),#20 ; .<.... 017154: 001404 beq 17166 ; .. 017156: 012700 000005 mov #5,r0 ; @... 017162: 000167 001170 jmp 20356 ; w.x. ; 017166: 016565 000010 177762 mov 10(r5),177762(r5) ; u...r. 017174: 016500 000006 mov 6(r5),r0 ; @... 017200: 042700 170000 bic #170000,r0 ; @E.p 017204: 052700 030000 bis #30000,r0 ; @U.0 017210: 010065 177760 mov r0,177760(r5) ; 5.p. 017214: 016246 000052 mov 52(r2),-(sp) ; &.*. 017220: 016246 000050 mov 50(r2),-(sp) ; &.(. 017224: 016246 000062 mov 62(r2),-(sp) ; &.2. 017230: 016246 000060 mov 60(r2),-(sp) ; &.0. 017234: 016546 000010 mov 10(r5),-(sp) ; f... 017240: 016546 000006 mov 6(r5),-(sp) ; f... 017244: 004767 057476 call 76746 ; w.>_ 017250: 062706 000010 add #10,sp ; Fe.. 017254: 010146 mov r1,-(sp) ; f. 017256: 010046 mov r0,-(sp) ; &. 017260: 004767 056660 call 76144 ; w.0] 017264: 062706 000010 add #10,sp ; Fe.. 017270: 010165 177754 mov r1,177754(r5) ; u.l. 017274: 012746 000007 mov #7,-(sp) ; f... 017300: 016546 177754 mov 177754(r5),-(sp) ; f.l. 017304: 004767 057074 call 76404 ; w.<^ 017310: 022626 cmp (sp)+,(sp)+ ; .% 017312: 062700 000002 add #2,r0 ; @e.. 017316: 010065 177756 mov r0,177756(r5) ; 5.n. 017322: 016500 177754 mov 177754(r5),r0 ; @.l. 017326: 042700 177600 bic #177600,r0 ; @E.. 017332: 006300 asl r0 ; @. 017334: 010065 177752 mov r0,177752(r5) ; 5.j. 017340: 012746 126610 mov #126610,-(sp) ; f..- 017344: 016546 177756 mov 177756(r5),-(sp) ; f.n. 017350: 010446 mov r4,-(sp) ; &. 017352: 004767 170042 call rd$rct ; w."p 017356: 062706 000006 add #6,sp ; Fe.. 017362: 010065 177750 mov r0,177750(r5) ; 5.h. 017366: 001404 beq 17400 ; .. 017370: 016500 177750 mov 177750(r5),r0 ; @.h. 017374: 000167 000756 jmp 20356 ; w.n. ; 017400: 016503 177752 mov 177752(r5),r3 ; C.j. 017404: 006303 asl r3 ; C. 017406: 062703 126610 add #126610,r3 ; Ce.- 017412: 005763 000002 tst 2(r3) ; s... 017416: 001010 bne 17440 ; .. 017420: 016564 177754 000054 mov 177754(r5),54(r4) ; t.l.,. 017426: 006764 000052 sxt 52(r4) ; t.*. 017432: 005000 clr r0 ; .. 017434: 000167 000716 jmp 20356 ; w.N. ; 017440: 021365 177762 cmp (r3),177762(r5) ; u"r. 017444: 001011 bne 17470 ; .. 017446: 026365 000002 177760 cmp 2(r3),177760(r5) ; u,..p. 017454: 001005 bne 17470 ; .. 017456: 016564 177754 000050 mov 177754(r5),50(r4) ; t.l.(. 017464: 006764 000046 sxt 46(r4) ; t.&. 017470: 012765 000002 177770 mov #2,177770(r5) ; u...x. 017476: 000167 000340 jmp 20042 ; w.`. ; 017502: 016500 177752 mov 177752(r5),r0 ; @.j. 017506: 066500 177770 add 177770(r5),r0 ; @mx. 017512: 010065 177766 mov r0,177766(r5) ; 5.v. 017516: 026527 177766 000376 cmp 177766(r5),#376 ; W-v.~. 017524: 003054 bgt 17656 ; ,. 017526: 016503 177766 mov 177766(r5),r3 ; C.v. 017532: 006303 asl r3 ; C. 017534: 062703 126610 add #126610,r3 ; Ce.- 017540: 005763 000002 tst 2(r3) ; s... 017544: 001014 bne 17576 ; .. 017546: 016500 177770 mov 177770(r5),r0 ; @.x. 017552: 006200 asr r0 ; .. 017554: 066500 177754 add 177754(r5),r0 ; @ml. 017560: 010064 000054 mov r0,54(r4) ; 4.,. 017564: 006764 000052 sxt 52(r4) ; t.*. 017570: 005000 clr r0 ; .. 017572: 000167 000560 jmp 20356 ; w.p. ; 017576: 026327 000002 100000 cmp 2(r3),#100000 ; W,.... 017604: 001004 bne 17616 ; .. 017606: 012765 000002 177764 mov #2,177764(r5) ; u...t. 017614: 000523 br 20064 ; S. ; 017616: 021365 177762 cmp (r3),177762(r5) ; u"r. 017622: 001015 bne 17656 ; .. 017624: 026365 000002 177760 cmp 2(r3),177760(r5) ; u,..p. 017632: 001011 bne 17656 ; .. 017634: 016500 177770 mov 177770(r5),r0 ; @.x. 017640: 006200 asr r0 ; .. 017642: 066500 177754 add 177754(r5),r0 ; @ml. 017646: 010064 000050 mov r0,50(r4) ; 4.(. 017652: 006764 000046 sxt 46(r4) ; t.&. 017656: 016500 177752 mov 177752(r5),r0 ; @.j. 017662: 166500 177770 sub 177770(r5),r0 ; @mx. 017666: 010065 177766 mov r0,177766(r5) ; 5.v. 017672: 005765 177766 tst 177766(r5) ; u.v. 017676: 002456 blt 20034 ; .. 017700: 016503 177766 mov 177766(r5),r3 ; C.v. 017704: 006303 asl r3 ; C. 017706: 062703 126610 add #126610,r3 ; Ce.- 017712: 005763 000002 tst 2(r3) ; s... 017716: 001015 bne 17752 ; .. 017720: 016501 177770 mov 177770(r5),r1 ; A.x. 017724: 006201 asr r1 ; .. 017726: 016500 177754 mov 177754(r5),r0 ; @.l. 017732: 160100 sub r1,r0 ; @` 017734: 010064 000054 mov r0,54(r4) ; 4.,. 017740: 006764 000052 sxt 52(r4) ; t.*. 017744: 005000 clr r0 ; .. 017746: 000167 000404 jmp 20356 ; w... ; 017752: 026327 000002 100000 cmp 2(r3),#100000 ; W,.... 017760: 001004 bne 17772 ; .. 017762: 012765 000002 177764 mov #2,177764(r5) ; u...t. 017770: 000435 br 20064 ; .. ; 017772: 021365 177762 cmp (r3),177762(r5) ; u"r. 017776: 001016 bne 20034 ; .. 020000: 026365 000002 177760 cmp 2(r3),177760(r5) ; u,..p. 020006: 001012 bne 20034 ; .. 020010: 016501 177770 mov 177770(r5),r1 ; A.x. 020014: 006201 asr r1 ; .. 020016: 016500 177754 mov 177754(r5),r0 ; @.l. 020022: 160100 sub r1,r0 ; @` 020024: 010064 000050 mov r0,50(r4) ; 4.(. 020030: 006764 000046 sxt 46(r4) ; t.&. 020034: 062765 000002 177770 add #2,177770(r5) ; ue..x. 020042: 026527 177770 000400 cmp 177770(r5),#400 ; W-x... 020050: 002614 blt 17502 ; .. 020052: 016500 177756 mov 177756(r5),r0 ; @.n. 020056: 005200 inc r0 ; .. 020060: 010065 177764 mov r0,177764(r5) ; 5.t. 020064: 016565 177764 177770 mov 177764(r5),177770(r5) ; u.t.x. 020072: 012746 126610 mov #126610,-(sp) ; f..- 020076: 016546 177770 mov 177770(r5),-(sp) ; f.x. 020102: 010446 mov r4,-(sp) ; &. 020104: 004767 167310 call rd$rct ; w.Hn 020110: 062706 000006 add #6,sp ; Fe.. 020114: 010065 177750 mov r0,177750(r5) ; 5.h. 020120: 001403 beq 20130 ; .. 020122: 016500 177750 mov 177750(r5),r0 ; @.h. 020126: 000513 br 20356 ; K. ; 020130: 005065 177766 clr 177766(r5) ; 5.v. 020134: 000501 br 20340 ; A. ; 020136: 026565 177770 177756 cmp 177770(r5),177756(r5) ; u-x.n. 020144: 001007 bne 20164 ; .. 020146: 026565 177766 177752 cmp 177766(r5),177752(r5) ; u-v.j. 020154: 001003 bne 20164 ; .. 020156: 012700 000005 mov #5,r0 ; @... 020162: 000475 br 20356 ; =. ; 020164: 016503 177766 mov 177766(r5),r3 ; C.v. 020170: 006303 asl r3 ; C. 020172: 062703 126610 add #126610,r3 ; Ce.- 020176: 005763 000002 tst 2(r3) ; s... 020202: 001017 bne 20242 ; .. 020204: 016500 177770 mov 177770(r5),r0 ; @.x. 020210: 162700 000002 sub #2,r0 ; @e.. 020214: 000300 swab r0 ; @. 020216: 105000 clrb r0 ; .. 020220: 066500 177766 add 177766(r5),r0 ; @mv. 020224: 006200 asr r0 ; .. 020226: 010064 000054 mov r0,54(r4) ; 4.,. 020232: 006764 000052 sxt 52(r4) ; t.*. 020236: 005000 clr r0 ; .. 020240: 000446 br 20356 ; &. ; 020242: 026327 000002 100000 cmp 2(r3),#100000 ; W,.... 020250: 001004 bne 20262 ; .. 020252: 012765 000002 177764 mov #2,177764(r5) ; u...t. 020260: 000701 br 20064 ; A. ; 020262: 021365 177762 cmp (r3),177762(r5) ; u"r. 020266: 001021 bne 20332 ; .. 020270: 026365 000002 177760 cmp 2(r3),177760(r5) ; u,..p. 020276: 001015 bne 20332 ; .. 020300: 016500 177770 mov 177770(r5),r0 ; @.x. 020304: 162700 000002 sub #2,r0 ; @e.. 020310: 000300 swab r0 ; @. 020312: 105000 clrb r0 ; .. 020314: 066500 177766 add 177766(r5),r0 ; @mv. 020320: 006200 asr r0 ; .. 020322: 010064 000050 mov r0,50(r4) ; 4.(. 020326: 006764 000046 sxt 46(r4) ; t.&. 020332: 062765 000002 177766 add #2,177766(r5) ; ue..v. 020340: 026527 177766 000400 cmp 177766(r5),#400 ; W-v... 020346: 002673 blt 20136 ; ;. 020350: 005265 177770 inc 177770(r5) ; 5.x. 020354: 000646 br 20072 ; &. ; 020356: 000167 056532 jmp cret$ ; w.Z] ; ; put$rbn( tcb, lbn, flag ) ; put$rbn:: 020362: 004567 056512 jsr r5,csv$ ; w.J] 020366: 162706 000022 sub #22,sp ; Fe.. 020372: 016504 000004 mov 4(r5),r4 ; D... 020376: 012765 177777 177762 mov #177777,177762(r5) ; u...r. 020404: 012765 177777 177754 mov #177777,177754(r5) ; u...l. 020412: 016402 000002 mov 2(r4),r2 ; .... 020416: 036227 000030 000020 bit 30(r2),#20 ; .<.... 020424: 001403 beq 20434 ; .. 020426: 005000 clr r0 ; .. 020430: 000167 003556 jmp 24212 ; w.n. ; 020434: 005765 000006 tst 6(r5) ; u... 020440: 002407 blt 20460 ; .. 020442: 036227 000012 030000 bit 12(r2),#30000 ; .<...0 020450: 001402 beq 20456 ; .. 020452: 000167 003530 jmp 24206 ; w.X. ; 020456: 000570 br 21040 ; x. ; 020460: 012746 124600 mov #124600,-(sp) ; f..) 020464: 005046 clr -(sp) ; &. 020466: 010446 mov r4,-(sp) ; &. 020470: 004767 166724 call rd$rct ; w.Tm 020474: 062706 000006 add #6,sp ; Fe.. 020500: 010065 177764 mov r0,177764(r5) ; 5.t. 020504: 001402 beq 20512 ; .. 020506: 000167 003424 jmp 24136 ; w... ; 020512: 036227 000012 030000 bit 12(r2),#30000 ; .<...0 020520: 001402 beq 20526 ; .. 020522: 000167 003010 jmp 23536 ; w... ; 020526: 012746 124600 mov #124600,-(sp) ; f..) 020532: 005046 clr -(sp) ; &. 020534: 010446 mov r4,-(sp) ; &. 020536: 004767 167176 call wr$rct ; w.~n 020542: 062706 000006 add #6,sp ; Fe.. 020546: 010065 177764 mov r0,177764(r5) ; 5.t. 020552: 001402 beq 20560 ; .. 020554: 000167 003356 jmp 24136 ; w.n. ; 020560: 012746 125604 mov #125604,-(sp) ; f..+ 020564: 012746 000001 mov #1,-(sp) ; f... 020570: 010446 mov r4,-(sp) ; &. 020572: 004767 166622 call rd$rct ; w..m 020576: 062706 000006 add #6,sp ; Fe.. 020602: 012746 125604 mov #125604,-(sp) ; f..+ 020606: 012746 000001 mov #1,-(sp) ; f... 020612: 010446 mov r4,-(sp) ; &. 020614: 004767 167120 call wr$rct ; w.Pn 020620: 062706 000006 add #6,sp ; Fe.. 020624: 016700 103760 mov 124610,r0 ; @.p. 020630: 042700 177577 bic #177577,r0 ; @E.. 020634: 010065 177766 mov r0,177766(r5) ; 5.v. 020640: 016765 103750 000010 mov 124614,10(r5) ; u.h... 020646: 016765 103744 000006 mov 124616,6(r5) ; u.d... 020654: 016765 103740 177754 mov 124620,177754(r5) ; u.`.l. 020662: 016765 103736 177762 mov 124624,177762(r5) ; u.^.r. 020670: 016564 177754 000054 mov 177754(r5),54(r4) ; t.l.,. 020676: 006764 000052 sxt 52(r4) ; t.*. 020702: 016564 177762 000050 mov 177762(r5),50(r4) ; t.r.(. 020710: 006764 000046 sxt 46(r4) ; t.&. 020714: 036727 103670 100000 bit 124610,#100000 ; W=8... 020722: 001420 beq 20764 ; .. 020724: 012746 125604 mov #125604,-(sp) ; f..+ 020730: 012746 000001 mov #1,-(sp) ; f... 020734: 010446 mov r4,-(sp) ; &. 020736: 004767 166456 call rd$rct ; w..m 020742: 062706 000006 add #6,sp ; Fe.. 020746: 010065 177764 mov r0,177764(r5) ; 5.t. 020752: 001402 beq 20760 ; .. 020754: 000167 003156 jmp 24136 ; w.n. ; 020760: 000167 000376 jmp 21362 ; w.~. ; 020764: 036727 103620 040000 bit 124610,#40000 ; W=...@ 020772: 001420 beq 21034 ; .. 020774: 012746 125604 mov #125604,-(sp) ; f..+ 021000: 012746 000001 mov #1,-(sp) ; f... 021004: 010446 mov r4,-(sp) ; &. 021006: 004767 166406 call rd$rct ; w..m 021012: 062706 000006 add #6,sp ; Fe.. 021016: 010065 177764 mov r0,177764(r5) ; 5.t. 021022: 001402 beq 21030 ; .. 021024: 000167 003106 jmp 24136 ; w.F. ; 021030: 000167 001364 jmp 22420 ; w.t. ; 021034: 000167 002476 jmp 23536 ; w.>. ; 021040: 005065 177770 clr 177770(r5) ; 5.x. 021044: 000407 br 21064 ; .. ; 021046: 012700 125604 mov #125604,r0 ; @..+ 021052: 066500 177770 add 177770(r5),r0 ; @mx. 021056: 105010 clrb (r0) ; .. 021060: 005265 177770 inc 177770(r5) ; 5.x. 021064: 026527 177770 001000 cmp 177770(r5),#1000 ; W-x... 021072: 002765 blt 21046 ; u. 021074: 005064 000026 clr 26(r4) ; 4... 021100: 016501 000010 mov 10(r5),r1 ; A... 021104: 016500 000006 mov 6(r5),r0 ; @... 021110: 066201 000046 add 46(r2),r1 ; .l&. 021114: 005500 adc r0 ; @. 021116: 066200 000044 add 44(r2),r0 ; .l$. 021122: 010064 000006 mov r0,6(r4) ; 4... 021126: 010164 000010 mov r1,10(r4) ; t... 021132: 012764 100000 000024 mov #100000,24(r4) ; t..... 021140: 012746 001000 mov #1000,-(sp) ; f... 021144: 012746 125604 mov #125604,-(sp) ; f..+ 021150: 010446 mov r4,-(sp) ; &. 021152: 004767 167146 call fill$tcb ; w.fn 021156: 062706 000006 add #6,sp ; Fe.. 021162: 010446 mov r4,-(sp) ; &. 021164: 004767 015660 call read ; w.0. 021170: 005726 tst (sp)+ ; V. 021172: 010065 177766 mov r0,177766(r5) ; 5.v. 021176: 012746 125604 mov #125604,-(sp) ; f..+ 021202: 012746 000001 mov #1,-(sp) ; f... 021206: 010446 mov r4,-(sp) ; &. 021210: 004767 166524 call wr$rct ; w.Tm 021214: 062706 000006 add #6,sp ; Fe.. 021220: 010065 177764 mov r0,177764(r5) ; 5.t. 021224: 001402 beq 21232 ; .. 021226: 000167 002704 jmp 24136 ; w.D. ; 021232: 012746 124600 mov #124600,-(sp) ; f..) 021236: 005046 clr -(sp) ; &. 021240: 010446 mov r4,-(sp) ; &. 021242: 004767 166152 call rd$rct ; w.jl 021246: 062706 000006 add #6,sp ; Fe.. 021252: 010065 177764 mov r0,177764(r5) ; 5.t. 021256: 001402 beq 21264 ; .. 021260: 000167 002574 jmp 24060 ; w.|. ; 021264: 042767 170200 103316 bic #170200,124610 ; wE.pN. 021272: 052767 100000 103310 bis #100000,124610 ; wU..H. 021300: 005765 177766 tst 177766(r5) ; u.v. 021304: 001403 beq 21314 ; .. 021306: 052767 000200 103274 bis #200,124610 ; wU..<. 021314: 016567 000010 103272 mov 10(r5),124614 ; w...:. 021322: 016567 000006 103266 mov 6(r5),124616 ; w...6. 021330: 012746 124600 mov #124600,-(sp) ; f..) 021334: 005046 clr -(sp) ; &. 021336: 010446 mov r4,-(sp) ; &. 021340: 004767 166374 call wr$rct ; w.|l 021344: 062706 000006 add #6,sp ; Fe.. 021350: 010065 177764 mov r0,177764(r5) ; 5.t. 021354: 001402 beq 21362 ; .. 021356: 000167 002554 jmp 24136 ; w.l. ; 021362: 005765 000012 tst 12(r5) ; u... 021366: 001402 beq 21374 ; .. 021370: 000167 000646 jmp 22242 ; w.&. ; 021374: 012764 001400 000026 mov #1400,26(r4) ; t..... 021402: 016501 000010 mov 10(r5),r1 ; A... 021406: 016500 000006 mov 6(r5),r0 ; @... 021412: 066201 000046 add 46(r2),r1 ; .l&. 021416: 005500 adc r0 ; @. 021420: 066200 000044 add 44(r2),r0 ; .l$. 021424: 010064 000006 mov r0,6(r4) ; 4... 021430: 010164 000010 mov r1,10(r4) ; t... 021434: 012764 100000 000024 mov #100000,24(r4) ; t..... 021442: 012746 001000 mov #1000,-(sp) ; f... 021446: 012746 132604 mov #132604,-(sp) ; f..5 021452: 010446 mov r4,-(sp) ; &. 021454: 004767 166644 call fill$tcb ; w.$m 021460: 062706 000006 add #6,sp ; Fe.. 021464: 012703 132604 mov #132604,r3 ; C..5 021470: 012765 000200 177770 mov #200,177770(r5) ; u...x. 021476: 000404 br 21510 ; .. ; 021500: 012723 133333 mov #133333,(r3)+ ; S.[6 021504: 012723 165555 mov #165555,(r3)+ ; S.mk 021510: 005365 177770 dec 177770(r5) ; u.x. 021514: 002371 bge 21500 ; y. 021516: 010446 mov r4,-(sp) ; &. 021520: 004767 015354 call write ; w.l. 021524: 005726 tst (sp)+ ; V. 021526: 010065 177764 mov r0,177764(r5) ; 5.t. 021532: 001402 beq 21540 ; .. 021534: 000167 000502 jmp 22242 ; w.B. ; 021540: 010446 mov r4,-(sp) ; &. 021542: 004767 015302 call read ; w.B. 021546: 005726 tst (sp)+ ; V. 021550: 010065 177764 mov r0,177764(r5) ; 5.t. 021554: 001402 beq 21562 ; .. 021556: 000167 000460 jmp 22242 ; w.0. ; 021562: 012703 132604 mov #132604,r3 ; C..5 021566: 012765 000200 177770 mov #200,177770(r5) ; u...x. 021574: 000412 br 21622 ; .. ; 021576: 022327 133333 cmp (r3)+,#133333 ; W$[6 021602: 001402 beq 21610 ; .. 021604: 000167 000432 jmp 22242 ; w... ; 021610: 022327 165555 cmp (r3)+,#165555 ; W$mk 021614: 001402 beq 21622 ; .. 021616: 000167 000420 jmp 22242 ; w... ; 021622: 005365 177770 dec 177770(r5) ; u.x. 021626: 002363 bge 21576 ; s. 021630: 012703 132604 mov #132604,r3 ; C..5 021634: 012765 000200 177770 mov #200,177770(r5) ; u...x. 021642: 000404 br 21654 ; .. ; 021644: 012723 044444 mov #44444,(r3)+ ; S.$I 021650: 012723 012222 mov #12222,(r3)+ ; S... 021654: 005365 177770 dec 177770(r5) ; u.x. 021660: 002371 bge 21644 ; y. 021662: 010446 mov r4,-(sp) ; &. 021664: 004767 015210 call write ; w... 021670: 005726 tst (sp)+ ; V. 021672: 010065 177764 mov r0,177764(r5) ; 5.t. 021676: 001402 beq 21704 ; .. 021700: 000167 000336 jmp 22242 ; w.^. ; 021704: 010446 mov r4,-(sp) ; &. 021706: 004767 015136 call read ; w.^. 021712: 005726 tst (sp)+ ; V. 021714: 010065 177764 mov r0,177764(r5) ; 5.t. 021720: 001402 beq 21726 ; .. 021722: 000167 000314 jmp 22242 ; w.L. ; 021726: 012703 132604 mov #132604,r3 ; C..5 021732: 012765 000200 177770 mov #200,177770(r5) ; u...x. 021740: 000406 br 21756 ; .. ; 021742: 022327 044444 cmp (r3)+,#44444 ; W$$I 021746: 001135 bne 22242 ; ]. 021750: 022327 012222 cmp (r3)+,#12222 ; W$.. 021754: 001132 bne 22242 ; Z. 021756: 005365 177770 dec 177770(r5) ; u.x. 021762: 002367 bge 21742 ; w. 021764: 005765 177766 tst 177766(r5) ; u.v. 021770: 001403 beq 22000 ; .. 021772: 012700 011400 mov #11400,r0 ; @... 021776: 000402 br 22004 ; .. ; 022000: 012700 001400 mov #1400,r0 ; @... 022004: 010064 000026 mov r0,26(r4) ; 4... 022010: 016501 000010 mov 10(r5),r1 ; A... 022014: 016500 000006 mov 6(r5),r0 ; @... 022020: 066201 000046 add 46(r2),r1 ; .l&. 022024: 005500 adc r0 ; @. 022026: 066200 000044 add 44(r2),r0 ; .l$. 022032: 010064 000006 mov r0,6(r4) ; 4... 022036: 010164 000010 mov r1,10(r4) ; t... 022042: 012764 100000 000024 mov #100000,24(r4) ; t..... 022050: 012746 001000 mov #1000,-(sp) ; f... 022054: 012746 125604 mov #125604,-(sp) ; f..+ 022060: 010446 mov r4,-(sp) ; &. 022062: 004767 166236 call fill$tcb ; w..l 022066: 062706 000006 add #6,sp ; Fe.. 022072: 010446 mov r4,-(sp) ; &. 022074: 004767 015000 call write ; w... 022100: 005726 tst (sp)+ ; V. 022102: 010065 177764 mov r0,177764(r5) ; 5.t. 022106: 001055 bne 22242 ; -. 022110: 012746 001000 mov #1000,-(sp) ; f... 022114: 012746 132604 mov #132604,-(sp) ; f..5 022120: 010446 mov r4,-(sp) ; &. 022122: 004767 166176 call fill$tcb ; w.~l 022126: 062706 000006 add #6,sp ; Fe.. 022132: 010446 mov r4,-(sp) ; &. 022134: 004767 014710 call read ; w.H. 022140: 005726 tst (sp)+ ; V. 022142: 010065 177764 mov r0,177764(r5) ; 5.t. 022146: 001410 beq 22170 ; .. 022150: 036527 177764 000002 bit 177764(r5),#2 ; W=t... 022156: 001403 beq 22166 ; .. 022160: 005765 177766 tst 177766(r5) ; u.v. 022164: 001001 bne 22170 ; .. 022166: 000425 br 22242 ; .. ; 022170: 012765 125604 177746 mov #125604,177746(r5) ; u..+f. 022176: 012703 132604 mov #132604,r3 ; C..5 022202: 012765 000400 177770 mov #400,177770(r5) ; u...x. 022210: 000407 br 22230 ; .. ; 022212: 016500 177746 mov 177746(r5),r0 ; @.f. 022216: 062765 000002 177746 add #2,177746(r5) ; ue..f. 022224: 021023 cmp (r0),(r3)+ ; ." 022226: 001005 bne 22242 ; .. 022230: 005365 177770 dec 177770(r5) ; u.x. 022234: 002366 bge 22212 ; v. 022236: 000167 001140 jmp 23402 ; w.`. ; 022242: 016546 000010 mov 10(r5),-(sp) ; f... 022246: 016546 000006 mov 6(r5),-(sp) ; f... 022252: 010446 mov r4,-(sp) ; &. 022254: 004767 174622 call get$rbn ; w..y 022260: 062706 000006 add #6,sp ; Fe.. 022264: 010065 177764 mov r0,177764(r5) ; 5.t. 022270: 001402 beq 22276 ; .. 022272: 000167 001446 jmp 23744 ; w.&. ; 022276: 016465 000054 177754 mov 54(r4),177754(r5) ; 5.,.l. 022304: 016465 000050 177762 mov 50(r4),177762(r5) ; 5.(.r. 022312: 042767 170000 102270 bic #170000,124610 ; wE.p8. 022320: 052767 040000 102262 bis #40000,124610 ; wU.@2. 022326: 005765 177762 tst 177762(r5) ; u.r. 022332: 002403 blt 22342 ; .. 022334: 052767 020000 102246 bis #20000,124610 ; wU. &. 022342: 016567 177754 102250 mov 177754(r5),124620 ; w.l.(. 022350: 005067 102246 clr 124622 ; 7.&. 022354: 016567 177762 102242 mov 177762(r5),124624 ; w.r.". 022362: 005067 102240 clr 124626 ; 7. . 022366: 012746 124600 mov #124600,-(sp) ; f..) 022372: 005046 clr -(sp) ; &. 022374: 010446 mov r4,-(sp) ; &. 022376: 004767 165336 call wr$rct ; w.^j 022402: 062706 000006 add #6,sp ; Fe.. 022406: 010065 177764 mov r0,177764(r5) ; 5.t. 022412: 001402 beq 22420 ; .. 022414: 000167 001324 jmp 23744 ; w.T. ; 022420: 012746 000007 mov #7,-(sp) ; f... 022424: 016546 177754 mov 177754(r5),-(sp) ; f.l. 022430: 004767 053750 call 76404 ; w.hW 022434: 022626 cmp (sp)+,(sp)+ ; .% 022436: 062700 000002 add #2,r0 ; @e.. 022442: 010065 177752 mov r0,177752(r5) ; 5.j. 022446: 016500 177754 mov 177754(r5),r0 ; @.l. 022452: 042700 177600 bic #177600,r0 ; @E.. 022456: 006300 asl r0 ; @. 022460: 010065 177750 mov r0,177750(r5) ; 5.h. 022464: 012746 126610 mov #126610,-(sp) ; f..- 022470: 016546 177752 mov 177752(r5),-(sp) ; f.j. 022474: 010446 mov r4,-(sp) ; &. 022476: 004767 164716 call rd$rct ; w.Ni 022502: 062706 000006 add #6,sp ; Fe.. 022506: 010065 177764 mov r0,177764(r5) ; 5.t. 022512: 001402 beq 22520 ; .. 022514: 000167 001224 jmp 23744 ; w... ; 022520: 016500 177750 mov 177750(r5),r0 ; @.h. 022524: 006300 asl r0 ; @. 022526: 062700 126610 add #126610,r0 ; @e.- 022532: 016510 000010 mov 10(r5),(r0) ; H... 022536: 016546 000006 mov 6(r5),-(sp) ; f... 022542: 042716 170000 bic #170000,(sp) ; NE.p 022546: 052716 030000 bis #30000,(sp) ; NU.0 022552: 016500 177750 mov 177750(r5),r0 ; @.h. 022556: 005200 inc r0 ; .. 022560: 006300 asl r0 ; @. 022562: 062700 126610 add #126610,r0 ; @e.- 022566: 012610 mov (sp)+,(r0) ; .. 022570: 005765 177762 tst 177762(r5) ; u.r. 022574: 002517 blt 23034 ; O. 022576: 012746 000007 mov #7,-(sp) ; f... 022602: 016546 177762 mov 177762(r5),-(sp) ; f.r. 022606: 004767 053572 call 76404 ; w.zW 022612: 022626 cmp (sp)+,(sp)+ ; .% 022614: 062700 000002 add #2,r0 ; @e.. 022620: 010065 177760 mov r0,177760(r5) ; 5.p. 022624: 016500 177762 mov 177762(r5),r0 ; @.r. 022630: 042700 177600 bic #177600,r0 ; @E.. 022634: 006300 asl r0 ; @. 022636: 010065 177756 mov r0,177756(r5) ; 5.n. 022642: 026565 177760 177752 cmp 177760(r5),177752(r5) ; u-p.j. 022650: 001453 beq 23000 ; +. 022652: 012746 127614 mov #127614,-(sp) ; f../ 022656: 016546 177760 mov 177760(r5),-(sp) ; f.p. 022662: 010446 mov r4,-(sp) ; &. 022664: 004767 164530 call rd$rct ; w.Xi 022670: 062706 000006 add #6,sp ; Fe.. 022674: 010065 177764 mov r0,177764(r5) ; 5.t. 022700: 001402 beq 22706 ; .. 022702: 000167 001036 jmp 23744 ; w... ; 022706: 016500 177756 mov 177756(r5),r0 ; @.n. 022712: 006300 asl r0 ; @. 022714: 062700 127614 add #127614,r0 ; @e./ 022720: 005010 clr (r0) ; .. 022722: 016500 177756 mov 177756(r5),r0 ; @.n. 022726: 005200 inc r0 ; .. 022730: 006300 asl r0 ; @. 022732: 062700 127614 add #127614,r0 ; @e./ 022736: 012710 040000 mov #40000,(r0) ; H..@ 022742: 012746 127614 mov #127614,-(sp) ; f../ 022746: 016546 177760 mov 177760(r5),-(sp) ; f.p. 022752: 010446 mov r4,-(sp) ; &. 022754: 004767 164760 call wr$rct ; w.pi 022760: 062706 000006 add #6,sp ; Fe.. 022764: 010065 177764 mov r0,177764(r5) ; 5.t. 022770: 001402 beq 22776 ; .. 022772: 000167 000560 jmp 23556 ; w.p. ; 022776: 000416 br 23034 ; .. ; 023000: 016500 177756 mov 177756(r5),r0 ; @.n. 023004: 006300 asl r0 ; @. 023006: 062700 126610 add #126610,r0 ; @e.- 023012: 005010 clr (r0) ; .. 023014: 016500 177756 mov 177756(r5),r0 ; @.n. 023020: 005200 inc r0 ; .. 023022: 006300 asl r0 ; @. 023024: 062700 126610 add #126610,r0 ; @e.- 023030: 012710 040000 mov #40000,(r0) ; H..@ 023034: 012746 126610 mov #126610,-(sp) ; f..- 023040: 016546 177752 mov 177752(r5),-(sp) ; f.j. 023044: 010446 mov r4,-(sp) ; &. 023046: 004767 164666 call wr$rct ; w.6i 023052: 062706 000006 add #6,sp ; Fe.. 023056: 010065 177764 mov r0,177764(r5) ; 5.t. 023062: 001402 beq 23070 ; .. 023064: 000167 000562 jmp 23652 ; w.r. ; 023070: 005765 177766 tst 177766(r5) ; u.v. 023074: 001403 beq 23104 ; .. 023076: 012700 010000 mov #10000,r0 ; @... 023102: 000401 br 23106 ; .. ; 023104: 005000 clr r0 ; .. 023106: 010064 000026 mov r0,26(r4) ; 4... 023112: 016501 177754 mov 177754(r5),r1 ; A.l. 023116: 006700 sxt r0 ; @. 023120: 066201 000056 add 56(r2),r1 ; .l.. 023124: 005500 adc r0 ; @. 023126: 066200 000054 add 54(r2),r0 ; .l,. 023132: 010064 000006 mov r0,6(r4) ; 4... 023136: 010164 000010 mov r1,10(r4) ; t... 023142: 012764 100000 000024 mov #100000,24(r4) ; t..... 023150: 012746 001000 mov #1000,-(sp) ; f... 023154: 012746 125604 mov #125604,-(sp) ; f..+ 023160: 010446 mov r4,-(sp) ; &. 023162: 004767 165136 call fill$tcb ; w.^j 023166: 062706 000006 add #6,sp ; Fe.. 023172: 010446 mov r4,-(sp) ; &. 023174: 004767 013700 call write ; w.@. 023200: 005726 tst (sp)+ ; V. 023202: 010065 177764 mov r0,177764(r5) ; 5.t. 023206: 001402 beq 23214 ; .. 023210: 000167 177026 jmp 22242 ; w..~ ; 023214: 012746 001000 mov #1000,-(sp) ; f... 023220: 012746 132604 mov #132604,-(sp) ; f..5 023224: 010446 mov r4,-(sp) ; &. 023226: 004767 165072 call fill$tcb ; w.:j 023232: 062706 000006 add #6,sp ; Fe.. 023236: 010446 mov r4,-(sp) ; &. 023240: 004767 013604 call read ; w... 023244: 005726 tst (sp)+ ; V. 023246: 010065 177764 mov r0,177764(r5) ; 5.t. 023252: 001411 beq 23276 ; .. 023254: 036527 177764 000002 bit 177764(r5),#2 ; W=t... 023262: 001403 beq 23272 ; .. 023264: 005765 177766 tst 177766(r5) ; u.v. 023270: 001002 bne 23276 ; .. 023272: 000167 176744 jmp 22242 ; w.d} ; 023276: 012765 125604 177746 mov #125604,177746(r5) ; u..+f. 023304: 012703 132604 mov #132604,r3 ; C..5 023310: 012765 000400 177770 mov #400,177770(r5) ; u...x. 023316: 000411 br 23342 ; .. ; 023320: 016500 177746 mov 177746(r5),r0 ; @.f. 023324: 062765 000002 177746 add #2,177746(r5) ; ue..f. 023332: 021023 cmp (r0),(r3)+ ; ." 023334: 001402 beq 23342 ; .. 023336: 000167 176700 jmp 22242 ; w.@} ; 023342: 005365 177770 dec 177770(r5) ; u.x. 023346: 002364 bge 23320 ; t. 023350: 016546 000010 mov 10(r5),-(sp) ; f... 023354: 016546 000006 mov 6(r5),-(sp) ; f... 023360: 010446 mov r4,-(sp) ; &. 023362: 004767 000630 call replace ; w... 023366: 062706 000006 add #6,sp ; Fe.. 023372: 005700 tst r0 ; @. 023374: 001402 beq 23402 ; .. 023376: 000167 000534 jmp 24136 ; w.\. ; 023402: 042767 170200 101200 bic #170200,124610 ; wE.p.. 023410: 005067 101200 clr 124614 ; 7... 023414: 005067 101176 clr 124616 ; 7.~. 023420: 005067 101174 clr 124620 ; 7.|. 023424: 005067 101172 clr 124622 ; 7.z. 023430: 005067 101170 clr 124624 ; 7.x. 023434: 005067 101166 clr 124626 ; 7.v. 023440: 012746 124600 mov #124600,-(sp) ; f..) 023444: 005046 clr -(sp) ; &. 023446: 010446 mov r4,-(sp) ; &. 023450: 004767 164264 call wr$rct ; w.4h 023454: 062706 000006 add #6,sp ; Fe.. 023460: 010065 177764 mov r0,177764(r5) ; 5.t. 023464: 001402 beq 23472 ; .. 023466: 000167 000366 jmp 24060 ; w.v. ; 023472: 005765 177754 tst 177754(r5) ; u.l. 023476: 002403 blt 23506 ; .. 023500: 012746 000001 mov #1,-(sp) ; f... 023504: 000401 br 23510 ; .. ; 023506: 005046 clr -(sp) ; &. 023510: 016546 177766 mov 177766(r5),-(sp) ; f.v. 023514: 016546 000010 mov 10(r5),-(sp) ; f... 023520: 016546 000006 mov 6(r5),-(sp) ; f... 023524: 010446 mov r4,-(sp) ; &. 023526: 004767 022332 call do$bbr ; w.Z$ 023532: 062706 000012 add #12,sp ; Fe.. 023536: 016564 177754 000050 mov 177754(r5),50(r4) ; t.l.(. 023544: 006764 000046 sxt 46(r4) ; t.&. 023550: 005000 clr r0 ; .. 023552: 000167 000434 jmp 24212 ; w... ; 023556: 016500 177756 mov 177756(r5),r0 ; @.n. 023562: 006300 asl r0 ; @. 023564: 062700 127614 add #127614,r0 ; @e./ 023570: 016510 000010 mov 10(r5),(r0) ; H... 023574: 016546 000006 mov 6(r5),-(sp) ; f... 023600: 042716 170000 bic #170000,(sp) ; NE.p 023604: 052716 030000 bis #30000,(sp) ; NU.0 023610: 016500 177756 mov 177756(r5),r0 ; @.n. 023614: 005200 inc r0 ; .. 023616: 006300 asl r0 ; @. 023620: 062700 127614 add #127614,r0 ; @e./ 023624: 012610 mov (sp)+,(r0) ; .. 023626: 012746 127614 mov #127614,-(sp) ; f../ 023632: 016546 177760 mov 177760(r5),-(sp) ; f.p. 023636: 010446 mov r4,-(sp) ; &. 023640: 004767 164074 call wr$rct ; w.U ; ; replace( tcb, lbn ) replace:: 024216: 004567 052656 jsr r5,csv$ ; w..U 024222: 162706 000016 sub #16,sp ; Fe.. 024226: 016504 000004 mov 4(r5),r4 ; D... 024232: 016403 000002 mov 2(r4),r3 ; .... 024236: 016501 000010 mov 10(r5),r1 ; A... 024242: 016500 000006 mov 6(r5),r0 ; @... 024246: 066301 000046 add 46(r3),r1 ; Al&. 024252: 005500 adc r0 ; @. 024254: 066300 000044 add 44(r3),r0 ; @l$. 024260: 010064 000006 mov r0,6(r4) ; 4... 024264: 010164 000010 mov r1,10(r4) ; t... 024270: 012764 100000 000024 mov #100000,24(r4) ; t..... 024276: 012746 001000 mov #1000,-(sp) ; f... 024302: 012746 125604 mov #125604,-(sp) ; f..+ 024306: 010446 mov r4,-(sp) ; &. 024310: 004767 164010 call fill$tcb ; w..h 024314: 062706 000006 add #6,sp ; Fe.. 024320: 010446 mov r4,-(sp) ; &. 024322: 004767 001552 call fill$id ; w.j. 024326: 005726 tst (sp)+ ; V. 024330: 016465 000034 177764 mov 34(r4),177764(r5) ; 5...t. 024336: 016465 000032 177762 mov 32(r4),177762(r5) ; 5...r. 024344: 016465 000030 177760 mov 30(r4),177760(r5) ; 5...p. 024352: 016501 000010 mov 10(r5),r1 ; A... 024356: 016500 000006 mov 6(r5),r0 ; @... 024362: 166401 000034 sub 34(r4),r1 ; .m.. 024366: 005600 sbc r0 ; .. 024370: 010065 177752 mov r0,177752(r5) ; 5.j. 024374: 010165 177754 mov r1,177754(r5) ; u.l. 024400: 036727 100204 010000 bit 124610,#10000 ; W=.... 024406: 001402 beq 24414 ; .. 024410: 000167 000370 jmp 25004 ; w.x. ; 024414: 005065 177770 clr 177770(r5) ; 5.x. 024420: 000167 000350 jmp 24774 ; w.h. ; 024424: 016546 177770 mov 177770(r5),-(sp) ; f.x. 024430: 006746 sxt -(sp) ; f. 024432: 066566 177754 000002 add 177754(r5),2(sp) ; vml... 024440: 005516 adc (sp) ; N. 024442: 066516 177752 add 177752(r5),(sp) ; Nmj. 024446: 010446 mov r4,-(sp) ; &. 024450: 004767 172426 call get$rbn ; w..u 024454: 062706 000006 add #6,sp ; Fe.. 024460: 005700 tst r0 ; @. 024462: 001034 bne 24554 ; .. 024464: 005764 000046 tst 46(r4) ; t.&. 024470: 002431 blt 24554 ; .. 024472: 005065 177766 clr 177766(r5) ; 5.v. 024476: 000402 br 24504 ; .. ; 024500: 005265 177766 inc 177766(r5) ; 5.v. 024504: 016500 177766 mov 177766(r5),r0 ; @.v. 024510: 006300 asl r0 ; @. 024512: 006300 asl r0 ; @. 024514: 062700 100066 add #100066,r0 ; @e6. 024520: 116000 000002 movb 2(r0),r0 ; .... 024524: 020065 177770 cmp r0,177770(r5) ; 5 x. 024530: 001363 bne 24500 ; s. 024532: 016500 177766 mov 177766(r5),r0 ; @.v. 024536: 006300 asl r0 ; @. 024540: 006300 asl r0 ; @. 024542: 062700 100066 add #100066,r0 ; @e6. 024546: 112760 177777 000002 movb #177777,2(r0) ; p..... 024554: 036327 000030 100000 bit 30(r3),#100000 ; W<.... 024562: 001102 bne 24770 ; B. 024564: 005064 000026 clr 26(r4) ; 4... 024570: 016501 177770 mov 177770(r5),r1 ; A.x. 024574: 006700 sxt r0 ; @. 024576: 066501 177754 add 177754(r5),r1 ; Aml. 024602: 005500 adc r0 ; @. 024604: 066500 177752 add 177752(r5),r0 ; @mj. 024610: 066301 000046 add 46(r3),r1 ; Al&. 024614: 005500 adc r0 ; @. 024616: 066300 000044 add 44(r3),r0 ; @l$. 024622: 010064 000006 mov r0,6(r4) ; 4... 024626: 010164 000010 mov r1,10(r4) ; t... 024632: 012764 100000 000024 mov #100000,24(r4) ; t..... 024640: 012746 001000 mov #1000,-(sp) ; f... 024644: 012746 125604 mov #125604,-(sp) ; f..+ 024650: 010446 mov r4,-(sp) ; &. 024652: 004767 163446 call fill$tcb ; w.&g 024656: 062706 000006 add #6,sp ; Fe.. 024662: 010446 mov r4,-(sp) ; &. 024664: 004767 012160 call read ; w.p. 024670: 005726 tst (sp)+ ; V. 024672: 012746 125604 mov #125604,-(sp) ; f..+ 024676: 016546 177770 mov 177770(r5),-(sp) ; f.x. 024702: 062716 000003 add #3,(sp) ; Ne.. 024706: 010446 mov r4,-(sp) ; &. 024710: 004767 000646 call wr$xbn ; w.&. 024714: 062706 000006 add #6,sp ; Fe.. 024720: 042767 110000 077662 bic #110000,124610 ; wE..2. 024726: 052767 010000 077654 bis #10000,124610 ; wU..,. 024734: 012746 124600 mov #124600,-(sp) ; f..) 024740: 005046 clr -(sp) ; &. 024742: 010446 mov r4,-(sp) ; &. 024744: 004767 162770 call wr$rct ; w.xe 024750: 062706 000006 add #6,sp ; Fe.. 024754: 010065 177756 mov r0,177756(r5) ; 5.n. 024760: 001403 beq 24770 ; .. 024762: 012700 000001 mov #1,r0 ; @... 024766: 000546 br 25304 ; f. ; 024770: 005265 177770 inc 177770(r5) ; 5.x. 024774: 026563 177770 000110 cmp 177770(r5),110(r3) ; s-x.H. 025002: 002610 blt 24424 ; .. 025004: 016564 177762 000032 mov 177762(r5),32(r4) ; t.r... 025012: 016564 177760 000030 mov 177760(r5),30(r4) ; t.p... 025020: 010446 mov r4,-(sp) ; &. 025022: 004767 001524 call reformat ; w.T. 025026: 005726 tst (sp)+ ; V. 025030: 036327 000030 100000 bit 30(r3),#100000 ; W<.... 025036: 001110 bne 25260 ; H. 025040: 005065 177770 clr 177770(r5) ; 5.x. 025044: 000460 br 25206 ; 0. ; 025046: 012746 125604 mov #125604,-(sp) ; f..+ 025052: 016546 177770 mov 177770(r5),-(sp) ; f.x. 025056: 062716 000003 add #3,(sp) ; Ne.. 025062: 010446 mov r4,-(sp) ; &. 025064: 004767 000220 call rd$xbn ; w... 025070: 062706 000006 add #6,sp ; Fe.. 025074: 005064 000026 clr 26(r4) ; 4... 025100: 016501 177770 mov 177770(r5),r1 ; A.x. 025104: 006700 sxt r0 ; @. 025106: 066501 177754 add 177754(r5),r1 ; Aml. 025112: 005500 adc r0 ; @. 025114: 066500 177752 add 177752(r5),r0 ; @mj. 025120: 066301 000046 add 46(r3),r1 ; Al&. 025124: 005500 adc r0 ; @. 025126: 066300 000044 add 44(r3),r0 ; @l$. 025132: 010064 000006 mov r0,6(r4) ; 4... 025136: 010164 000010 mov r1,10(r4) ; t... 025142: 012764 100000 000024 mov #100000,24(r4) ; t..... 025150: 012746 001000 mov #1000,-(sp) ; f... 025154: 012746 125604 mov #125604,-(sp) ; f..+ 025160: 010446 mov r4,-(sp) ; &. 025162: 004767 163136 call fill$tcb ; w.^f 025166: 062706 000006 add #6,sp ; Fe.. 025172: 010446 mov r4,-(sp) ; &. 025174: 004767 011700 call write ; w.@. 025200: 005726 tst (sp)+ ; V. 025202: 005265 177770 inc 177770(r5) ; 5.x. 025206: 026563 177770 000110 cmp 177770(r5),110(r3) ; s-x.H. 025214: 002714 blt 25046 ; L. 025216: 042767 110000 077364 bic #110000,124610 ; wE..t~ 025224: 012746 124600 mov #124600,-(sp) ; f..) 025230: 005046 clr -(sp) ; &. 025232: 010446 mov r4,-(sp) ; &. 025234: 004767 162500 call wr$rct ; w.@e 025240: 062706 000006 add #6,sp ; Fe.. 025244: 010065 177756 mov r0,177756(r5) ; 5.n. 025250: 001403 beq 25260 ; .. 025252: 012700 000001 mov #1,r0 ; @... 025256: 000412 br 25304 ; .. ; 025260: 016564 177762 000032 mov 177762(r5),32(r4) ; t.r... 025266: 016564 177760 000030 mov 177760(r5),30(r4) ; t.p... 025274: 016564 177764 000034 mov 177764(r5),34(r4) ; t.t... 025302: 005000 clr r0 ; .. 025304: 000167 051604 jmp cret$ ; w..S ; ; rd$xbn( tcb, i, buffer ) rd$xbn:: 025310: 004567 051564 jsr r5,csv$ ; w.tS 025314: 162706 000004 sub #4,sp ; Fe.. 025320: 016504 000004 mov 4(r5),r4 ; D... 025324: 016465 000002 177764 mov 2(r4),177764(r5) ; 5...t. 025332: 005064 000026 clr 26(r4) ; 4... 025336: 016564 000006 000010 mov 6(r5),10(r4) ; t..... 025344: 006764 000006 sxt 6(r4) ; t... 025350: 012764 100000 000024 mov #100000,24(r4) ; t..... 025356: 012765 000003 177770 mov #3,177770(r5) ; u...x. 025364: 000467 br 25544 ; 7. ; 025366: 012746 001000 mov #1000,-(sp) ; f... 025372: 016546 000010 mov 10(r5),-(sp) ; f... 025376: 010446 mov r4,-(sp) ; &. 025400: 004767 162720 call fill$tcb ; w.Pe 025404: 062706 000006 add #6,sp ; Fe.. 025410: 010446 mov r4,-(sp) ; &. 025412: 004767 011432 call read ; w... 025416: 005726 tst (sp)+ ; V. 025420: 005700 tst r0 ; @. 025422: 001033 bne 25512 ; .. 025424: 012764 132604 000044 mov #132604,44(r4) ; t..5$. 025432: 010446 mov r4,-(sp) ; &. 025434: 004767 011410 call read ; w... 025440: 005726 tst (sp)+ ; V. 025442: 005700 tst r0 ; @. 025444: 001022 bne 25512 ; .. 025446: 016503 000010 mov 10(r5),r3 ; C... 025452: 012702 132604 mov #132604,r2 ; B..5 025456: 012765 000400 177766 mov #400,177766(r5) ; u...v. 025464: 000402 br 25472 ; .. ; 025466: 022322 cmp (r3)+,(r2)+ ; R$ 025470: 001003 bne 25500 ; .. 025472: 005365 177766 dec 177766(r5) ; u.v. 025476: 002373 bge 25466 ; {. 025500: 005765 177766 tst 177766(r5) ; u.v. 025504: 002002 bge 25512 ; .. 025506: 005000 clr r0 ; .. 025510: 000422 br 25556 ; .. ; 025512: 016564 000010 000044 mov 10(r5),44(r4) ; t...$. 025520: 016500 177764 mov 177764(r5),r0 ; @.t. 025524: 066064 000110 000010 add 110(r0),10(r4) ; 4lH... 025532: 005564 000006 adc 6(r4) ; t... 025536: 012764 100000 000024 mov #100000,24(r4) ; t..... 025544: 005365 177770 dec 177770(r5) ; u.x. 025550: 002306 bge 25366 ; F. 025552: 012700 000005 mov #5,r0 ; @... 025556: 000167 051332 jmp cret$ ; w.ZR ; ; wr$xbn( tcb, i, buffer ) wr$xbn:: 025562: 004567 051312 jsr r5,csv$ ; w.JR 025566: 162706 000006 sub #6,sp ; Fe.. 025572: 016504 000004 mov 4(r5),r4 ; D... 025576: 005065 177770 clr 177770(r5) ; 5.x. 025602: 016465 000002 177762 mov 2(r4),177762(r5) ; 5...r. 025610: 005064 000026 clr 26(r4) ; 4... 025614: 016564 000006 000010 mov 6(r5),10(r4) ; t..... 025622: 006764 000006 sxt 6(r4) ; t... 025626: 012764 100000 000024 mov #100000,24(r4) ; t..... 025634: 012765 000003 177766 mov #3,177766(r5) ; u...v. 025642: 000502 br 26050 ; B. ; 025644: 012746 001000 mov #1000,-(sp) ; f... 025650: 016546 000010 mov 10(r5),-(sp) ; f... 025654: 010446 mov r4,-(sp) ; &. 025656: 004767 162442 call fill$tcb ; w."e 025662: 062706 000006 add #6,sp ; Fe.. 025666: 010446 mov r4,-(sp) ; &. 025670: 004767 011204 call write ; w... 025674: 005726 tst (sp)+ ; V. 025676: 005700 tst r0 ; @. 025700: 001046 bne 26016 ; &. 025702: 012764 132604 000044 mov #132604,44(r4) ; t..5$. 025710: 010446 mov r4,-(sp) ; &. 025712: 004767 011132 call read ; w.Z. 025716: 005726 tst (sp)+ ; V. 025720: 005700 tst r0 ; @. 025722: 001035 bne 26016 ; .. 025724: 016503 000010 mov 10(r5),r3 ; C... 025730: 012702 132604 mov #132604,r2 ; B..5 025734: 012765 000400 177764 mov #400,177764(r5) ; u...t. 025742: 000402 br 25750 ; .. ; 025744: 022322 cmp (r3)+,(r2)+ ; R$ 025746: 001003 bne 25756 ; .. 025750: 005365 177764 dec 177764(r5) ; u.t. 025754: 002373 bge 25744 ; {. 025756: 005765 177764 tst 177764(r5) ; u.t. 025762: 002004 bge 25774 ; .. 025764: 012765 000001 177770 mov #1,177770(r5) ; u...x. 025772: 000411 br 26016 ; .. ; 025774: 012764 010000 000026 mov #10000,26(r4) ; t..... 026002: 010446 mov r4,-(sp) ; &. 026004: 004767 011070 call write ; w.8. 026010: 005726 tst (sp)+ ; V. 026012: 005064 000026 clr 26(r4) ; 4... 026016: 016564 000010 000044 mov 10(r5),44(r4) ; t...$. 026024: 016500 177762 mov 177762(r5),r0 ; @.r. 026030: 066064 000110 000010 add 110(r0),10(r4) ; 4lH... 026036: 005564 000006 adc 6(r4) ; t... 026042: 012764 100000 000024 mov #100000,24(r4) ; t..... 026050: 005365 177766 dec 177766(r5) ; u.v. 026054: 002273 bge 25644 ; ;. 026056: 005765 177770 tst 177770(r5) ; u.x. 026062: 001402 beq 26070 ; .. 026064: 005000 clr r0 ; .. 026066: 000402 br 26074 ; .. ; 026070: 012700 000005 mov #5,r0 ; @... 026074: 000167 051014 jmp cret$ ; w..R ; ; fill$id( tcb ) fill$id:: 026100: 004567 050774 jsr r5,csv$ ; w.|Q 026104: 162706 000004 sub #4,sp ; Fe.. 026110: 016504 000004 mov 4(r5),r4 ; D... 026114: 016403 000002 mov 2(r4),r3 ; .... 026120: 016346 000110 mov 110(r3),-(sp) ; f.H. 026124: 016446 000030 mov 30(r4),-(sp) ; &... 026130: 016346 000122 mov 122(r3),-(sp) ; f.R. 026134: 006746 sxt -(sp) ; f. 026136: 004767 050564 call 76726 ; w.tQ 026142: 062706 000006 add #6,sp ; Fe.. 026146: 010146 mov r1,-(sp) ; f. 026150: 010046 mov r0,-(sp) ; &. 026152: 016446 000032 mov 32(r4),-(sp) ; &... 026156: 016346 000120 mov 120(r3),-(sp) ; f.P. 026162: 006746 sxt -(sp) ; f. 026164: 004767 050536 call 76726 ; w.^Q 026170: 062706 000006 add #6,sp ; Fe.. 026174: 060166 000002 add r1,2(sp) ; v`.. 026200: 005516 adc (sp) ; N. 026202: 060016 add r0,(sp) ; .` 026204: 004767 047672 call 76102 ; w.:O 026210: 062706 000006 add #6,sp ; Fe.. 026214: 010165 177764 mov r1,177764(r5) ; u.t. 026220: 005065 177766 clr 177766(r5) ; 5.v. 026224: 000412 br 26252 ; .. ; 026226: 016500 177766 mov 177766(r5),r0 ; @.v. 026232: 006300 asl r0 ; @. 026234: 006300 asl r0 ; @. 026236: 062700 100066 add #100066,r0 ; @e6. 026242: 105060 000003 clrb 3(r0) ; 0... 026246: 005265 177766 inc 177766(r5) ; 5.v. 026252: 026563 177766 000110 cmp 177766(r5),110(r3) ; s-v.H. 026260: 002762 blt 26226 ; r. 026262: 005065 177770 clr 177770(r5) ; 5.x. 026266: 000523 br 26536 ; S. ; 026270: 016346 000110 mov 110(r3),-(sp) ; f.H. 026274: 016346 000116 mov 116(r3),-(sp) ; f.N. 026300: 016546 177770 mov 177770(r5),-(sp) ; f.x. 026304: 004767 050134 call 76444 ; w.\P 026310: 022626 cmp (sp)+,(sp)+ ; .% 026312: 010046 mov r0,-(sp) ; &. 026314: 066516 177764 add 177764(r5),(sp) ; Nmt. 026320: 004767 050232 call 76556 ; w..P 026324: 022626 cmp (sp)+,(sp)+ ; .% 026326: 010065 177766 mov r0,177766(r5) ; 5.v. 026332: 016500 177766 mov 177766(r5),r0 ; @.v. 026336: 006300 asl r0 ; @. 026340: 006300 asl r0 ; @. 026342: 062700 100066 add #100066,r0 ; @e6. 026346: 105760 000003 tstb 3(r0) ; p... 026352: 001413 beq 26402 ; .. 026354: 016346 000110 mov 110(r3),-(sp) ; f.H. 026360: 016546 177766 mov 177766(r5),-(sp) ; f.v. 026364: 005216 inc (sp) ; .. 026366: 004767 050164 call 76556 ; w.tP 026372: 022626 cmp (sp)+,(sp)+ ; .% 026374: 010065 177766 mov r0,177766(r5) ; 5.v. 026400: 000754 br 26332 ; l. ; 026402: 016500 177766 mov 177766(r5),r0 ; @.v. 026406: 006300 asl r0 ; @. 026410: 006300 asl r0 ; @. 026412: 062700 100066 add #100066,r0 ; @e6. 026416: 116410 000030 movb 30(r4),(r0) ; .... 026422: 016402 000030 mov 30(r4),r2 ; .... 026426: 006202 asr r2 ; .. 026430: 006202 asr r2 ; .. 026432: 006202 asr r2 ; .. 026434: 006202 asr r2 ; .. 026436: 042702 177417 bic #177417,r2 ; BE.. 026442: 066402 000032 add 32(r4),r2 ; .m.. 026446: 016500 177766 mov 177766(r5),r0 ; @.v. 026452: 006300 asl r0 ; @. 026454: 006300 asl r0 ; @. 026456: 062700 100066 add #100066,r0 ; @e6. 026462: 110260 000001 movb r2,1(r0) ; 0... 026466: 016500 177766 mov 177766(r5),r0 ; @.v. 026472: 006300 asl r0 ; @. 026474: 006300 asl r0 ; @. 026476: 062700 100066 add #100066,r0 ; @e6. 026502: 116560 177770 000002 movb 177770(r5),2(r0) ; p.x... 026510: 016500 177766 mov 177766(r5),r0 ; @.v. 026514: 006300 asl r0 ; @. 026516: 006300 asl r0 ; @. 026520: 062700 100066 add #100066,r0 ; @e6. 026524: 112760 000002 000003 movb #2,3(r0) ; p..... 026532: 005265 177770 inc 177770(r5) ; 5.x. 026536: 026563 177770 000110 cmp 177770(r5),110(r3) ; s-x.H. 026544: 002651 blt 26270 ; ). 026546: 000167 050342 jmp cret$ ; w.bP ; ; reformat( tcb ) reformat:: 026552: 004567 050322 jsr r5,csv$ ; w.RP 026556: 005746 tst -(sp) ; f. 026560: 016504 000004 mov 4(r5),r4 ; D... 026564: 016403 000002 mov 2(r4),r3 ; .... 026570: 010346 mov r3,-(sp) ; f. 026572: 004767 013024 call select ; w... 026576: 005726 tst (sp)+ ; V. 026600: 010346 mov r3,-(sp) ; f. 026602: 004767 007556 call restore ; w.n. 026606: 005726 tst (sp)+ ; V. 026610: 005065 177770 clr 177770(r5) ; 5.x. 026614: 000407 br 26634 ; .. ; 026616: 012746 000005 mov #5,-(sp) ; f... 026622: 004767 164014 call put$udc ; w..h 026626: 005726 tst (sp)+ ; V. 026630: 005265 177770 inc 177770(r5) ; 5.x. 026634: 026564 177770 000030 cmp 177770(r5),30(r4) ; t-x... 026642: 002765 blt 26616 ; u. 026644: 012765 000140 177766 mov #140,177766(r5) ; u.`.v. 026652: 026463 000030 000064 cmp 30(r4),64(r3) ; 3-..4. 026660: 002403 blt 26670 ; .. 026662: 052765 000002 177766 bis #2,177766(r5) ; uU..v. 026670: 012765 100066 177770 mov #100066,177770(r5) ; u.6.x. 026676: 112767 000100 111116 movb #100,w$cmd ; w.@.N. 026704: 116567 177770 111106 movb 177770(r5),w$dat ; w.x.F. 026712: 116567 177771 111100 movb 177771(r5),w$dat ; w.y.@. 026720: 105067 111074 clrb w$dat ; 7.<. 026724: 016746 051302 mov 100232,-(sp) ; f.BR 026730: 004767 163706 call put$udc ; w.Fg 026734: 005726 tst (sp)+ ; V. 026736: 112767 000100 111056 movb #100,w$cmd ; w.@... 026744: 016300 000076 mov 76(r3),r0 ; @.>. 026750: 005400 neg r0 ; .. 026752: 110067 111042 movb r0,w$dat ; 7.". 026756: 016300 000100 mov 100(r3),r0 ; @.@. 026762: 005400 neg r0 ; .. 026764: 110067 111030 movb r0,w$dat ; 7... 026770: 016300 000102 mov 102(r3),r0 ; @.B. 026774: 005400 neg r0 ; .. 026776: 110067 111016 movb r0,w$dat ; 7... 027002: 016300 000104 mov 104(r3),r0 ; @.D. 027006: 005400 neg r0 ; .. 027010: 110067 111004 movb r0,w$dat ; 7... 027014: 116467 000032 110776 movb 32(r4),w$dat ; 7...~. 027022: 016300 000106 mov 106(r3),r0 ; @.F. 027026: 005100 com r0 ; @. 027030: 110067 110764 movb r0,w$dat ; 7.t. 027034: 016300 000110 mov 110(r3),r0 ; @.H. 027040: 005100 com r0 ; @. 027042: 110067 110752 movb r0,w$dat ; 7.j. 027046: 112767 177773 110744 movb #177773,w$dat ; w.{.d. 027054: 005065 177770 clr 177770(r5) ; 5.x. 027060: 000413 br 27110 ; .. ; 027062: 016546 177766 mov 177766(r5),-(sp) ; f.v. 027066: 004767 163550 call put$udc ; w.hg 027072: 005726 tst (sp)+ ; V. 027074: 136727 110712 000030 bitb r$cmd,#30 ; W=J... 027102: 001406 beq 27120 ; .. 027104: 005265 177770 inc 177770(r5) ; 5.x. 027110: 026527 177770 000010 cmp 177770(r5),#10 ; W-x... 027116: 002761 blt 27062 ; q. 027120: 112767 000107 110674 movb #107,w$cmd ; w.G.<. 027126: 116767 051054 110664 movb 100206,w$dat ; w.,R4. 027134: 010346 mov r3,-(sp) ; f. 027136: 004767 013000 call deselect ; w... 027142: 005726 tst (sp)+ ; V. 027144: 000167 047744 jmp cret$ ; w.dO ;-------------------------------------------------------- ; ; File: setup.c ; ; ; word setup( ) setup:: 027150: 004567 047724 jsr r5,csv$ ; w.TO 027154: 162706 000004 sub #4,sp ; Fe.. 027160: 012746 100046 mov #udc,-(sp) ; f.&. 027164: 004767 015050 call $acquire ; w.(. 027170: 005726 tst (sp)+ ; V. 027172: 005065 177766 clr 177766(r5) ; 5.v. 027176: 012703 105036 mov #$ucb,r3 ; C... 027202: 012765 000002 177764 mov #2,177764(r5) ; u...t. 027210: 000167 000446 jmp 27662 ; w.&. ; 027214: 016504 177764 mov 177764(r5),r4 ; D.t. 027220: 042704 177774 bic #177774,r4 ; DE|. 027224: 012767 000010 110550 mov #10,rw$pll ; w...h. 027232: 112767 000104 110562 movb #104,w$cmd ; w.D.r. 027240: 105067 110554 clrb w$dat ; 7.l. 027244: 112767 000107 110550 movb #107,w$cmd ; w.G.h. 027252: 112767 000362 110540 movb #362,w$dat ; w.r.`. 027260: 112767 000202 110532 movb #202,w$dat ; w...Z. 027266: 112767 000271 110524 movb #271,w$dat ; w.9.T. 027274: 010446 mov r4,-(sp) ; &. 027276: 062716 000044 add #44,(sp) ; Ne$. 027302: 004767 163334 call put$udc ; w.\f 027306: 005726 tst (sp)+ ; V. 027310: 036727 110472 140000 bit r$fps,#140000 ; W=:..@ 027316: 001416 beq 27354 ; .. 027320: 016500 177766 mov 177766(r5),r0 ; @.v. 027324: 005265 177766 inc 177766(r5) ; 5.v. 027330: 006300 asl r0 ; @. 027332: 062700 100054 add #100054,r0 ; @e,. 027336: 010310 mov r3,(r0) ; H. 027340: 010346 mov r3,-(sp) ; f. 027342: 010446 mov r4,-(sp) ; &. 027344: 004767 000350 call rd$drive ; w.h. 027350: 022626 cmp (sp)+,(sp)+ ; .% 027352: 000537 br 27652 ; _. ; 027354: 012767 000011 110420 mov #11,rw$pll ; w..... 027362: 112767 000107 110432 movb #107,w$cmd ; w.G... 027370: 112767 000367 110422 movb #367,w$dat ; w.w... 027376: 010446 mov r4,-(sp) ; &. 027400: 062716 000054 add #54,(sp) ; Ne,. 027404: 004767 163232 call put$udc ; w..f 027410: 005726 tst (sp)+ ; V. 027412: 005065 177770 clr 177770(r5) ; 5.x. 027416: 000434 br 27510 ; .. ; 027420: 112767 000111 110374 movb #111,w$cmd ; w.I.|. 027426: 136727 110356 000020 bitb r$dat,#20 ; W=n... 027434: 001031 bne 27520 ; .. 027436: 026527 177770 000120 cmp 177770(r5),#120 ; W-x.P. 027444: 002412 blt 27472 ; .. 027446: 026527 177770 000202 cmp 177770(r5),#202 ; W-x... 027454: 003006 bgt 27472 ; .. 027456: 012746 000005 mov #5,-(sp) ; f... 027462: 004767 163154 call put$udc ; w.lf 027466: 005726 tst (sp)+ ; V. 027470: 000405 br 27504 ; .. ; 027472: 012746 000007 mov #7,-(sp) ; f... 027476: 004767 163140 call put$udc ; w.`f 027502: 005726 tst (sp)+ ; V. 027504: 005265 177770 inc 177770(r5) ; 5.x. 027510: 026527 177770 000240 cmp 177770(r5),#240 ; W-x. . 027516: 002740 blt 27420 ; `. 027520: 112767 000111 110274 movb #111,w$cmd ; w.I.<. 027526: 136727 110256 000020 bitb r$dat,#20 ; W=.... 027534: 001446 beq 27652 ; &. 027536: 016500 177766 mov 177766(r5),r0 ; @.v. 027542: 005265 177766 inc 177766(r5) ; 5.v. 027546: 006300 asl r0 ; @. 027550: 062700 100054 add #100054,r0 ; @e,. 027554: 010310 mov r3,(r0) ; H. 027556: 112767 000104 110236 movb #104,w$cmd ; w.D... 027564: 112767 000001 110226 movb #1,w$dat ; w..... 027572: 010446 mov r4,-(sp) ; &. 027574: 062716 000054 add #54,(sp) ; Ne,. 027600: 004767 163036 call put$udc ; w..f 027604: 005726 tst (sp)+ ; V. 027606: 112767 000111 110206 movb #111,w$cmd ; w.I... 027614: 136727 110170 000020 bitb r$dat,#20 ; W=x... 027622: 001406 beq 27640 ; .. 027624: 010346 mov r3,-(sp) ; f. 027626: 010446 mov r4,-(sp) ; &. 027630: 004767 000254 call rx33$drive ; w.,. 027634: 022626 cmp (sp)+,(sp)+ ; .% 027636: 000405 br 27652 ; .. ; 027640: 010346 mov r3,-(sp) ; f. 027642: 010446 mov r4,-(sp) ; &. 027644: 004767 000344 call rx50$drive ; w.d. 027650: 022626 cmp (sp)+,(sp)+ ; .% 027652: 005265 177764 inc 177764(r5) ; 5.t. 027656: 062703 000142 add #142,r3 ; Ceb. 027662: 026527 177764 000006 cmp 177764(r5),#6 ; W-t... 027670: 002002 bge 27676 ; .. 027672: 000167 177316 jmp 27214 ; w.N~ ; 027676: 004767 162630 call init$udc ; w..e 027702: 012746 100046 mov #udc,-(sp) ; f.&. 027706: 004767 014422 call $release ; w... 027712: 005726 tst (sp)+ ; V. 027714: 000167 047174 jmp cret$ ; w.|N ; ; rd$drive( unit, ucb ) rd$drive:: 027720: 004567 047154 jsr r5,csv$ ; w.lN 027724: 016504 000004 mov 4(r5),r4 ; D... 027730: 016503 000006 mov 6(r5),r3 ; C... 027734: 010400 mov r4,r0 ; .. 027736: 006300 asl r0 ; @. 027740: 062700 002264 add #2264,r0 ; @e4. 027744: 011063 000042 mov (r0),42(r3) ; 3.". 027750: 010400 mov r4,r0 ; .. 027752: 006300 asl r0 ; @. 027754: 062700 002264 add #2264,r0 ; @e4. 027760: 011063 000040 mov (r0),40(r3) ; 3. . 027764: 010400 mov r4,r0 ; .. 027766: 006300 asl r0 ; @. 027770: 062700 002274 add #2274,r0 ; @e<. 027774: 011063 000036 mov (r0),36(r3) ; 3... 030000: 012763 100000 000012 mov #100000,12(r3) ; s..... 030006: 012763 000300 000070 mov #300,70(r3) ; s.@.8. 030014: 010400 mov r4,r0 ; .. 030016: 062700 000044 add #44,r0 ; @e$. 030022: 010063 000072 mov r0,72(r3) ; 3.:. 030026: 036727 107754 040000 bit r$fps,#40000 ; W=l..@ 030034: 001403 beq 30044 ; .. 030036: 012700 000010 mov #10,r0 ; @... 030042: 000402 br 30050 ; .. ; 030044: 012700 000012 mov #12,r0 ; @... 030050: 010063 000074 mov r0,74(r3) ; 3.<. 030054: 012763 000244 000030 mov #244,30(r3) ; s.$... 030062: 016763 047216 000014 mov 77304,14(r3) ; s..N.. 030070: 016763 047212 000016 mov 77306,16(r3) ; s..N.. 030076: 012763 001006 000140 mov #1006,140(r3) ; s...`. 030104: 000167 047004 jmp cret$ ; w..N ; ; rx33$drive( unit, ucb ) rx33$drive:: 030110: 004567 046764 jsr r5,csv$ ; w.tM 030114: 016504 000004 mov 4(r5),r4 ; D... 030120: 016503 000006 mov 6(r5),r3 ; C... 030124: 012763 100200 000012 mov #100200,12(r3) ; s..... 030132: 012763 000202 000070 mov #202,70(r3) ; s...8. 030140: 010400 mov r4,r0 ; .. 030142: 062700 000054 add #54,r0 ; @e,. 030146: 010063 000072 mov r0,72(r3) ; 3.:. 030152: 012763 000011 000074 mov #11,74(r3) ; s...<. 030160: 012763 001010 000030 mov #1010,30(r3) ; s..... 030166: 016763 047116 000014 mov 77310,14(r3) ; s.NN.. 030174: 016763 047112 000016 mov 77312,16(r3) ; s.JN.. 030202: 012763 001012 000140 mov #1012,140(r3) ; s...`. 030210: 000167 046700 jmp cret$ ; w.@M ; ; rx50$drive( unit, ucb ) rx50$drive:: 030214: 004567 046660 jsr r5,csv$ ; w.0M 030220: 016504 000004 mov 4(r5),r4 ; D... 030224: 016503 000006 mov 6(r5),r3 ; C... 030230: 012763 100200 000012 mov #100200,12(r3) ; s..... 030236: 012763 000202 000070 mov #202,70(r3) ; s...8. 030244: 010400 mov r4,r0 ; .. 030246: 062700 000054 add #54,r0 ; @e,. 030252: 010063 000072 mov r0,72(r3) ; 3.:. 030256: 012763 000011 000074 mov #11,74(r3) ; s...<. 030264: 012763 000410 000030 mov #410,30(r3) ; s..... 030272: 016763 047016 000014 mov 77314,14(r3) ; s..N.. 030300: 016763 047012 000016 mov 77316,16(r3) ; s..N.. 030306: 012763 001007 000140 mov #1007,140(r3) ; s...`. 030314: 000167 046574 jmp cret$ ; w.|M ;-------------------------------------------------------- ; ; File: media.c ; ; ; rd$media( ucb ) rd$media:: 030320: 004567 046554 jsr r5,csv$ ; w.lM 030324: 016504 000004 mov 4(r5),r4 ; D... 030330: 012746 100052 mov #100052,-(sp) ; f.*. 030334: 004767 013364 call $deqf.head ; w.t. 030340: 005726 tst (sp)+ ; V. 030342: 010002 mov r0,r2 ; .. 030344: 010462 000002 mov r4,2(r2) ; 2... 030350: 012746 100044 mov #mem,-(sp) ; f.$. 030354: 004767 013660 call $acquire ; w.0. 030360: 005726 tst (sp)+ ; V. 030362: 010246 mov r2,-(sp) ; &. 030364: 004767 001446 call rd$uib ; w.&. 030370: 005726 tst (sp)+ ; V. 030372: 010003 mov r0,r3 ; .. 030374: 001102 bne 30602 ; B. 030376: 010446 mov r4,-(sp) ; &. 030400: 016246 000044 mov 44(r2),-(sp) ; &.$. 030404: 004767 000572 call uib$to$ucb ; w.z. 030410: 022626 cmp (sp)+,(sp)+ ; .% 030412: 042764 000040 000030 bic #40,30(r4) ; tE ... 030420: 010446 mov r4,-(sp) ; &. 030422: 004767 011174 call select ; w.|. 030426: 005726 tst (sp)+ ; V. 030430: 112767 000107 107364 movb #107,w$cmd ; w.G.t. 030436: 016700 047544 mov 100206,r0 ; @.dO 030442: 052700 000010 bis #10,r0 ; @U.. 030446: 110067 107346 movb r0,w$dat ; 7.f. 030452: 016746 047554 mov 100232,-(sp) ; f.lO 030456: 004767 162160 call put$udc ; w.pd 030462: 005726 tst (sp)+ ; V. 030464: 112767 000100 107330 movb #100,w$cmd ; w.@.X. 030472: 116267 000044 107320 movb 44(r2),w$dat ; 7.$.P. 030500: 116267 000045 107312 movb 45(r2),w$dat ; 7.%.J. 030506: 105067 107306 clrb w$dat ; 7.F. 030512: 012746 000132 mov #132,-(sp) ; f.Z. 030516: 004767 162120 call put$udc ; w.Pd 030522: 005726 tst (sp)+ ; V. 030524: 136727 060051 000017 bitb 110601,#17 ; W=)`.. 030532: 001003 bne 30542 ; .. 030534: 042764 000200 000030 bic #200,30(r4) ; tE.... 030542: 112767 000107 107252 movb #107,w$cmd ; w.G.*. 030550: 116767 047432 107242 movb 100206,w$dat ; w..O". 030556: 016746 047450 mov 100232,-(sp) ; f.(O 030562: 004767 162054 call put$udc ; w.,d 030566: 005726 tst (sp)+ ; V. 030570: 010446 mov r4,-(sp) ; &. 030572: 004767 011344 call deselect ; w.d. 030576: 005726 tst (sp)+ ; V. 030600: 000411 br 30624 ; .. ; 030602: 020327 000005 cmp r3,#5 ; W .. 030606: 001006 bne 30624 ; .. 030610: 052764 000100 000030 bis #100,30(r4) ; tU@... 030616: 042764 000040 000030 bic #40,30(r4) ; tE ... 030624: 012746 100044 mov #mem,-(sp) ; f.$. 030630: 004767 013500 call $release ; w.@. 030634: 005726 tst (sp)+ ; V. 030636: 010246 mov r2,-(sp) ; &. 030640: 012746 100052 mov #100052,-(sp) ; f.*. 030644: 004767 012740 call $enq.head ; w.`. 030650: 022626 cmp (sp)+,(sp)+ ; .% 030652: 000167 046236 jmp cret$ ; w..L ; ; rx33$media( ucb ) rx33$media:: 030656: 004567 046216 jsr r5,csv$ ; w..L 030662: 016504 000004 mov 4(r5),r4 ; D... 030666: 052764 000400 000074 bis #400,74(r4) ; tU..<. 030674: 042764 000004 000072 bic #4,72(r4) ; tE..:. 030702: 012764 000202 000070 mov #202,70(r4) ; t...8. 030710: 005064 000064 clr 64(r4) ; 4.4. 030714: 012764 000120 000066 mov #120,66(r4) ; t.P.6. 030722: 012764 000017 000110 mov #17,110(r4) ; t...H. 030730: 012764 000002 000112 mov #2,112(r4) ; t...J. 030736: 012764 000120 000114 mov #120,114(r4) ; t.P.L. 030744: 012764 004540 000010 mov #4540,10(r4) ; t.`... 030752: 006764 000006 sxt 6(r4) ; t... 030756: 012764 000017 000130 mov #17,130(r4) ; t...X. 030764: 012764 000002 000132 mov #2,132(r4) ; t...Z. 030772: 012764 000001 000134 mov #1,134(r4) ; t...\. 031000: 042764 002000 000030 bic #2000,30(r4) ; tE.... 031006: 000167 046102 jmp cret$ ; w.BL ; ; rx50$media( ucb ) rx50$media:: 031012: 004567 046062 jsr r5,csv$ ; w.2L 031016: 016504 000004 mov 4(r5),r4 ; D... 031022: 042764 000400 000074 bic #400,74(r4) ; tE..<. 031030: 052764 000004 000072 bis #4,72(r4) ; tU..:. 031036: 036427 000030 000400 bit 30(r4),#400 ; .=.... 031044: 001412 beq 31072 ; .. 031046: 012764 000202 000070 mov #202,70(r4) ; t...8. 031054: 012764 000070 000064 mov #70,64(r4) ; t.8.4. 031062: 012764 000054 000066 mov #54,66(r4) ; t.,.6. 031070: 000410 br 31112 ; .. ; 031072: 012764 000201 000070 mov #201,70(r4) ; t...8. 031100: 012764 000120 000064 mov #120,64(r4) ; t.P.4. 031106: 005064 000066 clr 66(r4) ; 4.6. 031112: 012764 000012 000110 mov #12,110(r4) ; t...H. 031120: 012764 000001 000112 mov #1,112(r4) ; t...J. 031126: 012764 000120 000114 mov #120,114(r4) ; t.P.L. 031134: 012764 001440 000010 mov #1440,10(r4) ; t. ... 031142: 006764 000006 sxt 6(r4) ; t... 031146: 012764 000012 000130 mov #12,130(r4) ; t...X. 031154: 012764 000005 000132 mov #5,132(r4) ; t...Z. 031162: 012764 000020 000134 mov #20,134(r4) ; t...\. 031170: 052764 002000 000030 bis #2000,30(r4) ; tU.... 031176: 000167 045712 jmp cret$ ; w.JK ; ; uib$to$ucb( uib, ucb ) uib$to$ucb:: 031202: 004567 045672 jsr r5,csv$ ; w.:K 031206: 162706 000006 sub #6,sp ; Fe.. 031212: 016504 000004 mov 4(r5),r4 ; D... 031216: 016503 000006 mov 6(r5),r3 ; C... 031222: 016465 000012 177770 mov 12(r4),177770(r5) ; 5...x. 031230: 016465 000014 177766 mov 14(r4),177766(r5) ; 5...v. 031236: 016465 000016 177764 mov 16(r4),177764(r5) ; 5...t. 031244: 016465 000020 177762 mov 20(r4),177762(r5) ; 5...r. 031252: 016463 000022 000052 mov 22(r4),52(r3) ; 3...*. 031260: 016463 000024 000050 mov 24(r4),50(r3) ; 3...(. 031266: 016463 000026 000062 mov 26(r4),62(r3) ; 3...2. 031274: 016463 000030 000060 mov 30(r4),60(r3) ; 3...0. 031302: 016501 177770 mov 177770(r5),r1 ; A.x. 031306: 016500 177766 mov 177766(r5),r0 ; @.v. 031312: 066501 177764 add 177764(r5),r1 ; Amt. 031316: 005500 adc r0 ; @. 031320: 066500 177762 add 177762(r5),r0 ; @mr. 031324: 010063 000044 mov r0,44(r3) ; 3.$. 031330: 010163 000046 mov r1,46(r3) ; s.&. 031334: 016301 000046 mov 46(r3),r1 ; A.&. 031340: 016300 000044 mov 44(r3),r0 ; @.$. 031344: 066301 000052 add 52(r3),r1 ; Al*. 031350: 005500 adc r0 ; @. 031352: 066300 000050 add 50(r3),r0 ; @l(. 031356: 010063 000054 mov r0,54(r3) ; 3.,. 031362: 010163 000056 mov r1,56(r3) ; s... 031366: 016463 000054 000016 mov 54(r4),16(r3) ; 3.,... 031374: 016463 000056 000014 mov 56(r4),14(r3) ; 3..... 031402: 016463 000140 000022 mov 140(r4),22(r3) ; 3.`... 031410: 016463 000142 000020 mov 142(r4),20(r3) ; 3.b... 031416: 016463 000032 000110 mov 32(r4),110(r3) ; 3...H. 031424: 016463 000034 000112 mov 34(r4),112(r3) ; 3...J. 031432: 016463 000036 000114 mov 36(r4),114(r3) ; 3...L. 031440: 016463 000040 000064 mov 40(r4),64(r3) ; 3. .4. 031446: 016463 000050 000024 mov 50(r4),24(r3) ; 3.(... 031454: 016463 000052 000026 mov 52(r4),26(r3) ; 3.*... 031462: 016346 000026 mov 26(r3),-(sp) ; f... 031466: 016346 000024 mov 24(r3),-(sp) ; f... 031472: 004767 044746 call 76444 ; w.fI 031476: 022626 cmp (sp)+,(sp)+ ; .% 031500: 010046 mov r0,-(sp) ; &. 031502: 016301 000052 mov 52(r3),r1 ; A.*. 031506: 016300 000050 mov 50(r3),r0 ; @.(. 031512: 162601 sub (sp)+,r1 ; .e 031514: 005600 sbc r0 ; .. 031516: 010063 000006 mov r0,6(r3) ; 3... 031522: 010163 000010 mov r1,10(r3) ; s... 031526: 016463 000066 000076 mov 66(r4),76(r3) ; 3.6.>. 031534: 016463 000070 000100 mov 70(r4),100(r3) ; 3.8.@. 031542: 016463 000072 000102 mov 72(r4),102(r3) ; 3.:.B. 031550: 016463 000074 000104 mov 74(r4),104(r3) ; 3.<.D. 031556: 016463 000076 000106 mov 76(r4),106(r3) ; 3.>.F. 031564: 016463 000060 000116 mov 60(r4),116(r3) ; 3.0.N. 031572: 016346 000110 mov 110(r3),-(sp) ; f.H. 031576: 016446 000062 mov 62(r4),-(sp) ; &.2. 031602: 004767 044750 call 76556 ; w.hI 031606: 022626 cmp (sp)+,(sp)+ ; .% 031610: 010063 000120 mov r0,120(r3) ; 3.P. 031614: 016346 000110 mov 110(r3),-(sp) ; f.H. 031620: 016346 000112 mov 112(r3),-(sp) ; f.J. 031624: 016346 000120 mov 120(r3),-(sp) ; f.P. 031630: 004767 044610 call 76444 ; w..I 031634: 022626 cmp (sp)+,(sp)+ ; .% 031636: 010046 mov r0,-(sp) ; &. 031640: 066416 000064 add 64(r4),(sp) ; .m4. 031644: 004767 044706 call 76556 ; w.FI 031650: 022626 cmp (sp)+,(sp)+ ; .% 031652: 010063 000122 mov r0,122(r3) ; 3.R. 031656: 016363 000110 000130 mov 110(r3),130(r3) ; s.H.X. 031664: 016363 000112 000132 mov 112(r3),132(r3) ; s.J.Z. 031672: 012763 000001 000134 mov #1,134(r3) ; s...\. 031700: 105764 000044 tstb 44(r4) ; t.$. 031704: 001410 beq 31726 ; .. 031706: 126427 000045 000002 cmpb 45(r4),#2 ; .-%... 031714: 001004 bne 31726 ; .. 031716: 016463 000044 000140 mov 44(r4),140(r3) ; 3.$.`. 031724: 000442 br 32032 ; ". ; 031726: 016402 000054 mov 54(r4),r2 ; ..,. 031732: 042702 177600 bic #177600,r2 ; BE.. 031736: 020227 000037 cmp r2,#37 ; . .. 031742: 001003 bne 31752 ; .. 031744: 012700 000014 mov #14,r0 ; @... 031750: 000424 br 32022 ; .. ; 031752: 020227 000064 cmp r2,#64 ; . 4. 031756: 001003 bne 31766 ; .. 031760: 012700 000010 mov #10,r0 ; @... 031764: 000416 br 32022 ; .. ; 031766: 020227 000065 cmp r2,#65 ; . 5. 031772: 001003 bne 32002 ; .. 031774: 012700 000011 mov #11,r0 ; @... 032000: 000410 br 32022 ; .. ; 032002: 020227 000066 cmp r2,#66 ; . 6. 032006: 001003 bne 32016 ; .. 032010: 012700 000015 mov #15,r0 ; @... 032014: 000402 br 32022 ; .. ; 032016: 012700 000006 mov #6,r0 ; @... 032022: 062700 001000 add #1000,r0 ; @e.. 032026: 010063 000140 mov r0,140(r3) ; 3.`. 032032: 000167 045056 jmp cret$ ; w..J ; ; rd$uib( tcb ) rd$uib:: 032036: 004567 045036 jsr r5,csv$ ; w..J 032042: 005746 tst -(sp) ; f. 032044: 016504 000004 mov 4(r5),r4 ; D... 032050: 016403 000002 mov 2(r4),r3 ; .... 032054: 010346 mov r3,-(sp) ; f. 032056: 004767 003652 call get.disk ; w.*. 032062: 005726 tst (sp)+ ; V. 032064: 030027 000002 bit r0,#2 ; .0.. 032070: 001015 bne 32124 ; .. 032072: 005767 045724 tst 100022 ; w.TK 032076: 001406 beq 32114 ; .. 032100: 012746 000012 mov #12,-(sp) ; f... 032104: 004767 012550 call $sleep ; w.h. 032110: 005726 tst (sp)+ ; V. 032112: 000403 br 32122 ; .. ; 032114: 012700 000003 mov #3,r0 ; @... 032120: 000510 br 32342 ; H. ; 032122: 000754 br 32054 ; l. ; 032124: 005064 000024 clr 24(r4) ; 4... 032130: 005064 000026 clr 26(r4) ; 4... 032134: 005064 000030 clr 30(r4) ; 4... 032140: 005064 000032 clr 32(r4) ; 4... 032144: 012764 000001 000036 mov #1,36(r4) ; t..... 032152: 012764 110600 000044 mov #data,44(r4) ; t...$. 032160: 005064 000034 clr 34(r4) ; 4... 032164: 000460 br 32326 ; 0. ; 032166: 010446 mov r4,-(sp) ; &. 032170: 004767 004654 call read ; w.,. 032174: 005726 tst (sp)+ ; V. 032176: 005700 tst r0 ; @. 032200: 001050 bne 32322 ; (. 032202: 005065 177770 clr 177770(r5) ; 5.x. 032206: 000410 br 32230 ; .. ; 032210: 012700 110600 mov #data,r0 ; @... 032214: 066500 177770 add 177770(r5),r0 ; @mx. 032220: 111000 movb (r0),r0 ; .. 032222: 001034 bne 32314 ; .. 032224: 005265 177770 inc 177770(r5) ; 5.x. 032230: 026527 177770 000011 cmp 177770(r5),#11 ; W-x... 032236: 002764 blt 32210 ; t. 032240: 126727 056345 000066 cmpb 110611,#66 ; W-e\6. 032246: 001022 bne 32314 ; .. 032250: 005065 177766 clr 177766(r5) ; 5.v. 032254: 012702 110600 mov #data,r2 ; B... 032260: 012765 000377 177770 mov #377,177770(r5) ; u...x. 032266: 000402 br 32274 ; .. ; 032270: 062265 177766 add (r2)+,177766(r5) ; 5dv. 032274: 005365 177770 dec 177770(r5) ; u.x. 032300: 002373 bge 32270 ; {. 032302: 022265 177766 cmp (r2)+,177766(r5) ; 5$v. 032306: 001002 bne 32314 ; .. 032310: 005000 clr r0 ; .. 032312: 000413 br 32342 ; .. ; 032314: 012764 000001 000036 mov #1,36(r4) ; t..... 032322: 005264 000034 inc 34(r4) ; 4... 032326: 026427 000034 000003 cmp 34(r4),#3 ; .-.... 032334: 002714 blt 32166 ; L. 032336: 012700 000005 mov #5,r0 ; @... 032342: 000167 044546 jmp cret$ ; w.fI ;-------------------------------------------------------- ; ; File: prog.c ; ; ; get$host( buffer, count ) get$host:: 032346: 004567 044526 jsr r5,csv$ ; w.VI 032352: 036727 050312 000002 bit 102670,#2 ; W=JP.. 032360: 001403 beq 32370 ; .. 032362: 012700 000001 mov #1,r0 ; @... 032366: 000452 br 32514 ; *. ; 032370: 052767 000004 050272 bis #4,102670 ; wU..:P 032376: 016567 000006 050252 mov 6(r5),102656 ; w...*P 032404: 016567 000004 050246 mov 4(r5),102660 ; w...&P 032412: 012746 102674 mov #102674,-(sp) ; f.<. 032416: 004767 011256 call $deq.head ; w... 032422: 005726 tst (sp)+ ; V. 032424: 010004 mov r0,r4 ; .. 032426: 001404 beq 32440 ; .. 032430: 010446 mov r4,-(sp) ; &. 032432: 004767 150346 call do$dup ; w.fP 032436: 005726 tst (sp)+ ; V. 032440: 005767 050214 tst 102660 ; w..P 032444: 001415 beq 32500 ; .. 032446: 036727 050216 000002 bit 102670,#2 ; W=.P.. 032454: 001403 beq 32464 ; .. 032456: 012700 000001 mov #1,r0 ; @... 032462: 000414 br 32514 ; .. ; 032464: 012746 000001 mov #1,-(sp) ; f... 032470: 004767 012164 call $sleep ; w.t. 032474: 005726 tst (sp)+ ; V. 032476: 000760 br 32440 ; p. ; 032500: 062767 000001 050160 add #1,102666 ; we..pP 032506: 005567 050152 adc 102664 ; w.jP 032512: 005000 clr r0 ; .. 032514: 000167 044374 jmp cret$ ; w.|H ; ; put$host( buffer, count ) put$host:: 032520: 004567 044354 jsr r5,csv$ ; w.lH 032524: 036727 050140 000002 bit 102670,#2 ; W=`P.. 032532: 001403 beq 32542 ; .. 032534: 012700 000001 mov #1,r0 ; @... 032540: 000452 br 32666 ; *. ; 032542: 052767 000010 050120 bis #10,102670 ; wU..PP 032550: 016567 000006 050100 mov 6(r5),102656 ; w...@P 032556: 016567 000004 050074 mov 4(r5),102660 ; w...

Y 033466: 012716 100042 mov #dma,(sp) ; N.". 033472: 004767 010636 call $release ; w... 033476: 005726 tst (sp)+ ; V. 033500: 010200 mov r2,r0 ; .. 033502: 012602 mov (sp)+,r2 ; .. 033504: 000207 return ; .. ; 033506: 012746 000001 mov #1,-(sp) ; f... 033512: 004767 001614 call fatal.error ; w... put.packet:: 033516: 010246 mov r2,-(sp) ; &. 033520: 012702 110334 mov #110334,r2 ; B.\. 033524: 005746 tst -(sp) ; f. 033526: 012716 100042 mov #dma,(sp) ; N.". 033532: 004767 010502 call $acquire ; w.B. 033536: 004767 000272 call get.descriptor ; w.:. 033542: 100411 bmi 33566 ; .. 033544: 012716 100042 mov #dma,(sp) ; N.". 033550: 004767 010560 call $release ; w.p. 033554: 012716 000005 mov #5,(sp) ; N... 033560: 004767 011074 call $sleep ; w.<. 033564: 000760 br 33526 ; p. ; 033566: 016600 000006 mov 6(sp),r0 ; .... 033572: 016001 000002 mov 2(r0),r1 ; .... 033576: 062701 000004 add #4,r1 ; Ae.. 033602: 006201 asr r1 ; .. 033604: 010116 mov r1,(sp) ; N. 033606: 132760 000360 000004 bitb #360,4(r0) ; p5p... 033614: 001020 bne 33656 ; .. 033616: 105760 000016 tstb 16(r0) ; p... 033622: 100015 bpl 33656 ; .. 033624: 016701 044424 mov 100254,r1 ; A..I 033630: 001407 beq 33650 ; .. 033632: 022701 000016 cmp #16,r1 ; A%.. 033636: 002002 bge 33644 ; .. 033640: 012701 000016 mov #16,r1 ; A... 033644: 160167 044404 sub r1,100254 ; w`.I 033650: 005201 inc r1 ; .. 033652: 150160 000004 bisb r1,4(r0) ; pP.. 033656: 012737 000022 160006 mov #22,@#rw$csr ; _....` 033664: 062700 000002 add #2,r0 ; @e.. 033670: 010037 140000 mov r0,@#140000 ; ...@ 033674: 016700 054454 mov 110354,r0 ; @.,Y 033700: 016701 054452 mov 110356,r1 ; A.*Y 033704: 162701 000004 sub #4,r1 ; Ae.. 033710: 005600 sbc r0 ; .. 033712: 010137 160200 mov r1,@#w$q22l ; _..` 033716: 010037 160202 mov r0,@#w$q22h ; ...` 033722: 011637 160204 mov (sp),@#w$wcnt ; ...` 033726: 005237 160006 inc @#rw$csr ; ...` 033732: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 033740: 001374 bne 33732 ; |. 033742: 032737 000300 160006 bit #300,@#rw$csr ; _5@..` 033750: 001025 bne 34024 ; .. 033752: 004767 000266 call put.descriptor ; w.6. 033756: 012716 100042 mov #dma,(sp) ; N.". 033762: 004767 010346 call $release ; w.f. 033766: 016616 000006 mov 6(sp),(sp) ; .... 033772: 012746 100050 mov #100050,-(sp) ; f.(. 033776: 004767 007606 call $enq.head ; w... 034002: 022626 cmp (sp)+,(sp)+ ; .% 034004: 005367 044220 dec 100230 ; w..H 034010: 001003 bne 34020 ; .. 034012: 016767 046634 044176 mov 102652,100216 ; w..M~H 034020: 012602 mov (sp)+,r2 ; .. 034022: 000207 return ; .. ; 034024: 012746 000002 mov #2,-(sp) ; f... 034030: 004767 001276 call fatal.error ; w.>. get.descriptor:: 034034: 016200 000000 mov 0(r2),r0 ; .... 034040: 016201 000014 mov 14(r2),r1 ; .... 034044: 062701 000002 add #2,r1 ; Ae.. 034050: 066201 000002 add 2(r2),r1 ; .l.. 034054: 005500 adc r0 ; @. 034056: 012737 000020 160006 mov #20,@#rw$csr ; _....` 034064: 012737 110354 140000 mov #110354,@#140000 ; _.l..@ 034072: 010137 160200 mov r1,@#w$q22l ; _..` 034076: 010037 160202 mov r0,@#w$q22h ; ...` 034102: 012737 000001 160204 mov #1,@#w$wcnt ; _....` 034110: 005237 160006 inc @#rw$csr ; ...` 034114: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 034122: 001374 bne 34114 ; |. 034124: 032737 000300 160006 bit #300,@#rw$csr ; _5@..` 034132: 001040 bne 34234 ; . 034134: 005767 054214 tst 110354 ; w..X 034140: 100034 bpl 34232 ; .. 034142: 010067 054212 mov r0,110360 ; 7..X 034146: 010167 054210 mov r1,110362 ; w..X 034152: 162701 000002 sub #2,r1 ; Ae.. 034156: 005600 sbc r0 ; .. 034160: 012737 110356 140000 mov #110356,@#140000 ; _.n..@ 034166: 010137 160200 mov r1,@#w$q22l ; _..` 034172: 010037 160202 mov r0,@#w$q22h ; ...` 034176: 012737 000001 160204 mov #1,@#w$wcnt ; _....` 034204: 005237 160006 inc @#rw$csr ; ...` 034210: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 034216: 001374 bne 34210 ; |. 034220: 032737 000300 160006 bit #300,@#rw$csr ; _5@..` 034226: 001002 bne 34234 ; .. 034230: 000270 sen ; 8. 034232: 000207 return ; .. ; 034234: 012746 000006 mov #6,-(sp) ; f... 034240: 004767 001066 call fatal.error ; w.6. put.descriptor:: 034244: 012737 000022 160006 mov #22,@#rw$csr ; _....` 034252: 016746 054076 mov 110354,-(sp) ; f.>X 034256: 052716 040000 bis #40000,(sp) ; NU.@ 034262: 042716 100000 bic #100000,(sp) ; NE.. 034266: 010637 140000 mov sp,@#140000 ; ...@ 034272: 016737 054064 160200 mov 110362,@#w$q22l ; _.4X.` 034300: 016737 054054 160202 mov 110360,@#w$q22h ; _.,X.` 034306: 012737 000001 160204 mov #1,@#w$wcnt ; _....` 034314: 005237 160006 inc @#rw$csr ; ...` 034320: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 034326: 001374 bne 34320 ; |. 034330: 032737 000300 160006 bit #300,@#rw$csr ; _5@..` 034336: 001120 bne 34600 ; P. 034340: 032767 040000 054006 bit #40000,110354 ; w5.@.X 034346: 001504 beq 34560 ; D. 034350: 022762 000001 000010 cmp #1,10(r2) ; r%.... 034356: 001445 beq 34472 ; %. 034360: 016200 000000 mov 0(r2),r0 ; .... 034364: 016201 000014 mov 14(r2),r1 ; .... 034370: 162701 000004 sub #4,r1 ; Ae.. 034374: 046201 000012 bic 12(r2),r1 ; .L.. 034400: 062701 000002 add #2,r1 ; Ae.. 034404: 066201 000002 add 2(r2),r1 ; .l.. 034410: 005500 adc r0 ; @. 034412: 012737 000020 160006 mov #20,@#rw$csr ; _....` 034420: 010637 140000 mov sp,@#140000 ; ...@ 034424: 010137 160200 mov r1,@#w$q22l ; _..` 034430: 010037 160202 mov r0,@#w$q22h ; ...` 034434: 012737 000001 160204 mov #1,@#w$wcnt ; _....` 034442: 005237 160006 inc @#rw$csr ; ...` 034446: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 034454: 001374 bne 34446 ; |. 034456: 032737 000300 160006 bit #300,@#rw$csr ; _5@..` 034464: 001045 bne 34600 ; %. 034466: 005716 tst (sp) ; N. 034470: 100033 bpl 34560 ; .. 034472: 012737 000022 160006 mov #22,@#rw$csr ; _....` 034500: 012716 000001 mov #1,(sp) ; N... 034504: 010637 140000 mov sp,@#140000 ; ...@ 034510: 016237 000006 160200 mov 6(r2),@#w$q22l ; .....` 034516: 016237 000004 160202 mov 4(r2),@#w$q22h ; .....` 034524: 012737 000001 160204 mov #1,@#w$wcnt ; _....` 034532: 005237 160006 inc @#rw$csr ; ...` 034536: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 034544: 001374 bne 34536 ; |. 034546: 005767 043504 tst vector ; w.DG 034552: 001402 beq 34560 ; .. 034554: 005037 160216 clr @#w$req ; ...` 034560: 062762 000004 000014 add #4,14(r2) ; re.... 034566: 046262 000012 000014 bic 12(r2),14(r2) ; 2L.... 034574: 005726 tst (sp)+ ; V. 034576: 000207 return ; .. ; 034600: 012746 000007 mov #7,-(sp) ; f... 034604: 004767 000522 call fatal.error ; w.R. get.buffer:: 034610: 012767 000020 053534 mov #20,110352 ; w...\W 034616: 000403 br 34626 ; .. ; put.buffer:: 034620: 012767 000022 053524 mov #22,110352 ; w...TW 034626: 016737 053520 160006 mov 110352,@#rw$csr ; _.PW.` 034634: 016600 000010 mov 10(sp),r0 ; .... 034640: 001441 beq 34744 ; !. 034642: 016637 000006 140000 mov 6(sp),@#140000 ; .....@ 034650: 016637 000004 160200 mov 4(sp),@#w$q22l ; .....` 034656: 016637 000002 160202 mov 2(sp),@#w$q22h ; .....` 034664: 100430 bmi map.buffer ; .. 034666: 006200 asr r0 ; .. 034670: 010037 160204 mov r0,@#w$wcnt ; ...` 034674: 005237 160006 inc @#rw$csr ; ...` 034700: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 034706: 001374 bne 34700 ; |. 034710: 005000 clr r0 ; .. 034712: 032737 000200 160006 bit #200,@#rw$csr ; _5...` 034720: 001403 beq 34730 ; .. 034722: 012700 004000 mov #4000,r0 ; @... 034726: 000406 br 34744 ; .. ; 034730: 032737 000100 160006 bit #100,@#rw$csr ; _5@..` 034736: 001402 beq 34744 ; .. 034740: 012700 010000 mov #10000,r0 ; @... 034744: 000207 return ; .. ; map.buffer:: 034746: 010246 mov r2,-(sp) ; &. 034750: 005000 clr r0 ; .. 034752: 156600 000005 bisb 5(sp),r0 ; .].. 034756: 005001 clr r1 ; .. 034760: 156601 000004 bisb 4(sp),r1 ; .].. 034764: 000301 swab r1 ; A. 034766: 156601 000007 bisb 7(sp),r1 ; .].. 034772: 006201 asr r1 ; .. 034774: 006301 asl r1 ; A. 034776: 006301 asl r1 ; A. 035000: 006100 rol r0 ; @. 035002: 016702 053356 mov 110364,r2 ; B.nV 035006: 066201 000032 add 32(r2),r1 ; .l.. 035012: 005500 adc r0 ; @. 035014: 066200 000034 add 34(r2),r0 ; .l.. 035020: 012737 000020 160006 mov #20,@#rw$csr ; _....` 035026: 012737 110366 140000 mov #110366,@#140000 ; _.v..@ 035034: 010137 160200 mov r1,@#w$q22l ; _..` 035040: 010037 160202 mov r0,@#w$q22h ; ...` 035044: 012737 000002 160204 mov #2,@#w$wcnt ; _....` 035052: 005237 160006 inc @#rw$csr ; ...` 035056: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 035064: 001374 bne 35056 ; |. 035066: 032737 000300 160006 bit #300,@#rw$csr ; _5@..` 035074: 001112 bne 35322 ; J. 035076: 005767 053266 tst 110370 ; w.6V 035102: 100403 bmi 35112 ; .. 035104: 012700 002000 mov #2000,r0 ; @... 035110: 000502 br 35316 ; B. ; 035112: 016737 053234 160006 mov 110352,@#rw$csr ; _..V.` 035120: 016637 000010 140000 mov 10(sp),@#140000 ; .....@ 035126: 005000 clr r0 ; .. 035130: 156700 053233 bisb 110367,r0 ; @].V 035134: 005001 clr r1 ; .. 035136: 156701 053224 bisb 110366,r1 ; A].V 035142: 000301 swab r1 ; A. 035144: 006301 asl r1 ; A. 035146: 006100 rol r0 ; @. 035150: 016602 000006 mov 6(sp),r2 ; .... 035154: 042702 177000 bic #177000,r2 ; BE.~ 035160: 050201 bis r2,r1 ; .P 035162: 010137 160200 mov r1,@#w$q22l ; _..` 035166: 010037 160202 mov r0,@#w$q22h ; ...` 035172: 012700 001000 mov #1000,r0 ; @... 035176: 160200 sub r2,r0 ; .` 035200: 026600 000012 cmp 12(sp),r0 ; .-.. 035204: 003002 bgt 35212 ; .. 035206: 016600 000012 mov 12(sp),r0 ; .... 035212: 010001 mov r0,r1 ; .. 035214: 006200 asr r0 ; .. 035216: 010037 160204 mov r0,@#w$wcnt ; ...` 035222: 005237 160006 inc @#rw$csr ; ...` 035226: 032737 000001 160006 bit #1,@#rw$csr ; _5...` 035234: 001374 bne 35226 ; |. 035236: 032737 000200 160006 bit #200,@#rw$csr ; _5...` 035244: 001403 beq 35254 ; .. 035246: 012700 004000 mov #4000,r0 ; @... 035252: 000421 br 35316 ; .. ; 035254: 032737 000100 160006 bit #100,@#rw$csr ; _5@..` 035262: 001403 beq 35272 ; .. 035264: 012700 010000 mov #10000,r0 ; @... 035270: 000412 br 35316 ; .. ; 035272: 060166 000006 add r1,6(sp) ; v`.. 035276: 005566 000004 adc 4(sp) ; v... 035302: 060166 000010 add r1,10(sp) ; v`.. 035306: 160166 000012 sub r1,12(sp) ; v`.. 035312: 003216 bgt 34750 ; .. 035314: 005000 clr r0 ; .. 035316: 012602 mov (sp)+,r2 ; .. 035320: 000207 return ; .. ; 035322: 012746 000026 mov #26,-(sp) ; f... 035326: 004767 000000 call fatal.error ; w... fatal.error:: 035332: 106427 000340 mtps #340 ; ..`. 035336: 016600 000002 mov 2(sp),r0 ; .... 035342: 010067 042452 mov r0,100020 ; 7.*E 035346: 005037 140004 clr @#w$fpl ; ...@ 035352: 012737 000000 140022 mov #0,@#w$cmd ; _....@ 035360: 012737 000107 140022 mov #107,@#w$cmd ; _.G..@ 035366: 012737 000002 140020 mov #2,@#w$dat ; _....@ 035374: 012737 000001 140022 mov #1,@#w$cmd ; _....@ 035402: 010037 160210 mov r0,@#w$sard ; ...` 035406: 052700 100000 bis #100000,r0 ; @U.. 035412: 010037 160210 mov r0,@#w$sard ; ...` 035416: 005767 042634 tst vector ; w..E 035422: 001402 beq 35430 ; .. 035424: 005037 160216 clr @#w$req ; ...` 035430: 012767 000764 042352 mov #764,100010 ; w.t.jD 035436: 012767 000470 042346 mov #470,100012 ; w.8.fD 035444: 012767 000470 042342 mov #470,100014 ; w.8.bD 035452: 012767 000470 042336 mov #470,100016 ; w.8.^D 035460: 106427 000200 mtps #200 ; .... 035464: 000777 br 35464 ; .. ;---------------------------------------------- ; ; 9224m.mac ; udcisr:: 035466: 005746 tst -(sp) ; f. 035470: 005767 042532 tst 100226 ; w.ZE 035474: 001464 beq 35646 ; 4. 035476: 005067 042524 clr 100226 ; 7.TE 035502: 112737 000110 140022 movb #110,@#w$cmd ; _.H..@ 035510: 113700 140010 movb @#r$dat,r0 ; @..@ 035514: 006300 asl r0 ; @. 035516: 042700 177771 bic #177771,r0 ; @Ey. 035522: 016001 035710 mov 35710(r0),r1 ; ..H; 035526: 030167 042462 bit r1,100214 ; w02E 035532: 001005 bne 35546 ; .. 035534: 006201 asr r1 ; .. 035536: 005740 tst -(r0) ; `. 035540: 042700 177771 bic #177771,r0 ; @Ey. 035544: 000770 br 35526 ; x. ; 035546: 040167 042442 bic r1,100214 ; w@"E 035552: 062700 100032 add #100032,r0 ; @e.. 035556: 005710 tst (r0) ; H. 035560: 100403 bmi 35570 ; .. 035562: 012710 000001 mov #1,(r0) ; H... 035566: 000403 br 35576 ; .. ; 035570: 010016 mov r0,(sp) ; .. 035572: 004767 006702 call $unblock ; w.B. 035576: 005767 042412 tst 100214 ; w..E 035602: 001440 beq 35704 ; . 035604: 112737 000001 140022 movb #1,@#w$cmd ; _....@ 035612: 132737 000040 140012 bitb #40,@#r$cmd ; _5 ..@ 035620: 001774 beq 35612 ; |. 035622: 012700 000020 mov #20,r0 ; @... 035626: 066700 042362 add 100214,r0 ; @mrD 035632: 010067 042370 mov r0,100226 ; 7.xD 035636: 116737 042364 140022 movb 100226,@#w$cmd ; _.tD.@ 035644: 000417 br 35704 ; .. ; 035646: 012716 100030 mov #100030,(sp) ; N... 035652: 004767 006622 call $unblock ; w... 035656: 005767 042144 tst 100026 ; w.dD 035662: 100404 bmi 35674 ; .. 035664: 012767 000001 042134 mov #1,100026 ; w...\D 035672: 000404 br 35704 ; .. ; 035674: 012716 100026 mov #100026,(sp) ; N... 035700: 004767 006574 call $unblock ; w.|. 035704: 005726 tst (sp)+ ; V. 035706: 000207 return ; .. ; 035710: 000021 .word 21 ; .. 035712: 000042 .word 42 ; ". 035714: 000104 .word 104 ; D. 035716: 000210 .word 210 ; .. secisr:: 035720: 012746 100026 mov #100026,-(sp) ; f... 035724: 004767 006550 call $unblock ; w.h. 035730: 005726 tst (sp)+ ; V. 035732: 000207 return ; .. ; get.disk:: 035734: 012746 100046 mov #udc,-(sp) ; f.&. 035740: 004767 006274 call $acquire ; w.<. 035744: 005767 042256 tst 100226 ; w..D 035750: 001405 beq 35764 ; .. 035752: 012716 000001 mov #1,(sp) ; N... 035756: 004767 006676 call $sleep ; w.>. 035762: 000770 br 35744 ; x. ; 035764: 016601 000004 mov 4(sp),r1 ; .... 035770: 016700 042212 mov 100206,r0 ; @..D 035774: 042700 000004 bic #4,r0 ; @E.. 036000: 112737 000107 140022 movb #107,@#w$cmd ; _.G..@ 036006: 110037 140020 movb r0,@#w$dat ; ...@ 036012: 005067 042216 clr 100234 ; 7..D 036016: 116137 000072 140022 movb 72(r1),@#w$cmd ; _.:..@ 036024: 005767 042204 tst 100234 ; w..D 036030: 001775 beq 36024 ; }. 036032: 112737 000111 140022 movb #111,@#w$cmd ; _.I..@ 036040: 113700 140010 movb @#r$dat,r0 ; @..@ 036044: 032761 001000 000030 bit #1000,30(r1) ; q5.... 036052: 001423 beq 36122 ; .. 036054: 032700 000002 bit #2,r0 ; @5.. 036060: 001415 beq 36114 ; .. 036062: 005067 042146 clr 100234 ; 7.fD 036066: 112737 000006 140022 movb #6,@#w$cmd ; _....@ 036074: 005767 042134 tst 100234 ; w.\D 036100: 001775 beq 36074 ; }. 036102: 112737 000111 140022 movb #111,@#w$cmd ; _.I..@ 036110: 113700 140010 movb @#r$dat,r0 ; @..@ 036114: 012701 000002 mov #2,r1 ; A... 036120: 074100 xor r1,r0 ; @x 036122: 016701 042104 mov 100232,r1 ; A.DD 036126: 001002 bne 36134 ; .. 036130: 012701 000001 mov #1,r1 ; A... 036134: 112737 000107 140022 movb #107,@#w$cmd ; _.G..@ 036142: 116737 042040 140020 movb 100206,@#w$dat ; _. D.@ 036150: 005067 042060 clr 100234 ; 7.0D 036154: 110137 140022 movb r1,@#w$cmd ; _..@ 036160: 005767 042050 tst 100234 ; w.(D 036164: 001775 beq 36160 ; }. 036166: 010016 mov r0,(sp) ; .. 036170: 012746 100046 mov #udc,-(sp) ; f.&. 036174: 004767 006134 call $release ; w.\. 036200: 005726 tst (sp)+ ; V. 036202: 012600 mov (sp)+,r0 ; .. 036204: 000207 return ; .. ; seek:: 036206: 004567 040666 jsr r5,csv$ ; w.6A 036212: 016504 000004 mov 4(r5),r4 ; D... 036216: 016403 000002 mov 2(r4),r3 ; .... 036222: 004767 003414 call .select ; w... 036226: 112737 000104 140022 movb #104,@#w$cmd ; _.D..@ 036234: 016400 000030 mov 30(r4),r0 ; .... 036240: 006200 asr r0 ; .. 036242: 006200 asr r0 ; .. 036244: 006200 asr r0 ; .. 036246: 006200 asr r0 ; .. 036250: 042700 000017 bic #17,r0 ; @E.. 036254: 066400 000032 add 32(r4),r0 ; .m.. 036260: 110037 140020 movb r0,@#w$dat ; ...@ 036264: 116437 000030 140020 movb 30(r4),@#w$dat ; .....@ 036272: 050067 052116 bis r0,110414 ; 7PNT 036276: 005067 041526 clr 100030 ; 7.VC 036302: 112737 000124 140022 movb #124,@#w$cmd ; _.T..@ 036310: 016302 000072 mov 72(r3),r2 ; B.:. 036314: 042702 177774 bic #177774,r2 ; BE|. 036320: 156367 000042 041666 bisb 42(r3),100214 ; w\".6C 036326: 060202 add r2,r2 ; .` 036330: 062702 100032 add #100032,r2 ; Be.. 036334: 005012 clr (r2) ; .. 036336: 012716 100030 mov #100030,(sp) ; N... 036342: 004767 006052 call $block ; w.*. 036346: 004767 003610 call .deselect ; w... 036352: 010216 mov r2,(sp) ; .. 036354: 004767 006040 call $block ; w. . 036360: 000167 040530 jmp cret$ ; w.XA ; restore:: 036364: 004567 040510 jsr r5,csv$ ; w.HA 036370: 016503 000004 mov 4(r5),r3 ; C... 036374: 032763 000400 000030 bit #400,30(r3) ; s5.... 036402: 001407 beq 36422 ; .. 036404: 012702 000030 mov #30,r2 ; B... 036410: 012716 000005 mov #5,(sp) ; N... 036414: 004767 154222 call put$udc ; w..X 036420: 077205 sob r2,36410 ; .~ 036422: 032763 000010 000030 bit #10,30(r3) ; s5.... 036430: 001006 bne 36446 ; .. 036432: 112737 000110 140022 movb #110,@#w$cmd ; _.H..@ 036440: 112737 000306 140020 movb #306,@#w$dat ; _.F..@ 036446: 012716 000003 mov #3,(sp) ; N... 036452: 004767 154164 call put$udc ; w.tX 036456: 112737 000111 140022 movb #111,@#w$cmd ; _.I..@ 036464: 132737 000020 140010 bitb #20,@#r$dat ; _5...@ 036472: 001765 beq 36446 ; u. 036474: 112737 000110 140022 movb #110,@#w$cmd ; _.H..@ 036502: 116737 041502 140020 movb 100210,@#w$dat ; _.BC.@ 036510: 000167 040400 jmp cret$ ; w..A ; size.media:: 036514: 004567 040360 jsr r5,csv$ ; w.p@ 036520: 016503 000004 mov 4(r5),r3 ; C... 036524: 052767 000001 041454 bis #1,100206 ; wU..,C 036532: 005067 041474 clr 100232 ; 7.Q 037710: 162767 001000 050474 sub #1000,110412 ; we..O 040514: 022767 001000 047670 cmp #1000,110412 ; w%..8O 040522: 002403 blt 40532 ; .. 040524: 016746 047662 mov 110412,-(sp) ; f.2O 040530: 000402 br 40536 ; .. ; 040532: 012746 001000 mov #1000,-(sp) ; f... 040536: 016746 047642 mov 110404,-(sp) ; f."O 040542: 016746 047642 mov 110410,-(sp) ; f."O 040546: 016746 047634 mov 110406,-(sp) ; f..O 040552: 004767 174032 call get.buffer ; w..x 040556: 062706 000010 add #10,sp ; Fe.. 040562: 050064 000060 bis r0,60(r4) ; 4P0. 040566: 062767 001000 047610 add #1000,110404 ; we...O 040574: 062767 001000 047606 add #1000,110410 ; we...O 040602: 005567 047600 adc 110406 ; w..O 040606: 162767 001000 047576 sub #1000,110412 ; we..~O 040614: 032764 000777 000042 bit #777,42(r4) ; t5..". 040622: 001416 beq 40660 ; .. 040624: 012700 001000 mov #1000,r0 ; @... 040630: 016401 000042 mov 42(r4),r1 ; ..". 040634: 042701 177000 bic #177000,r1 ; AE.~ 040640: 160100 sub r1,r0 ; @` 040642: 006200 asr r0 ; .. 040644: 016401 000044 mov 44(r4),r1 ; ..$. 040650: 066401 000042 add 42(r4),r1 ; .m". 040654: 005021 clr (r1)+ ; .. 040656: 077002 sob r0,40654 ; .~ 040660: 112737 000112 140022 movb #112,@#w$cmd ; _.J..@ 040666: 116737 047502 140022 movb 110374,@#w$cmd ; _.BO.@ 040674: 005767 047512 tst 110412 ; w.JO 040700: 003463 ble 41050 ; 3. 040702: 022767 001000 047502 cmp #1000,110412 ; w%..BO 040710: 002403 blt 40720 ; .. 040712: 016746 047474 mov 110412,-(sp) ; f. 041006: 002405 blt 41022 ; .. 041010: 005767 037220 tst 100234 ; w..> 041014: 001775 beq 41010 ; }. 041016: 000167 177302 jmp 40324 ; w.B~ ; 041022: 005367 037220 dec 100246 ; w..> 041026: 000722 br 40674 ; R. ; 041030: 005067 037200 clr 100234 ; 7..> 041034: 112737 000112 140022 movb #112,@#w$cmd ; _.J..@ 041042: 116737 047326 140022 movb 110374,@#w$cmd ; _.VN.@ 041050: 005767 037160 tst 100234 ; w.p> 041054: 001775 beq 41050 ; }. 041056: 132737 000030 140012 bitb #30,@#r$cmd ; _5...@ 041064: 001002 bne 41072 ; .. 041066: 005002 clr r2 ; .. 041070: 000446 br 41206 ; &. ; 041072: 010416 mov r4,(sp) ; .. 041074: 012746 000002 mov #2,-(sp) ; f... 041100: 004767 151602 call get$udc ; w..S 041104: 005726 tst (sp)+ ; V. 041106: 010002 mov r0,r2 ; .. 041110: 001436 beq 41206 ; .. 041112: 026767 047260 047260 cmp 110376,110400 ; w-0N0N 041120: 001413 beq 41150 ; .. 041122: 010264 000056 mov r2,56(r4) ; 4... 041126: 032702 000100 bit #100,r2 ; B5@. 041132: 001013 bne 41162 ; .. 041134: 022702 040020 cmp #40020,r2 ; B%.@ 041140: 001003 bne 41150 ; .. 041142: 052702 000100 bis #100,r2 ; BU@. 041146: 000405 br 41162 ; .. ; 041150: 005367 047222 dec 110376 ; w..N 041154: 002402 blt 41162 ; .. 041156: 000167 177150 jmp 40332 ; w.h~ ; 041162: 112737 000103 140022 movb #103,@#w$cmd ; _.C..@ 041170: 113700 140010 movb @#r$dat,r0 ; @..@ 041174: 166400 000034 sub 34(r4),r0 ; .m.. 041200: 010064 000040 mov r0,40(r4) ; 4. . 041204: 000403 br 41214 ; .. ; 041206: 016464 000036 000040 mov 36(r4),40(r4) ; 4... . 041214: 004767 000004 call .update.tcb ; w... 041220: 000167 177036 jmp 40262 ; w..~ ; .update.tcb:: 041224: 005702 tst r2 ; B. 041226: 001166 bne 41604 ; v. 041230: 032764 000030 000024 bit #30,24(r4) ; t5.... 041236: 001562 beq 41604 ; r. 041240: 166464 000042 000014 sub 42(r4),14(r4) ; 4m"... 041246: 001004 bne 41260 ; .. 041250: 005664 000012 sbc 12(r4) ; 4... 041254: 003543 ble 41564 ; c. 041256: 000403 br 41266 ; .. ; 041260: 005664 000012 sbc 12(r4) ; 4... 041264: 002537 blt 41564 ; _. 041266: 022767 000001 036546 cmp #1,100042 ; w%..f= 041274: 001406 beq 41312 ; .. 041276: 012746 100042 mov #dma,-(sp) ; f.". 041302: 004767 003026 call $release ; w... 041306: 005726 tst (sp)+ ; V. 041310: 005202 inc r2 ; .. 041312: 066464 000040 000010 add 40(r4),10(r4) ; 4m ... 041320: 005564 000006 adc 6(r4) ; t... 041324: 066464 000040 000034 add 40(r4),34(r4) ; 4m ... 041332: 026463 000034 000110 cmp 34(r4),110(r3) ; 3-..H. 041340: 002430 blt 41422 ; .. 041342: 005064 000034 clr 34(r4) ; 4... 041346: 005264 000032 inc 32(r4) ; 4... 041352: 026463 000032 000112 cmp 32(r4),112(r3) ; 3-..J. 041360: 002420 blt 41422 ; .. 041362: 005064 000032 clr 32(r4) ; 4... 041366: 005264 000030 inc 30(r4) ; 4... 041372: 005777 047076 tst @runjob ; ..>N 041376: 001411 beq 41422 ; .. 041400: 012746 000002 mov #2,-(sp) ; f... 041404: 004767 003320 call $setpriority ; w.P. 041410: 012716 000004 mov #4,(sp) ; N... 041414: 004767 003310 call $setpriority ; w.H. 041420: 005726 tst (sp)+ ; V. 041422: 066464 000042 000020 add 42(r4),20(r4) ; 4m"... 041430: 005564 000016 adc 16(r4) ; t... 041434: 016300 000110 mov 110(r3),r0 ; @.H. 041440: 166400 000034 sub 34(r4),r0 ; .m.. 041444: 022700 000022 cmp #22,r0 ; @%.. 041450: 002002 bge 41456 ; .. 041452: 012700 000022 mov #22,r0 ; @... 041456: 010064 000036 mov r0,36(r4) ; 4... 041462: 000300 swab r0 ; @. 041464: 105000 clrb r0 ; .. 041466: 006300 asl r0 ; @. 041470: 010064 000042 mov r0,42(r4) ; 4.". 041474: 005764 000012 tst 12(r4) ; t... 041500: 001016 bne 41536 ; .. 041502: 020064 000014 cmp r0,14(r4) ; 4 .. 041506: 101413 blos 41536 ; .. 041510: 016400 000014 mov 14(r4),r0 ; .... 041514: 010064 000042 mov r0,42(r4) ; 4.". 041520: 062700 000777 add #777,r0 ; @e.. 041524: 105000 clrb r0 ; .. 041526: 000300 swab r0 ; @. 041530: 006200 asr r0 ; .. 041532: 010064 000036 mov r0,36(r4) ; 4... 041536: 012764 110600 000044 mov #data,44(r4) ; t...$. 041544: 005702 tst r2 ; B. 041546: 001405 beq 41562 ; .. 041550: 012746 100042 mov #dma,-(sp) ; f.". 041554: 004767 002460 call $acquire ; w.0. 041560: 005726 tst (sp)+ ; V. 041562: 000207 return ; .. ; 041564: 005064 000012 clr 12(r4) ; 4... 041570: 005064 000014 clr 14(r4) ; 4... 041574: 005064 000040 clr 40(r4) ; 4. . 041600: 005064 000036 clr 36(r4) ; 4... 041604: 012716 100042 mov #dma,(sp) ; N.". 041610: 004767 002520 call $release ; w.P. 041614: 022626 cmp (sp)+,(sp)+ ; .% 041616: 010200 mov r2,r0 ; .. 041620: 000207 return ; .. ; select:: 041622: 004567 035252 jsr r5,csv$ ; w.*: 041626: 016503 000004 mov 4(r5),r3 ; C... 041632: 004767 000004 call .select ; w... 041636: 000167 035252 jmp cret$ ; w.*: .select:: 041642: 012746 100046 mov #udc,-(sp) ; f.&. 041646: 004767 002366 call $acquire ; w.v. 041652: 005726 tst (sp)+ ; V. 041654: 005767 036346 tst 100226 ; w.f< 041660: 001421 beq 41724 ; .. 041662: 112737 000000 140022 movb #0,@#w$cmd ; _....@ 041670: 005067 036332 clr 100226 ; 7.Z< 041674: 112737 000107 140022 movb #107,@#w$cmd ; _.G..@ 041702: 116737 036300 140020 movb 100206,@#w$dat ; _.@<.@ 041710: 116737 036274 140020 movb 100210,@#w$dat ; _.<<.@ 041716: 116737 036270 140020 movb 100212,@#w$dat ; _.8<.@ 041724: 005067 036270 clr 100220 ; 7.8< 041730: 026763 036276 000072 cmp 100232,72(r3) ; s-><:. 041736: 001465 beq 42112 ; 5. 041740: 016367 000072 036264 mov 72(r3),100232 ; w.:.4< 041746: 042767 000004 036232 bic #4,100206 ; wE...< 041754: 032763 001000 000030 bit #1000,30(r3) ; s5.... 041762: 001403 beq 41772 ; .. 041764: 052767 000004 036214 bis #4,100206 ; wU...< 041772: 032763 000200 000030 bit #200,30(r3) ; s5.... 042000: 001406 beq 42016 ; .. 042002: 042767 000010 036176 bic #10,100206 ; wE..~< 042010: 052767 100000 046376 bis #100000,110414 ; wU..~L 042016: 016367 000070 036164 mov 70(r3),100210 ; w.8.t< 042024: 016337 000074 140002 mov 74(r3),@#rw$pll ; _.<..@ 042032: 112737 000104 140022 movb #104,@#w$cmd ; _.D..@ 042040: 105037 140020 clrb @#w$dat ; ...@ 042044: 105037 140020 clrb @#w$dat ; ...@ 042050: 112737 000107 140022 movb #107,@#w$cmd ; _.G..@ 042056: 116737 036124 140020 movb 100206,@#w$dat ; _.T<.@ 042064: 116737 036120 140020 movb 100210,@#w$dat ; _.P<.@ 042072: 005067 036136 clr 100234 ; 7.^< 042076: 116737 036130 140022 movb 100232,@#w$cmd ; _.X<.@ 042104: 005767 036124 tst 100234 ; w.T< 042110: 001775 beq 42104 ; }. 042112: 005037 140004 clr @#w$fpl ; ...@ 042116: 056367 000036 036056 bis 36(r3),100202 ; w\...< 042124: 013767 140006 036052 mov @#r$fps,100204 ; w..@*< 042132: 016737 036044 140004 mov 100202,@#w$fpl ; _.$<.@ 042140: 000207 return ; .. ; deselect:: 042142: 004567 034732 jsr r5,csv$ ; w.Z9 042146: 016503 000004 mov 4(r5),r3 ; C... 042152: 004767 000004 call .deselect ; w... 042156: 000167 034732 jmp cret$ ; w.Z9 ; .deselect:: 042162: 005037 140004 clr @#w$fpl ; ...@ 042166: 046367 000036 036006 bic 36(r3),100202 ; wL...< 042174: 013767 140006 036002 mov @#r$fps,100204 ; w..@.< 042202: 016737 035774 140004 mov 100202,@#w$fpl ; _.|;.@ 042210: 012767 000002 036002 mov #2,100220 ; w....< 042216: 032763 000010 000030 bit #10,30(r3) ; s5.... 042224: 001403 beq 42234 ; .. 042226: 012767 000004 035766 mov #4,100222 ; w...v; 042234: 005767 035754 tst 100214 ; w.l; 042240: 001437 beq 42340 ; .. 042242: 012737 000010 140002 mov #10,@#rw$pll ; _....@ 042250: 042767 000004 035730 bic #4,100206 ; wE..X; 042256: 112737 000107 140022 movb #107,@#w$cmd ; _.G..@ 042264: 116737 035716 140020 movb 100206,@#w$dat ; _.N;.@ 042272: 005067 035736 clr 100234 ; 7.^; 042276: 112737 000001 140022 movb #1,@#w$cmd ; _....@ 042304: 005767 035724 tst 100234 ; w.T; 042310: 001775 beq 42304 ; }. 042312: 005067 035714 clr 100232 ; 7.L; 042316: 012700 000020 mov #20,r0 ; @... 042322: 066700 035666 add 100214,r0 ; @m6; 042326: 010067 035674 mov r0,100226 ; 7.<; 042332: 116737 035670 140022 movb 100226,@#w$cmd ; _.8;.@ 042340: 012746 100046 mov #udc,-(sp) ; f.&. 042344: 004767 001764 call $release ; w.t. 042350: 005726 tst (sp)+ ; V. 042352: 000207 return ; .. ;-------------------------------------------------------- ; ; File: eccm.mac ; apply.ecc:: 042354: 004567 034520 jsr r5,csv$ ; w.P9 042360: 016504 000004 mov 4(r5),r4 ; D... 042364: 016403 000002 mov 2(r4),r3 ; .... 042370: 004767 000004 call .apply.ecc ; w... 042374: 000167 034514 jmp cret$ ; w.L9 ; .apply.ecc:: 042400: 010346 mov r3,-(sp) ; f. 042402: 010446 mov r4,-(sp) ; &. 042404: 010546 mov r5,-(sp) ; f. 042406: 016405 000040 mov 40(r4),r5 ; .. . 042412: 000305 swab r5 ; E. 042414: 006305 asl r5 ; E. 042416: 066405 000044 add 44(r4),r5 ; .m$. 042422: 032763 000010 000030 bit #10,30(r3) ; s5.... 042430: 001432 beq 42516 ; .. 042432: 012703 161225 mov #161225,r3 ; C..b 042436: 012701 000401 mov #401,r1 ; A... 042442: 012504 mov (r5)+,r4 ; D. 042444: 000304 swab r4 ; D. 042446: 074403 xor r4,r3 ; .y 042450: 012700 000020 mov #20,r0 ; @... 042454: 006303 asl r3 ; C. 042456: 103003 bcc 42466 ; .. 042460: 012704 010041 mov #10041,r4 ; D.!. 042464: 074403 xor r4,r3 ; .y 042466: 077006 sob r0,42454 ; .~ 042470: 077114 sob r1,42442 ; L~ 042472: 005703 tst r3 ; C. 042474: 001006 bne 42512 ; .. 042476: 016604 000002 mov 2(sp),r4 ; .... 042502: 005064 000056 clr 56(r4) ; 4... 042506: 000167 000254 jmp 42766 ; w.,. ; 042512: 000167 000400 jmp 43116 ; w... ; 042516: 012702 024417 mov #24417,r2 ; B..) 042522: 012703 023240 mov #23240,r3 ; C. & 042526: 012701 000402 mov #402,r1 ; A... 042532: 012504 mov (r5)+,r4 ; D. 042534: 000304 swab r4 ; D. 042536: 074402 xor r4,r2 ; .y 042540: 012700 000020 mov #20,r0 ; @... 042544: 006303 asl r3 ; C. 042546: 006102 rol r2 ; B. 042550: 103006 bcc 42566 ; .. 042552: 012704 004005 mov #4005,r4 ; D... 042556: 074403 xor r4,r3 ; .y 042560: 012704 000240 mov #240,r4 ; D. . 042564: 074402 xor r4,r2 ; .y 042566: 077012 sob r0,42544 ; .~ 042570: 077120 sob r1,42532 ; P~ 042572: 005702 tst r2 ; B. 042574: 001010 bne 42616 ; .. 042576: 005703 tst r3 ; C. 042600: 001006 bne 42616 ; .. 042602: 016604 000002 mov 2(sp),r4 ; .... 042606: 005064 000056 clr 56(r4) ; 4... 042612: 000167 000150 jmp 42766 ; w.h. ; 042616: 012701 123753 mov #123753,r1 ; A.k' 042622: 006303 asl r3 ; C. 042624: 006102 rol r2 ; B. 042626: 103006 bcc 42644 ; .. 042630: 012704 004005 mov #4005,r4 ; D... 042634: 074403 xor r4,r3 ; .y 042636: 012704 000240 mov #240,r4 ; D. . 042642: 074402 xor r4,r2 ; .y 042644: 005702 tst r2 ; B. 042646: 001003 bne 42656 ; .. 042650: 022703 000001 cmp #1,r3 ; C%.. 042654: 001402 beq 42662 ; .. 042656: 077117 sob r1,42622 ; O~ 042660: 000516 br 43116 ; N. ; 042662: 012703 010100 mov #10100,r3 ; C.@. 042666: 160103 sub r1,r3 ; C` 042670: 010302 mov r3,r2 ; B. 042672: 002511 blt 43116 ; I. 042674: 022702 010000 cmp #10000,r2 ; B%.. 042700: 003506 ble 43116 ; F. 042702: 006202 asr r2 ; .. 042704: 006202 asr r2 ; .. 042706: 006202 asr r2 ; .. 042710: 006202 asr r2 ; .. 042712: 006302 asl r2 ; B. 042714: 016604 000002 mov 2(sp),r4 ; .... 042720: 016405 000040 mov 40(r4),r5 ; .. . 042724: 000305 swab r5 ; E. 042726: 006305 asl r5 ; E. 042730: 066405 000044 add 44(r4),r5 ; .m$. 042734: 060502 add r5,r2 ; Ba 042736: 042703 177760 bic #177760,r3 ; CEp. 042742: 012746 000017 mov #17,-(sp) ; f... 042746: 160316 sub r3,(sp) ; N` 042750: 012746 000001 mov #1,-(sp) ; f... 042754: 004767 033430 call 76410 ; w..7 042760: 022626 cmp (sp)+,(sp)+ ; .% 042762: 000300 swab r0 ; @. 042764: 074012 xor r0,(r2) ; 042766: 005264 000040 inc 40(r4) ; 4. . 042772: 032764 000010 000024 bit #10,24(r4) ; t5.... 043000: 001444 beq 43112 ; $. 043002: 005767 045404 tst 110412 ; w..K 043006: 003441 ble 43112 ; !. 043010: 012746 100042 mov #dma,-(sp) ; f.". 043014: 004767 001220 call $acquire ; w... 043020: 016467 000004 045336 mov 4(r4),110364 ; 7...^J 043026: 022767 001000 045356 cmp #1000,110412 ; w%..nJ 043034: 002403 blt 43044 ; .. 043036: 016746 045350 mov 110412,-(sp) ; f.hJ 043042: 000402 br 43050 ; .. ; 043044: 012746 001000 mov #1000,-(sp) ; f... 043050: 016746 045326 mov 110402,-(sp) ; f.VJ 043054: 016746 045330 mov 110410,-(sp) ; f.XJ 043060: 016746 045322 mov 110406,-(sp) ; f.RJ 043064: 004767 171530 call put.buffer ; w.Xs 043070: 062706 000010 add #10,sp ; Fe.. 043074: 050064 000060 bis r0,60(r4) ; 4P0. 043100: 012716 100042 mov #dma,(sp) ; N.". 043104: 004767 001224 call $release ; w... 043110: 005726 tst (sp)+ ; V. 043112: 005000 clr r0 ; .. 043114: 000402 br 43122 ; .. ; 043116: 012700 020010 mov #20010,r0 ; @.. 043122: 012605 mov (sp)+,r5 ; .. 043124: 012604 mov (sp)+,r4 ; .. 043126: 012603 mov (sp)+,r3 ; .. 043130: 000207 return ; .. ;-------------------------------------------------------- ; ; File: subsm.mac ; ; calc.pbn:: 043132: 004567 033742 jsr r5,csv$ ; w.b7 043136: 016504 000004 mov 4(r5),r4 ; D... 043142: 016403 000002 mov 2(r4),r3 ; .... 043146: 016302 000110 mov 110(r3),r2 ; B.H. 043152: 016401 000006 mov 6(r4),r1 ; .... 043156: 016400 000010 mov 10(r4),r0 ; .... 043162: 012703 000020 mov #20,r3 ; C... 043166: 006300 asl r0 ; @. 043170: 006101 rol r1 ; A. 043172: 001404 beq 43204 ; .. 043174: 020102 cmp r1,r2 ; B 043176: 103402 bcs 43204 ; .. 043200: 160201 sub r2,r1 ; .` 043202: 005200 inc r0 ; .. 043204: 077310 sob r3,43166 ; H~ 043206: 010164 000034 mov r1,34(r4) ; t... 043212: 016403 000002 mov 2(r4),r3 ; .... 043216: 016302 000112 mov 112(r3),r2 ; B.J. 043222: 005001 clr r1 ; .. 043224: 012703 000020 mov #20,r3 ; C... 043230: 006300 asl r0 ; @. 043232: 006101 rol r1 ; A. 043234: 001404 beq 43246 ; .. 043236: 020102 cmp r1,r2 ; B 043240: 103402 bcs 43246 ; .. 043242: 160201 sub r2,r1 ; .` 043244: 005200 inc r0 ; .. 043246: 077310 sob r3,43230 ; H~ 043250: 010164 000032 mov r1,32(r4) ; t... 043254: 010064 000030 mov r0,30(r4) ; 4... 043260: 016403 000002 mov 2(r4),r3 ; .... 043264: 166300 000124 sub 124(r3),r0 ; @lT. 043270: 002001 bge 43274 ; .. 043272: 005400 neg r0 ; .. 043274: 022700 000005 cmp #5,r0 ; @%.. 043300: 002003 bge 43310 ; .. 043302: 010416 mov r4,(sp) ; .. 043304: 004767 172676 call seek ; w.>u 043310: 016463 000030 000124 mov 30(r4),124(r3) ; 3...T. 043316: 000167 033572 jmp cret$ ; w.z7 ; get.ucb:: 043322: 016600 000002 mov 2(sp),r0 ; .... 043326: 166700 034720 sub 100252,r0 ; @mP9 043332: 002524 blt 43604 ; T. 043334: 022700 000003 cmp #3,r0 ; @%.. 043340: 002521 blt 43604 ; Q. 043342: 006300 asl r0 ; @. 043344: 016000 100054 mov 100054(r0),r0 ; ..,. 043350: 001516 beq 43606 ; N. 043352: 010066 000002 mov r0,2(sp) ; 6... 043356: 032760 000010 000030 bit #10,30(r0) ; p5.... 043364: 001036 bne 43462 ; .. 043366: 036067 000040 034610 bit 40(r0),100204 ; 7< ..9 043374: 001404 beq 43406 ; .. 043376: 052760 020000 000012 bis #20000,12(r0) ; pU. .. 043404: 000403 br 43414 ; .. ; 043406: 042760 020000 000012 bic #20000,12(r0) ; pE. .. 043414: 032760 000040 000030 bit #40,30(r0) ; p5 ... 043422: 001412 beq 43450 ; .. 043424: 010046 mov r0,-(sp) ; &. 043426: 004767 164666 call rd$media ; w.6i 043432: 005726 tst (sp)+ ; V. 043434: 016600 000002 mov 2(sp),r0 ; .... 043440: 032760 000040 000030 bit #40,30(r0) ; p5 ... 043446: 001031 bne 43532 ; .. 043450: 036067 000036 034526 bit 36(r0),100204 ; 7<..V9 043456: 001434 beq 43550 ; .. 043460: 000424 br 43532 ; .. ; 043462: 010046 mov r0,-(sp) ; &. 043464: 004767 172244 call get.disk ; w.$t 043470: 005726 tst (sp)+ ; V. 043472: 010001 mov r0,r1 ; .. 043474: 016600 000002 mov 2(sp),r0 ; .... 043500: 032701 000001 bit #1,r1 ; A5.. 043504: 001404 beq 43516 ; .. 043506: 052760 020000 000012 bis #20000,12(r0) ; pU. .. 043514: 000403 br 43524 ; .. ; 043516: 042760 020000 000012 bic #20000,12(r0) ; pE. .. 043524: 032701 000002 bit #2,r1 ; A5.. 043530: 001007 bne 43550 ; .. 043532: 042760 000021 000030 bic #21,30(r0) ; pE.... 043540: 052760 000002 000030 bis #2,30(r0) ; pU.... 043546: 000417 br 43606 ; .. ; 043550: 032760 000002 000030 bit #2,30(r0) ; p5.... 043556: 001413 beq 43606 ; .. 043560: 042760 000002 000030 bic #2,30(r0) ; pE.... 043566: 010046 mov r0,-(sp) ; &. 043570: 004767 014200 call do$una ; w... 043574: 005726 tst (sp)+ ; V. 043576: 016600 000002 mov 2(sp),r0 ; .... 043602: 000401 br 43606 ; .. ; 043604: 005000 clr r0 ; .. 043606: 000207 return ; .. ; $enq.head:: 043610: 011646 mov (sp),-(sp) ; &. 043612: 106766 000002 mfps 2(sp) ; v... 043616: 106427 000340 mtps #340 ; ..`. 043622: 016601 000004 mov 4(sp),r1 ; .... 043626: 016600 000006 mov 6(sp),r0 ; .... 043632: 011110 mov (r1),(r0) ; H. 043634: 010011 mov r0,(r1) ; .. 043636: 000002 rti ; .. ; $enq.tail:: 043640: 011646 mov (sp),-(sp) ; &. 043642: 106766 000002 mfps 2(sp) ; v... 043646: 106427 000340 mtps #340 ; ..`. 043652: 016601 000004 mov 4(sp),r1 ; .... 043656: 016600 000006 mov 6(sp),r0 ; .... 043662: 005711 tst (r1) ; I. 043664: 001402 beq 43672 ; .. 043666: 011101 mov (r1),r1 ; A. 043670: 000774 br 43662 ; |. ; 043672: 005010 clr (r0) ; .. 043674: 010011 mov r0,(r1) ; .. 043676: 000002 rti ; .. ; $deq.head:: 043700: 106701 mfps r1 ; A. 043702: 106427 000340 mtps #340 ; ..`. 043706: 017600 000002 mov @2(sp),r0 ; .... 043712: 001402 beq 43720 ; .. 043714: 011076 000002 mov (r0),@2(sp) ; >... 043720: 106401 mtps r1 ; .. 043722: 000207 return ; .. ; $deqf.head:: 043724: 106701 mfps r1 ; A. 043726: 106427 000340 mtps #340 ; ..`. 043732: 017600 000002 mov @2(sp),r0 ; .... 043736: 001404 beq 43750 ; .. 043740: 011076 000002 mov (r0),@2(sp) ; >... 043744: 106401 mtps r1 ; .. 043746: 000207 return ; .. ; 043750: 012746 000736 mov #736,-(sp) ; f.^. 043754: 004767 171352 call fatal.error ; w.jr ; ;-------------------------------------------------------- ; ; File: opsys.mac ; ; ; $start:: 043760: 012706 110466 mov #nstack,sp ; F.6. 043764: 005046 clr -(sp) ; &. 043766: 012746 044160 mov #null,-(sp) ; f.pH 043772: 005046 clr -(sp) ; &. 043774: 005046 clr -(sp) ; &. 043776: 012706 110456 mov #kstack,sp ; F... 044002: 012767 177777 044456 mov #177777,intlev ; 110466 044010: 000167 135114 jmp start ; w.L: ; intdis:: 044014: 010146 mov r1,-(sp) ; f. 044016: 005267 044444 inc 110466 ; 7.$I 044022: 003004 bgt 44034 ; .. 044024: 010667 044440 mov sp,usersp ; 110470 044030: 012706 110456 mov #kstack,sp ; F... 044034: 004730 call @(r0)+ ; X. 044036: 005367 044424 dec 110466 ; w..I 044042: 002035 bge 44136 ; .. 044044: 016706 044420 mov 110470,sp ; F..I sysret:: 044050: 026767 044416 044416 cmp 110472,runjob ; w-.I.I 044056: 001427 beq 44136 ; .. 044060: 005767 044402 tst 110466 ; w..I 044064: 002024 bge 44136 ; .. 044066: 016700 044400 mov 110472,r0 ; @..I 044072: 001406 beq 44110 ; .. 044074: 010246 mov r2,-(sp) ; &. 044076: 010346 mov r3,-(sp) ; f. 044100: 010446 mov r4,-(sp) ; &. 044102: 010546 mov r5,-(sp) ; f. 044104: 010660 000004 mov sp,4(r0) ; 0... 044110: 016700 044360 mov runjob,r0 ; @.pH 044114: 001413 beq 44144 ; .. 044116: 010067 044350 mov r0,110472 ; 7.hH 044122: 016006 000004 mov 4(r0),sp ; .... 044126: 012605 mov (sp)+,r5 ; .. 044130: 012604 mov (sp)+,r4 ; .. 044132: 012603 mov (sp)+,r3 ; .. 044134: 012602 mov (sp)+,r2 ; .. 044136: 012601 mov (sp)+,r1 ; .. 044140: 012600 mov (sp)+,r0 ; .. 044142: 000002 rti ; .. ; 044144: 005067 044322 clr 110472 ; 7.RH 044150: 012706 110466 mov #110466,sp ; F.6. 044154: 106427 000000 mtps #0 ; .... ; ; null job ; null:: 044160: 000777 br null ; .. ; tick:: 044162: 016700 044310 mov hibjob,r0 ; @.HH 044166: 001002 bne 44174 ; .. 044170: 012600 mov (sp)+,r0 ; .. 044172: 000002 rti ; .. ; 044174: 010146 mov r1,-(sp) ; f. 044176: 012701 hibjob mov #hibjob,r1 ; A.>. 044202: 005360 000002 dec 2(r0) ; p... 044206: 002010 bge 44230 ; .. 044210: 011011 mov (r0),(r1) ; .. 044212: 012760 runjob 000002 mov #runjob,2(r0) ; p.<... 044220: 010146 mov r1,-(sp) ; f. 044222: 004767 000554 call link ; w.l. 044226: 012600 mov (sp)+,r0 ; .. 044230: 010001 mov r0,r1 ; .. 044232: 011000 mov (r0),r0 ; .. 044234: 001362 bne 44202 ; r. 044236: 000704 br sysret ; D. ; $acquire:: 044240: 011646 mov (sp),-(sp) ; &. 044242: 106766 000002 mfps 2(sp) ; v... 044246: 106427 000340 mtps #340 ; ..`. 044252: 016601 000004 mov 4(sp),r1 ; .... 044256: 005711 tst (r1) ; I. 044260: 001003 bne 44270 ; .. 044262: 012711 000001 mov #1,(r1) ; I... 044266: 000002 rti ; .. ; 044270: 016700 044200 mov runjob,r0 ; @..H 044274: 011067 044174 mov (r0),runjob ; 7.|H 044300: 010160 000002 mov r1,2(r0) ; p... 044304: 022711 000001 cmp #1,(r1) ; I%.. 044310: 001003 bne 44320 ; .. 044312: 010011 mov r0,(r1) ; .. 044314: 005010 clr (r0) ; .. 044316: 000402 br 44324 ; .. ; 044320: 004767 000456 call link ; w... 044324: 010046 mov r0,-(sp) ; &. 044326: 010146 mov r1,-(sp) ; f. 044330: 000167 177514 jmp sysret ; w.L. ; $release:: 044334: 011646 mov (sp),-(sp) ; &. 044336: 106766 000002 mfps 2(sp) ; v... 044342: 106427 000340 mtps #340 ; ..`. 044346: 016601 000004 mov 4(sp),r1 ; .... 044352: 022711 000001 cmp #1,(r1) ; I%.. 044356: 001002 bne 44364 ; .. 044360: 005011 clr (r1) ; .. 044362: 000002 rti ; .. ; 044364: 011100 mov (r1),r0 ; @. 044366: 011011 mov (r0),(r1) ; .. 044370: 001002 bne 44376 ; .. 044372: 012711 000001 mov #1,(r1) ; I... 044376: 012760 runjob 000002 mov #runjob,2(r0) ; p.<... 044404: 004767 000372 call link ; w.z. 044410: 010046 mov r0,-(sp) ; &. 044412: 010146 mov r1,-(sp) ; f. 044414: 000167 177430 jmp sysret ; w... ; $block:: 044420: 011646 mov (sp),-(sp) ; &. 044422: 106766 000002 mfps 2(sp) ; v... 044426: 106427 000340 mtps #340 ; ..`. 044432: 016601 000004 mov 4(sp),r1 ; .... 044436: 022711 000001 cmp #1,(r1) ; I%.. 044442: 001002 bne 44450 ; .. 044444: 005011 clr (r1) ; .. 044446: 000002 rti ; .. ; 044450: 016700 044020 mov runjob,r0 ; @..H 044454: 011067 044014 mov (r0),runjob ; 7..H 044460: 010160 000002 mov r1,2(r0) ; p... 044464: 004767 000312 call link ; w.J. 044470: 010046 mov r0,-(sp) ; &. 044472: 010146 mov r1,-(sp) ; f. 044474: 000167 177350 jmp sysret ; w.h~ ; $unblock:: 044500: 011646 mov (sp),-(sp) ; &. 044502: 106766 000002 mfps 2(sp) ; v... 044506: 106427 000340 mtps #340 ; ..`. 044512: 016601 000004 mov 4(sp),r1 ; .... 044516: 011100 mov (r1),r0 ; @. 044520: 001403 beq 44530 ; .. 044522: 022700 000001 cmp #1,r0 ; @%.. 044526: 001003 bne 44536 ; .. 044530: 012711 000001 mov #1,(r1) ; I... 044534: 000002 rti ; .. ; 044536: 011011 mov (r0),(r1) ; .. 044540: 012760 runjob 000002 mov #runjob,2(r0) ; p.<... 044546: 004767 000230 call link ; w... 044552: 010046 mov r0,-(sp) ; &. 044554: 010146 mov r1,-(sp) ; f. 044556: 000167 177266 jmp sysret ; w.6~ ; $create:: 044562: 011646 mov (sp),-(sp) ; &. 044564: 106766 000002 mfps 2(sp) ; v... 044570: 106427 000340 mtps #340 ; ..`. 044574: 016600 000004 mov 4(sp),r0 ; .... 044600: 016601 000012 mov 12(sp),r1 ; .... 044604: 016641 000014 mov 14(sp),-(r1) ; !... 044610: 005041 clr -(r1) ; !. 044612: 005041 clr -(r1) ; !. 044614: 016641 000006 mov 6(sp),-(r1) ; !... 044620: 162701 000014 sub #14,r1 ; Ae.. 044624: 010160 000004 mov r1,4(r0) ; p... 044630: 016660 000010 000006 mov 10(sp),6(r0) ; 0..... 044636: 012760 runjob 000002 mov #runjob,2(r0) ; p.<... 044644: 004767 000132 call link ; w.Z. 044650: 010046 mov r0,-(sp) ; &. 044652: 010146 mov r1,-(sp) ; f. 044654: 000167 177170 jmp sysret ; w.x~ ; $sleep:: 044660: 011646 mov (sp),-(sp) ; &. 044662: 106766 000002 mfps 2(sp) ; v... 044666: 106427 000340 mtps #340 ; ..`. 044672: 016700 043576 mov runjob,r0 ; @.~G 044676: 011067 043572 mov (r0),runjob ; 7.zG 044702: 016710 043570 mov hibjob,(r0) ; H.xG 044706: 010067 043564 mov r0,hibjob ; 7.tG 044712: 016660 000004 000002 mov 4(sp),2(r0) ; 0..... 044720: 010046 mov r0,-(sp) ; &. 044722: 010146 mov r1,-(sp) ; f. 044724: 000167 177120 jmp sysret ; w.P~ ; $setpriority:: 044730: 011646 mov (sp),-(sp) ; &. 044732: 106766 000002 mfps 2(sp) ; v... 044736: 106427 000340 mtps #340 ; ..`. 044742: 016700 043526 mov runjob,r0 ; @.VG 044746: 011067 043522 mov (r0),runjob ; 7.RG 044752: 016660 000004 000006 mov 4(sp),6(r0) ; 0..... 044760: 012760 runjob 000002 mov #runjob,2(r0) ; p.<... 044766: 004767 000010 call link ; w... 044772: 010046 mov r0,-(sp) ; &. 044774: 010146 mov r1,-(sp) ; f. 044776: 000167 177046 jmp sysret ; w.&~ ; link:: 045002: 010246 mov r2,-(sp) ; &. 045004: 016001 000002 mov 2(r0),r1 ; .... 045010: 011102 mov (r1),r2 ; B. 045012: 001406 beq 45030 ; .. 045014: 026062 000006 000006 cmp 6(r0),6(r2) ; 2,.... 045022: 003002 bgt 45030 ; .. 045024: 010201 mov r2,r1 ; .. 045026: 000770 br 45010 ; x. ; 045030: 010210 mov r2,(r0) ; .. 045032: 010011 mov r0,(r1) ; .. 045034: 012602 mov (sp)+,r2 ; .. 045036: 000207 return ; .. ;-------------------------------------------------------- ; ; doabo.c ; ; ; do$abo( ptk ) do$abo:: 045040: 004567 032034 jsr r5,csv$ ; w..4 045044: 016504 000004 mov 4(r5),r4 ; D... 045050: 105064 000017 clrb 17(r4) ; 4... 045054: 005064 000020 clr 20(r4) ; 4... 045060: 016446 000024 mov 24(r4),-(sp) ; &... 045064: 016446 000022 mov 22(r4),-(sp) ; &... 045070: 016446 000012 mov 12(r4),-(sp) ; &... 045074: 004767 000040 call $do$abo ; w. . 045100: 062706 000006 add #6,sp ; Fe.. 045104: 152764 000200 000016 bisb #200,16(r4) ; tU.... 045112: 012764 000020 000002 mov #20,2(r4) ; t..... 045120: 105064 000004 clrb 4(r4) ; 4... 045124: 010446 mov r4,-(sp) ; &. 045126: 004767 166364 call put.packet ; w.tl 045132: 005726 tst (sp)+ ; V. 045134: 000167 031754 jmp cret$ ; w.l3 ; ; $do$abo( pkt ) $do$abo:: 045140: 004567 031734 jsr r5,csv$ ; w.\3 045144: 005746 tst -(sp) ; f. 045146: 016546 000004 mov 4(r5),-(sp) ; f... 045152: 004767 176144 call get.ucb ; w.d| 045156: 005726 tst (sp)+ ; V. 045160: 010002 mov r0,r2 ; .. 045162: 001002 bne 45170 ; .. 045164: 000167 000340 jmp 45530 ; w.`. ; 045170: 010246 mov r2,-(sp) ; &. 045172: 062716 000126 add #126,(sp) ; NeV. 045176: 004767 177036 call $acquire ; w..~ 045202: 005726 tst (sp)+ ; V. 045204: 016203 000136 mov 136(r2),r3 ; ..^. 045210: 016304 000004 mov 4(r3),r4 ; D... 045214: 026564 000006 000006 cmp 6(r5),6(r4) ; t-.... 045222: 001010 bne 45244 ; .. 045224: 026564 000010 000010 cmp 10(r5),10(r4) ; t-.... 045232: 001004 bne 45244 ; .. 045234: 052763 000400 000024 bis #400,24(r3) ; sU.... 045242: 000524 br 45514 ; T. ; 045244: 010204 mov r2,r4 ; .. 045246: 062704 000002 add #2,r4 ; De.. 045252: 010465 177770 mov r4,177770(r5) ; 5.x. 045256: 011400 mov (r4),r0 ; .. 045260: 010004 mov r0,r4 ; .. 045262: 005704 tst r4 ; D. 045264: 001435 beq 45360 ; .. 045266: 026564 000006 000006 cmp 6(r5),6(r4) ; t-.... 045274: 001030 bne 45356 ; .. 045276: 026564 000010 000010 cmp 10(r5),10(r4) ; t-.... 045304: 001024 bne 45356 ; .. 045306: 011475 177770 mov (r4),@177770(r5) ; =.x. 045312: 105064 000017 clrb 17(r4) ; 4... 045316: 012764 000002 000020 mov #2,20(r4) ; t..... 045324: 152764 000200 000016 bisb #200,16(r4) ; tU.... 045332: 012764 000014 000002 mov #14,2(r4) ; t..... 045340: 105064 000004 clrb 4(r4) ; 4... 045344: 010446 mov r4,-(sp) ; &. 045346: 004767 166144 call put.packet ; w.dl 045352: 005726 tst (sp)+ ; V. 045354: 000457 br 45514 ; /. ; 045356: 000735 br 45252 ; ]. ; 045360: 010203 mov r2,r3 ; .. 045362: 062703 000004 add #4,r3 ; Ce.. 045366: 010365 177766 mov r3,177766(r5) ; u.v. 045372: 011300 mov (r3),r0 ; @. 045374: 010003 mov r0,r3 ; .. 045376: 005703 tst r3 ; C. 045400: 001445 beq 45514 ; %. 045402: 016304 000004 mov 4(r3),r4 ; D... 045406: 026564 000006 000006 cmp 6(r5),6(r4) ; t-.... 045414: 001036 bne 45512 ; .. 045416: 026564 000010 000010 cmp 10(r5),10(r4) ; t-.... 045424: 001032 bne 45512 ; .. 045426: 011375 177766 mov (r3),@177766(r5) ; }.v. 045432: 105064 000017 clrb 17(r4) ; 4... 045436: 012764 000002 000020 mov #2,20(r4) ; t..... 045444: 152764 000200 000016 bisb #200,16(r4) ; tU.... 045452: 012764 000014 000002 mov #14,2(r4) ; t..... 045460: 105064 000004 clrb 4(r4) ; 4... 045464: 010446 mov r4,-(sp) ; &. 045466: 004767 166024 call put.packet ; w..l 045472: 005726 tst (sp)+ ; V. 045474: 010346 mov r3,-(sp) ; f. 045476: 012746 100052 mov #100052,-(sp) ; f.*. 045502: 004767 176102 call $enq.head ; w.B| 045506: 022626 cmp (sp)+,(sp)+ ; .% 045510: 000401 br 45514 ; .. ; 045512: 000725 br 45366 ; U. ; 045514: 010246 mov r2,-(sp) ; &. 045516: 062716 000126 add #126,(sp) ; NeV. 045522: 004767 176606 call $release ; w..} 045526: 005726 tst (sp)+ ; V. 045530: 000167 031360 jmp cret$ ; w.p2 ;-------------------------------------------------------- ; ; doap.c ; ; ; do$ap( ptk ) do$ap:: 045534: 004567 031340 jsr r5,csv$ ; w.`2 045540: 016504 000004 mov 4(r5),r4 ; D... 045544: 036727 035100 000004 bit 102650,#4 ; W=@:.. 045552: 001406 beq 45570 ; .. 045554: 052767 000002 035106 bis #2,102670 ; wU..F: 045562: 005064 000020 clr 20(r4) ; 4... 045566: 000403 br 45576 ; .. ; 045570: 012764 000001 000020 mov #1,20(r4) ; t..... 045576: 152764 000200 000016 bisb #200,16(r4) ; tU.... 045604: 012764 000014 000002 mov #14,2(r4) ; t..... 045612: 105064 000004 clrb 4(r4) ; 4... 045616: 010446 mov r4,-(sp) ; &. 045620: 004767 165672 call put.packet ; w.:k 045624: 005726 tst (sp)+ ; V. 045626: 000167 031262 jmp cret$ ; w.22 ;-------------------------------------------------------- ; ; doavl.c ; ; ; do$avl( ptk ) do$avl:: 045632: 004567 031242 jsr r5,csv$ ; w."2 045636: 016504 000004 mov 4(r5),r4 ; D... 045642: 105064 000017 clrb 17(r4) ; 4... 045646: 016446 000012 mov 12(r4),-(sp) ; &... 045652: 004767 175444 call get.ucb ; w.${ 045656: 005726 tst (sp)+ ; V. 045660: 010003 mov r0,r3 ; .. 045662: 001004 bne 45674 ; .. 045664: 012764 000003 000020 mov #3,20(r4) ; t..... 045672: 000456 br 46030 ; .. ; 045674: 010346 mov r3,-(sp) ; f. 045676: 062716 000126 add #126,(sp) ; NeV. 045702: 004767 176332 call $acquire ; w.Z| 045706: 005726 tst (sp)+ ; V. 045710: 005763 000136 tst 136(r3) ; s.^. 045714: 001003 bne 45724 ; .. 045716: 005763 000004 tst 4(r3) ; s... 045722: 001416 beq 45760 ; .. 045724: 010446 mov r4,-(sp) ; &. 045726: 010346 mov r3,-(sp) ; f. 045730: 062716 000002 add #2,(sp) ; Ne.. 045734: 004767 175700 call $enq.tail ; w.@{ 045740: 022626 cmp (sp)+,(sp)+ ; .% 045742: 010346 mov r3,-(sp) ; f. 045744: 062716 000126 add #126,(sp) ; NeV. 045750: 004767 176360 call $release ; w.p| 045754: 005726 tst (sp)+ ; V. 045756: 000440 br 46060 ; . ; 045760: 042763 000021 000030 bic #21,30(r3) ; sE.... 045766: 042763 057577 000012 bic #57577,12(r3) ; sE._.. 045774: 016302 000040 mov 40(r3),r2 ; B. . 046000: 005102 com r2 ; B. 046002: 005102 com r2 ; B. 046004: 040267 032172 bic r2,100202 ; 7@z4 046010: 005064 000020 clr 20(r4) ; 4... 046014: 010346 mov r3,-(sp) ; f. 046016: 062716 000126 add #126,(sp) ; NeV. 046022: 004767 176306 call $release ; w.F| 046026: 005726 tst (sp)+ ; V. 046030: 152764 000200 000016 bisb #200,16(r4) ; tU.... 046036: 012764 000014 000002 mov #14,2(r4) ; t..... 046044: 105064 000004 clrb 4(r4) ; 4... 046050: 010446 mov r4,-(sp) ; &. 046052: 004767 165440 call put.packet ; w. k 046056: 005726 tst (sp)+ ; V. 046060: 000167 031030 jmp cret$ ; w..2 ;-------------------------------------------------------- ; ; File: dobbr.c ; ; ; do$bbr( tcb, lbn, ddm, replaced ) do$bbr:: 046064: 004567 031010 jsr r5,csv$ ; w..2 046070: 016504 000004 mov 4(r5),r4 ; D... 046074: 036727 034546 000020 bit 102646,#20 ; W=f9.. 046102: 001002 bne 46110 ; .. 046104: 000167 000434 jmp 46544 ; w... ; 046110: 012746 100050 mov #100050,-(sp) ; f.(. 046114: 004767 175604 call $deqf.head ; w..{ 046120: 005726 tst (sp)+ ; V. 046122: 010003 mov r0,r3 ; .. 046124: 016402 000002 mov 2(r4),r2 ; .... 046130: 016400 000004 mov 4(r4),r0 ; .... 046134: 016063 000006 000006 mov 6(r0),6(r3) ; 3..... 046142: 016063 000010 000010 mov 10(r0),10(r3) ; 3..... 046150: 016400 000004 mov 4(r4),r0 ; .... 046154: 016063 000012 000012 mov 12(r0),12(r3) ; 3..... 046162: 005063 000014 clr 14(r3) ; 3... 046166: 112763 000011 000016 movb #11,16(r3) ; s..... 046174: 112763 000201 000017 movb #201,17(r3) ; s..... 046202: 012763 000024 000020 mov #24,20(r3) ; s..... 046210: 005063 000022 clr 22(r3) ; 3... 046214: 005063 000024 clr 24(r3) ; 3... 046220: 005063 000026 clr 26(r3) ; 3... 046224: 016763 034424 000030 mov 102654,30(r3) ; s..9.. 046232: 112763 000004 000032 movb #4,32(r3) ; s..... 046240: 112763 000001 000033 movb #1,33(r3) ; s..... 046246: 016400 000004 mov 4(r4),r0 ; .... 046252: 016063 000012 000034 mov 12(r0),34(r3) ; 3..... 046260: 016400 000004 mov 4(r4),r0 ; .... 046264: 016063 000012 000036 mov 12(r0),36(r3) ; 3..... 046272: 005063 000040 clr 40(r3) ; 3. . 046276: 005063 000042 clr 42(r3) ; 3.". 046302: 016263 000140 000044 mov 140(r2),44(r3) ; 3.`.$. 046310: 105063 000046 clrb 46(r3) ; 3.&. 046314: 105063 000047 clrb 47(r3) ; 3.'. 046320: 005063 000050 clr 50(r3) ; 3.(. 046324: 016263 000022 000052 mov 22(r2),52(r3) ; 3...*. 046332: 016263 000020 000054 mov 20(r2),54(r3) ; 3...,. 046340: 016563 000010 000056 mov 10(r5),56(r3) ; s..... 046346: 016563 000006 000060 mov 6(r5),60(r3) ; s...0. 046354: 005063 000062 clr 62(r3) ; 3.2. 046360: 005063 000064 clr 64(r3) ; 3.4. 046364: 005063 000066 clr 66(r3) ; 3.6. 046370: 005063 000070 clr 70(r3) ; 3.8. 046374: 012763 000350 000072 mov #350,72(r3) ; s.h.:. 046402: 005765 000014 tst 14(r5) ; u... 046406: 001433 beq 46476 ; .. 046410: 052763 120000 000050 bis #120000,50(r3) ; sU. (. 046416: 005765 000012 tst 12(r5) ; u... 046422: 001403 beq 46432 ; .. 046424: 052763 040000 000050 bis #40000,50(r3) ; sU.@(. 046432: 005764 000046 tst 46(r4) ; t.&. 046436: 002411 blt 46462 ; .. 046440: 052763 002000 000050 bis #2000,50(r3) ; sU..(. 046446: 016463 000050 000062 mov 50(r4),62(r3) ; 3.(.2. 046454: 016463 000046 000064 mov 46(r4),64(r3) ; 3.&.4. 046462: 016463 000054 000066 mov 54(r4),66(r3) ; 3.,.6. 046470: 016463 000052 000070 mov 52(r4),70(r3) ; 3.*.8. 046476: 016400 000004 mov 4(r4),r0 ; .... 046502: 152760 000040 000017 bisb #40,17(r0) ; pU ... 046510: 012763 000066 000002 mov #66,2(r3) ; s.6... 046516: 112763 000020 000004 movb #20,4(r3) ; s..... 046524: 105063 000005 clrb 5(r3) ; 3... 046530: 005267 031474 inc 100230 ; 7.<3 046534: 010346 mov r3,-(sp) ; f. 046536: 004767 164754 call put.packet ; w.li 046542: 005726 tst (sp)+ ; V. 046544: 000167 030344 jmp cret$ ; w.d0 ;-------------------------------------------------------- ; ; File: dohbe.c ; ; ; do$hbe( tcb, error ) do$hbe:: 046550: 004567 030324 jsr r5,csv$ ; w.T0 046554: 016504 000004 mov 4(r5),r4 ; D... 046560: 036727 034062 000020 bit 102646,#20 ; W=28.. 046566: 001002 bne 46574 ; .. 046570: 000167 000562 jmp 47356 ; w.r. ; 046574: 012746 100050 mov #100050,-(sp) ; f.(. 046600: 004767 175120 call $deqf.head ; w.Pz 046604: 005726 tst (sp)+ ; V. 046606: 010003 mov r0,r3 ; .. 046610: 016402 000002 mov 2(r4),r2 ; .... 046614: 026527 000006 000151 cmp 6(r5),#151 ; W-..i. 046622: 001562 beq 47170 ; r. 046624: 026527 000006 000211 cmp 6(r5),#211 ; W-.... 046632: 001556 beq 47170 ; n. 046634: 026527 000006 000251 cmp 6(r5),#251 ; W-..). 046642: 001552 beq 47170 ; j. 046644: 016400 000004 mov 4(r4),r0 ; .... 046650: 016063 000006 000006 mov 6(r0),6(r3) ; 3..... 046656: 016063 000010 000010 mov 10(r0),10(r3) ; 3..... 046664: 016400 000004 mov 4(r4),r0 ; .... 046670: 016063 000012 000012 mov 12(r0),12(r3) ; 3..... 046676: 005063 000014 clr 14(r3) ; 3... 046702: 112763 000004 000016 movb #4,16(r3) ; s..... 046710: 005764 000060 tst 60(r4) ; t.0. 046714: 001403 beq 46724 ; .. 046716: 012700 000001 mov #1,r0 ; @... 046722: 000402 br 46730 ; .. ; 046724: 012700 000201 mov #201,r0 ; @... 046730: 110063 000017 movb r0,17(r3) ; 3... 046734: 016563 000006 000020 mov 6(r5),20(r3) ; s..... 046742: 005063 000022 clr 22(r3) ; 3... 046746: 005063 000024 clr 24(r3) ; 3... 046752: 005063 000026 clr 26(r3) ; 3... 046756: 016763 033672 000030 mov 102654,30(r3) ; s.:7.. 046764: 112763 000004 000032 movb #4,32(r3) ; s..... 046772: 112763 000001 000033 movb #1,33(r3) ; s..... 047000: 016400 000004 mov 4(r4),r0 ; .... 047004: 016063 000012 000034 mov 12(r0),34(r3) ; 3..... 047012: 016400 000004 mov 4(r4),r0 ; .... 047016: 016063 000012 000036 mov 12(r0),36(r3) ; 3..... 047024: 005063 000040 clr 40(r3) ; 3. . 047030: 005063 000042 clr 42(r3) ; 3.". 047034: 016263 000140 000044 mov 140(r2),44(r3) ; 3.`.$. 047042: 105063 000046 clrb 46(r3) ; 3.&. 047046: 105063 000047 clrb 47(r3) ; 3.'. 047052: 016463 000030 000050 mov 30(r4),50(r3) ; 3...(. 047060: 016263 000022 000052 mov 22(r2),52(r3) ; 3...*. 047066: 016263 000020 000054 mov 20(r2),54(r3) ; 3...,. 047074: 116463 000062 000056 movb 62(r4),56(r3) ; 3.2... 047102: 116463 000063 000057 movb 63(r4),57(r3) ; 3.3./. 047110: 116400 000064 movb 64(r4),r0 ; ..4. 047114: 010046 mov r0,-(sp) ; &. 047116: 016700 031136 mov 100260,r0 ; @.^2 047122: 006300 asl r0 ; @. 047124: 006300 asl r0 ; @. 047126: 006300 asl r0 ; @. 047130: 062600 add (sp)+,r0 ; .e 047132: 110063 000060 movb r0,60(r3) ; 3.0. 047136: 116463 000065 000061 movb 65(r4),61(r3) ; 3.5.1. 047144: 116463 000066 000062 movb 66(r4),62(r3) ; 3.6.2. 047152: 116463 000067 000063 movb 67(r4),63(r3) ; 3.7.3. 047160: 012763 000056 000002 mov #56,2(r3) ; s..... 047166: 000453 br 47316 ; +. ; 047170: 016400 000004 mov 4(r4),r0 ; .... 047174: 016063 000006 000006 mov 6(r0),6(r3) ; 3..... 047202: 016063 000010 000010 mov 10(r0),10(r3) ; 3..... 047210: 005063 000014 clr 14(r3) ; 3... 047214: 112763 000001 000016 movb #1,16(r3) ; s..... 047222: 112763 000001 000017 movb #1,17(r3) ; s..... 047230: 016563 000006 000020 mov 6(r5),20(r3) ; s..... 047236: 005063 000022 clr 22(r3) ; 3... 047242: 005063 000024 clr 24(r3) ; 3... 047246: 005063 000026 clr 26(r3) ; 3... 047252: 016763 033376 000030 mov 102654,30(r3) ; s.~6.. 047260: 112763 000004 000032 movb #4,32(r3) ; s..... 047266: 112763 000001 000033 movb #1,33(r3) ; s..... 047274: 016463 000020 000036 mov 20(r4),36(r3) ; 3..... 047302: 016463 000016 000040 mov 16(r4),40(r3) ; 3... . 047310: 012763 000034 000002 mov #34,2(r3) ; s..... 047316: 016400 000004 mov 4(r4),r0 ; .... 047322: 152760 000040 000017 bisb #40,17(r0) ; pU ... 047330: 112763 000020 000004 movb #20,4(r3) ; s..... 047336: 105063 000005 clrb 5(r3) ; 3... 047342: 005267 030662 inc 100230 ; 7.21 047346: 010346 mov r3,-(sp) ; f. 047350: 004767 164142 call put.packet ; w.bh 047354: 005726 tst (sp)+ ; V. 047356: 000167 027532 jmp cret$ ; w.Z/ ;-------------------------------------------------------- ; ; doelp.c ; ; ; do$elp( ptk ) do$elp:: 047362: 004567 027512 jsr r5,csv$ ; w.J/ 047366: 016504 000004 mov 4(r5),r4 ; D... 047372: 036727 033252 000004 bit 102650,#4 ; W=*6.. 047400: 001111 bne 47624 ; I. 047402: 012702 002304 mov #2304,r2 ; B.D. 047406: 012703 000001 mov #1,r3 ; C... 047412: 000472 br 47600 ; :. ; 047414: 021264 000022 cmp (r2),22(r4) ; 4".. 047420: 001065 bne 47574 ; 5. 047422: 026264 000002 000024 cmp 2(r2),24(r4) ; 4,.... 047430: 001061 bne 47574 ; 1. 047432: 026264 000004 000026 cmp 4(r2),26(r4) ; 4,.... 047440: 001055 bne 47574 ; -. 047442: 036227 000006 000001 bit 6(r2),#1 ; .<.... 047450: 001410 beq 47472 ; .. 047452: 036427 000020 000001 bit 20(r4),#1 ; .=.... 047460: 001004 bne 47472 ; .. 047462: 012764 000006 000020 mov #6,20(r4) ; t..... 047470: 000445 br 47604 ; %. ; 047472: 012746 100044 mov #mem,-(sp) ; f.$. 047476: 004767 174536 call $acquire ; w.^y 047502: 005726 tst (sp)+ ; V. 047504: 005064 000020 clr 20(r4) ; 4... 047510: 016264 000012 000022 mov 12(r2),22(r4) ; 4..... 047516: 116264 000014 000024 movb 14(r2),24(r4) ; 4..... 047524: 116264 000006 000025 movb 6(r2),25(r4) ; 4..... 047532: 052767 000004 033110 bis #4,102650 ; wU..H6 047540: 016267 000010 033114 mov 10(r2),102662 ; 7...L6 047546: 005067 033112 clr 102664 ; 7.J6 047552: 005067 033110 clr 102666 ; 7.H6 047556: 012767 000001 033104 mov #1,102670 ; w...D6 047564: 016267 000014 033100 mov 14(r2),102672 ; 7...@6 047572: 000404 br 47604 ; .. ; 047574: 062702 000016 add #16,r2 ; Be.. 047600: 005303 dec r3 ; C. 047602: 002304 bge 47414 ; D. 047604: 036727 033040 000004 bit 102650,#4 ; W= 6.. 047612: 001003 bne 47622 ; .. 047614: 012764 000004 000020 mov #4,20(r4) ; t..... 047622: 000403 br 47632 ; .. ; 047624: 012764 000001 000020 mov #1,20(r4) ; t..... 047632: 152764 000200 000016 bisb #200,16(r4) ; tU.... 047640: 012764 000020 000002 mov #20,2(r4) ; t..... 047646: 105064 000004 clrb 4(r4) ; 4... 047652: 010446 mov r4,-(sp) ; &. 047654: 004767 163636 call put.packet ; w..g 047660: 005726 tst (sp)+ ; V. 047662: 000167 027226 jmp cret$ ; w... ;-------------------------------------------------------- ; ; doesp.c ; ; ; do$esp( ptk ) do$esp:: 047666: 004567 027206 jsr r5,csv$ ; w... 047672: 162706 000006 sub #6,sp ; Fe.. 047676: 016504 000004 mov 4(r5),r4 ; D... 047702: 036727 032742 000004 bit 102650,#4 ; W=b5.. 047710: 001142 bne 50216 ; b. 047712: 016465 000022 177770 mov 22(r4),177770(r5) ; 5...x. 047720: 016465 000024 177766 mov 24(r4),177766(r5) ; 5...v. 047726: 016465 000026 177764 mov 26(r4),177764(r5) ; 5...t. 047734: 016465 000030 177762 mov 30(r4),177762(r5) ; 5...r. 047742: 005765 177766 tst 177766(r5) ; u.v. 047746: 002414 blt 50000 ; .. 047750: 012701 022000 mov #22000,r1 ; A..$ 047754: 005000 clr r0 ; .. 047756: 166501 177770 sub 177770(r5),r1 ; Amx. 047762: 005600 sbc r0 ; .. 047764: 166500 177766 sub 177766(r5),r0 ; @mv. 047770: 162701 000001 sub #1,r1 ; Ae.. 047774: 005600 sbc r0 ; .. 047776: 002004 bge 50010 ; .. 050000: 012764 006001 000020 mov #6001,20(r4) ; t..... 050006: 000502 br 50214 ; B. ; 050010: 012746 100044 mov #mem,-(sp) ; f.$. 050014: 004767 174220 call $acquire ; w..x 050020: 005726 tst (sp)+ ; V. 050022: 012746 100042 mov #dma,-(sp) ; f.". 050026: 004767 174206 call $acquire ; w..x 050032: 005726 tst (sp)+ ; V. 050034: 010467 040324 mov r4,110364 ; 7.T@ 050040: 016500 177770 mov 177770(r5),r0 ; @.x. 050044: 010046 mov r0,-(sp) ; &. 050046: 012746 110600 mov #data,-(sp) ; f... 050052: 016546 177764 mov 177764(r5),-(sp) ; f.t. 050056: 016546 177762 mov 177762(r5),-(sp) ; f.r. 050062: 004767 164522 call get.buffer ; w.Ri 050066: 062706 000010 add #10,sp ; Fe.. 050072: 012746 100042 mov #dma,-(sp) ; f.". 050076: 004767 174232 call $release ; w..x 050102: 005726 tst (sp)+ ; V. 050104: 136727 040510 000001 bitb 110620,#1 ; W=HA.. 050112: 001415 beq 50146 ; .. 050114: 036427 000020 000001 bit 20(r4),#1 ; .=.... 050122: 001011 bne 50146 ; .. 050124: 012746 100044 mov #mem,-(sp) ; f.$. 050130: 004767 174200 call $release ; w..x 050134: 005726 tst (sp)+ ; V. 050136: 012764 000006 000020 mov #6,20(r4) ; t..... 050144: 000423 br 50214 ; .. ; 050146: 005064 000020 clr 20(r4) ; 4... 050152: 052767 000004 032470 bis #4,102650 ; wU..85 050160: 012767 110622 032474 mov #110622,102662 ; w...<5 050166: 005067 032472 clr 102664 ; 7.:5 050172: 005067 032470 clr 102666 ; 7.85 050176: 012767 000001 032464 mov #1,102670 ; w...45 050204: 116700 040411 movb 110621,r0 ; @..A 050210: 010067 032456 mov r0,102672 ; 7..5 050214: 000403 br 50224 ; .. ; 050216: 012764 000001 000020 mov #1,20(r4) ; t..... 050224: 152764 000200 000016 bisb #200,16(r4) ; tU.... 050232: 012764 000014 000002 mov #14,2(r4) ; t..... 050240: 105064 000004 clrb 4(r4) ; 4... 050244: 010446 mov r4,-(sp) ; &. 050246: 004767 163244 call put.packet ; w.$f 050252: 005726 tst (sp)+ ; V. 050254: 000167 026634 jmp cret$ ; w..- ;-------------------------------------------------------- ; ; dofmt.c ; ; ; do$fmt( ptk ) do$fmt:: 050260: 004567 026614 jsr r5,csv$ ; w..- 050264: 016504 000004 mov 4(r5),r4 ; D... 050270: 105064 000017 clrb 17(r4) ; 4... 050274: 016446 000012 mov 12(r4),-(sp) ; &... 050300: 004767 173016 call get.ucb ; w..v 050304: 005726 tst (sp)+ ; V. 050306: 010003 mov r0,r3 ; .. 050310: 001005 bne 50324 ; .. 050312: 012764 000003 000020 mov #3,20(r4) ; t..... 050320: 000167 000432 jmp 50756 ; w... ; 050324: 010346 mov r3,-(sp) ; f. 050326: 062716 000126 add #126,(sp) ; NeV. 050332: 004767 173702 call $acquire ; w.Bw 050336: 005726 tst (sp)+ ; V. 050340: 005763 000136 tst 136(r3) ; s.^. 050344: 001003 bne 50354 ; .. 050346: 005763 000004 tst 4(r3) ; s... 050352: 001417 beq 50412 ; .. 050354: 010446 mov r4,-(sp) ; &. 050356: 010346 mov r3,-(sp) ; f. 050360: 062716 000002 add #2,(sp) ; Ne.. 050364: 004767 173250 call $enq.tail ; w.(v 050370: 022626 cmp (sp)+,(sp)+ ; .% 050372: 010346 mov r3,-(sp) ; f. 050374: 062716 000126 add #126,(sp) ; NeV. 050400: 004767 173730 call $release ; w.Xw 050404: 005726 tst (sp)+ ; V. 050406: 000167 000374 jmp 51006 ; w.|. ; 050412: 036327 000030 001000 bit 30(r3),#1000 ; W<.... 050420: 001005 bne 50434 ; .. 050422: 012764 004001 000020 mov #4001,20(r4) ; t..... 050430: 000167 000306 jmp 50742 ; w.F. ; 050434: 126427 000016 000057 cmpb 16(r4),#57 ; .-../. 050442: 001043 bne 50552 ; #. 050444: 036327 000030 000001 bit 30(r3),#1 ; W<.... 050452: 001420 beq 50514 ; .. 050454: 012764 002004 000020 mov #2004,20(r4) ; t..... 050462: 042763 000021 000030 bic #21,30(r3) ; sE.... 050470: 042763 057577 000012 bic #57577,12(r3) ; sE._.. 050476: 016302 000040 mov 40(r3),r2 ; B. . 050502: 005102 com r2 ; B. 050504: 005102 com r2 ; B. 050506: 040267 027470 bic r2,100202 ; 7@8/ 050512: 000416 br 50550 ; .. ; 050514: 036427 000044 100000 bit 44(r4),#100000 ; .=$... 050522: 001004 bne 50534 ; .. 050524: 012764 016001 000020 mov #16001,20(r4) ; t..... 050532: 000406 br 50550 ; .. ; 050534: 010346 mov r3,-(sp) ; f. 050536: 004767 000250 call $do$fmt ; w.(. 050542: 005726 tst (sp)+ ; V. 050544: 010064 000020 mov r0,20(r4) ; 4... 050550: 000474 br 50742 ; <. ; 050552: 126427 000016 000030 cmpb 16(r4),#30 ; .-.... 050560: 001070 bne 50742 ; 8. 050562: 036327 000030 000002 bit 30(r3),#2 ; W<.... 050570: 001404 beq 50602 ; .. 050572: 012764 000003 000020 mov #3,20(r4) ; t..... 050600: 000460 br 50742 ; 0. ; 050602: 036327 000030 000001 bit 30(r3),#1 ; W<.... 050610: 001004 bne 50622 ; .. 050612: 012764 000004 000020 mov #4,20(r4) ; t..... 050620: 000450 br 50742 ; (. ; 050622: 036327 000030 000020 bit 30(r3),#20 ; W<.... 050630: 001004 bne 50642 ; .. 050632: 012764 002004 000020 mov #2004,20(r4) ; t..... 050640: 000424 br 50712 ; .. ; 050642: 005764 000044 tst 44(r4) ; t.$. 050646: 001007 bne 50666 ; .. 050650: 026427 000042 000432 cmp 42(r4),#432 ; .-"... 050656: 001407 beq 50676 ; .. 050660: 005764 000042 tst 42(r4) ; t.". 050664: 001404 beq 50676 ; .. 050666: 012764 016001 000020 mov #16001,20(r4) ; t..... 050674: 000422 br 50742 ; .. ; 050676: 010346 mov r3,-(sp) ; f. 050700: 004767 000106 call $do$fmt ; w.F. 050704: 005726 tst (sp)+ ; V. 050706: 010064 000020 mov r0,20(r4) ; 4... 050712: 042763 000021 000030 bic #21,30(r3) ; sE.... 050720: 042763 057577 000012 bic #57577,12(r3) ; sE._.. 050726: 016302 000040 mov 40(r3),r2 ; B. . 050732: 005102 com r2 ; B. 050734: 005102 com r2 ; B. 050736: 040267 027240 bic r2,100202 ; 7@ . 050742: 010346 mov r3,-(sp) ; f. 050744: 062716 000126 add #126,(sp) ; NeV. 050750: 004767 173360 call $release ; w.pv 050754: 005726 tst (sp)+ ; V. 050756: 152764 000200 000016 bisb #200,16(r4) ; tU.... 050764: 012764 000014 000002 mov #14,2(r4) ; t..... 050772: 105064 000004 clrb 4(r4) ; 4... 050776: 010446 mov r4,-(sp) ; &. 051000: 004767 162512 call put.packet ; w.Je 051004: 005726 tst (sp)+ ; V. 051006: 000167 026102 jmp cret$ ; w.B, ; ; $do$fmt( ucb ) $do$fmt:: 051012: 004567 026062 jsr r5,csv$ ; w.2, 051016: 162706 000102 sub #102,sp ; FeB. 051022: 016504 000004 mov 4(r5),r4 ; D... 051026: 036427 000030 000002 bit 30(r4),#2 ; .=.... 051034: 001404 beq 51046 ; .. 051036: 012700 000043 mov #43,r0 ; @.#. 051042: 000167 000710 jmp 51756 ; w.H. ; 051046: 036427 000012 020000 bit 12(r4),#20000 ; .=... 051054: 001404 beq 51066 ; .. 051056: 012700 020006 mov #20006,r0 ; @.. 051062: 000167 000670 jmp 51756 ; w.8. ; 051066: 010446 mov r4,-(sp) ; &. 051070: 004767 157562 call rx33$media ; w.r_ 051074: 005726 tst (sp)+ ; V. 051076: 005067 027130 clr 100232 ; 7.X. 051102: 010446 mov r4,-(sp) ; &. 051104: 004767 170512 call select ; w.Jq 051110: 005726 tst (sp)+ ; V. 051112: 010446 mov r4,-(sp) ; &. 051114: 004767 165244 call restore ; w.$j 051120: 005726 tst (sp)+ ; V. 051122: 005067 027074 clr 100222 ; 7.<. 051126: 052767 000001 027052 bis #1,100206 ; wU..*. 051134: 042767 000010 027044 bic #10,100206 ; wE..$. 051142: 112767 000107 066652 movb #107,w$cmd ; w.G.*m 051150: 116767 027032 066642 movb 100206,w$dat ; w..."m 051156: 016746 027050 mov 100232,-(sp) ; f.(. 051162: 004767 141454 call put$udc ; w.,C 051166: 005726 tst (sp)+ ; V. 051170: 012746 000764 mov #764,-(sp) ; f.t. 051174: 004767 173460 call $sleep ; w.0w 051200: 005726 tst (sp)+ ; V. 051202: 005065 177666 clr 177666(r5) ; 5.6. 051206: 005067 027026 clr 100240 ; 7... 051212: 112767 000111 066602 movb #111,w$cmd ; w.I..m 051220: 136727 066564 000100 bitb r$dat,#100 ; W=tm@. 051226: 001012 bne 51254 ; .. 051230: 026727 027004 003720 cmp 100240,#3720 ; W-..P. 051236: 002405 blt 51252 ; .. 051240: 012765 000043 177666 mov #43,177666(r5) ; u.#.6. 051246: 000167 000460 jmp 51732 ; w.0. ; 051252: 000757 br 51212 ; o. ; 051254: 005065 177674 clr 177674(r5) ; 5.<. 051260: 000167 000432 jmp 51716 ; w... ; 051264: 005065 177672 clr 177672(r5) ; 5.:. 051270: 000167 000370 jmp 51664 ; w.x. ; 051274: 005065 177670 clr 177670(r5) ; 5.8. 051300: 000444 br 51412 ; $. ; 051302: 016500 177670 mov 177670(r5),r0 ; @.8. 051306: 006300 asl r0 ; @. 051310: 006300 asl r0 ; @. 051312: 060500 add r5,r0 ; @a 051314: 116560 177674 177676 movb 177674(r5),177676(r0) ; p.<.>. 051322: 016500 177670 mov 177670(r5),r0 ; @.8. 051326: 006300 asl r0 ; @. 051330: 006300 asl r0 ; @. 051332: 060500 add r5,r0 ; @a 051334: 116560 177672 177677 movb 177672(r5),177677(r0) ; p.:.?. 051342: 016503 177670 mov 177670(r5),r3 ; C.8. 051346: 005203 inc r3 ; .. 051350: 016500 177670 mov 177670(r5),r0 ; @.8. 051354: 006300 asl r0 ; @. 051356: 006300 asl r0 ; @. 051360: 060500 add r5,r0 ; @a 051362: 110360 177700 movb r3,177700(r0) ; p.@. 051366: 016500 177670 mov 177670(r5),r0 ; @.8. 051372: 006300 asl r0 ; @. 051374: 006300 asl r0 ; @. 051376: 060500 add r5,r0 ; @a 051400: 112760 000002 177701 movb #2,177701(r0) ; p...A. 051406: 005265 177670 inc 177670(r5) ; 5.8. 051412: 026564 177670 000110 cmp 177670(r5),110(r4) ; t-8.H. 051420: 002730 blt 51302 ; X. 051422: 010500 mov r5,r0 ; @. 051424: 062700 177676 add #177676,r0 ; @e>. 051430: 010065 177670 mov r0,177670(r5) ; 5.8. 051434: 112767 000100 066360 movb #100,w$cmd ; w.@.pl 051442: 116567 177670 066350 movb 177670(r5),w$dat ; w.8.hl 051450: 116567 177671 066342 movb 177671(r5),w$dat ; w.9.bl 051456: 105067 066336 clrb w$dat ; 7.^l 051462: 016746 026544 mov 100232,-(sp) ; f.d- 051466: 004767 141150 call put$udc ; w.hB 051472: 005726 tst (sp)+ ; V. 051474: 112767 000100 066320 movb #100,w$cmd ; w.@.Pl 051502: 112767 177660 066310 movb #177660,w$dat ; w.0.Hl 051510: 112767 177716 066302 movb #177716,w$dat ; w.N.Bl 051516: 112767 177752 066274 movb #177752,w$dat ; w.j.( 053002: 162706 000004 sub #4,sp ; Fe.. 053006: 016504 000004 mov 4(r5),r4 ; D... 053012: 016465 000012 177770 mov 12(r4),177770(r5) ; 5...x. 053020: 016465 000020 177766 mov 20(r4),177766(r5) ; 5...v. 053026: 105064 000017 clrb 17(r4) ; 4... 053032: 016546 177770 mov 177770(r5),-(sp) ; f.x. 053036: 004767 170260 call get.ucb ; w.0p 053042: 005726 tst (sp)+ ; V. 053044: 010002 mov r0,r2 ; .. 053046: 001005 bne 53062 ; .. 053050: 012764 000003 000020 mov #3,20(r4) ; t..... 053056: 000167 000616 jmp 53700 ; w... ; 053062: 010246 mov r2,-(sp) ; &. 053064: 062716 000126 add #126,(sp) ; NeV. 053070: 004767 171144 call $acquire ; w.dr 053074: 005726 tst (sp)+ ; V. 053076: 036227 000030 000100 bit 30(r2),#100 ; .<..@. 053104: 001405 beq 53120 ; .. 053106: 012764 000305 000020 mov #305,20(r4) ; t.E... 053114: 000167 000440 jmp 53560 ; w. . ; 053120: 036227 000030 000002 bit 30(r2),#2 ; .<.... 053126: 001405 beq 53142 ; .. 053130: 012764 000043 000020 mov #43,20(r4) ; t.#... 053136: 000167 000416 jmp 53560 ; w... ; 053142: 005762 000136 tst 136(r2) ; r.^. 053146: 001003 bne 53156 ; .. 053150: 005762 000004 tst 4(r2) ; r... 053154: 001417 beq 53214 ; .. 053156: 010446 mov r4,-(sp) ; &. 053160: 010246 mov r2,-(sp) ; &. 053162: 062716 000002 add #2,(sp) ; Ne.. 053166: 004767 170446 call $enq.tail ; w.&q 053172: 022626 cmp (sp)+,(sp)+ ; .% 053174: 010246 mov r2,-(sp) ; &. 053176: 062716 000126 add #126,(sp) ; NeV. 053202: 004767 171126 call $release ; w.Vr 053206: 005726 tst (sp)+ ; V. 053210: 000167 000526 jmp 53742 ; w.V. ; 053214: 036227 000030 000001 bit 30(r2),#1 ; .<.... 053222: 001405 beq 53236 ; .. 053224: 012764 000400 000020 mov #400,20(r4) ; t..... 053232: 000167 000322 jmp 53560 ; w.R. ; 053236: 012746 100052 mov #100052,-(sp) ; f.*. 053242: 004767 170456 call $deqf.head ; w..q 053246: 005726 tst (sp)+ ; V. 053250: 010003 mov r0,r3 ; .. 053252: 010263 000002 mov r2,2(r3) ; 3... 053256: 010463 000004 mov r4,4(r3) ; 3... 053262: 012746 100044 mov #mem,-(sp) ; f.$. 053266: 004767 170746 call $acquire ; w.fq 053272: 005726 tst (sp)+ ; V. 053274: 036227 000030 000004 bit 30(r2),#4 ; .<.... 053302: 001425 beq 53356 ; .. 053304: 036527 177766 000002 bit 177766(r5),#2 ; W=v... 053312: 001021 bne 53356 ; .. 053314: 005046 clr -(sp) ; &. 053316: 012746 177777 mov #177777,-(sp) ; f... 053322: 012746 177777 mov #177777,-(sp) ; f... 053326: 010346 mov r3,-(sp) ; f. 053330: 004767 145026 call put$rbn ; w..J 053334: 062706 000010 add #10,sp ; Fe.. 053340: 010065 177764 mov r0,177764(r5) ; 5.t. 053344: 001404 beq 53356 ; .. 053346: 016564 177764 000020 mov 177764(r5),20(r4) ; t.t... 053354: 000466 br 53532 ; 6. ; 053356: 036227 000030 000010 bit 30(r2),#10 ; .<.... 053364: 001417 beq 53424 ; .. 053366: 010246 mov r2,-(sp) ; &. 053370: 004767 163120 call size.media ; w.Pf 053374: 005726 tst (sp)+ ; V. 053376: 010065 177764 mov r0,177764(r5) ; 5.t. 053402: 001410 beq 53424 ; .. 053404: 036527 177766 000002 bit 177766(r5),#2 ; W=v... 053412: 001004 bne 53424 ; .. 053414: 016564 177764 000020 mov 177764(r5),20(r4) ; t.t... 053422: 000443 br 53532 ; #. ; 053424: 005064 000020 clr 20(r4) ; 4... 053430: 042762 057577 000012 bic #57577,12(r2) ; rE._.. 053436: 016401 000024 mov 24(r4),r1 ; .... 053442: 042701 177774 bic #177774,r1 ; AE|. 053446: 050162 000012 bis r1,12(r2) ; rP.. 053452: 036527 177766 000004 bit 177766(r5),#4 ; W=v... 053460: 001412 beq 53506 ; .. 053462: 036427 000024 010000 bit 24(r4),#10000 ; .=.... 053470: 001406 beq 53506 ; .. 053472: 052762 010000 000012 bis #10000,12(r2) ; rU.... 053500: 056267 000040 024474 bis 40(r2),100202 ; 7\ .<) 053506: 052762 000001 000030 bis #1,30(r2) ; rU.... 053514: 036527 177766 000002 bit 177766(r5),#2 ; W=v... 053522: 001403 beq 53532 ; .. 053524: 052762 000020 000030 bis #20,30(r2) ; rU.... 053532: 012746 100044 mov #mem,-(sp) ; f.$. 053536: 004767 170572 call $release ; w.zq 053542: 005726 tst (sp)+ ; V. 053544: 010346 mov r3,-(sp) ; f. 053546: 012746 100052 mov #100052,-(sp) ; f.*. 053552: 004767 170032 call $enq.head ; w..p 053556: 022626 cmp (sp)+,(sp)+ ; .% 053560: 016564 177770 000022 mov 177770(r5),22(r4) ; t.x... 053566: 016264 000012 000024 mov 12(r2),24(r4) ; 4..... 053574: 016564 177770 000032 mov 177770(r5),32(r4) ; t.x... 053602: 005064 000034 clr 34(r4) ; 4... 053606: 005064 000036 clr 36(r4) ; 4... 053612: 016264 000140 000040 mov 140(r2),40(r4) ; 4.`. . 053620: 016264 000016 000042 mov 16(r2),42(r4) ; 4...". 053626: 016264 000014 000044 mov 14(r2),44(r4) ; 4...$. 053634: 016264 000010 000052 mov 10(r2),52(r4) ; 4...*. 053642: 016264 000006 000054 mov 6(r2),54(r4) ; 4...,. 053650: 016264 000022 000056 mov 22(r2),56(r4) ; 4..... 053656: 016264 000020 000060 mov 20(r2),60(r4) ; 4...0. 053664: 010246 mov r2,-(sp) ; &. 053666: 062716 000126 add #126,(sp) ; NeV. 053672: 004767 170436 call $release ; w..q 053676: 005726 tst (sp)+ ; V. 053700: 016564 177770 000046 mov 177770(r5),46(r4) ; t.x.&. 053706: 005064 000050 clr 50(r4) ; 4.(. 053712: 152764 000200 000016 bisb #200,16(r4) ; tU.... 053720: 012764 000054 000002 mov #54,2(r4) ; t.,... 053726: 105064 000004 clrb 4(r4) ; 4... 053732: 010446 mov r4,-(sp) ; &. 053734: 004767 157556 call put.packet ; w.n_ 053740: 005726 tst (sp)+ ; V. 053742: 000167 023146 jmp cret$ ; w.f& ;-------------------------------------------------------- ; ; doplf.c ; ; ; do$plf( ptk ) do.plf:: 053746: 004567 023126 jsr r5,csv$ ; w.V& 053752: 012746 100050 mov #100050,-(sp) ; f.(. 053756: 004767 167742 call $deqf.head ; w.bo 053762: 005726 tst (sp)+ ; V. 053764: 010004 mov r0,r4 ; .. 053766: 005064 000006 clr 6(r4) ; 4... 053772: 005064 000010 clr 10(r4) ; 4... 053776: 005064 000012 clr 12(r4) ; 4... 054002: 005064 000014 clr 14(r4) ; 4... 054006: 105064 000016 clrb 16(r4) ; 4... 054012: 112764 000001 000017 movb #1,17(r4) ; t..... 054020: 012764 000012 000020 mov #12,20(r4) ; t..... 054026: 005064 000022 clr 22(r4) ; 4... 054032: 005064 000024 clr 24(r4) ; 4... 054036: 005064 000026 clr 26(r4) ; 4... 054042: 016764 026606 000030 mov 102654,30(r4) ; t..-.. 054050: 112764 000004 000032 movb #4,32(r4) ; t..... 054056: 112764 000001 000033 movb #1,33(r4) ; t..... 054064: 016564 000004 000034 mov 4(r5),34(r4) ; t..... 054072: 012764 000030 000002 mov #30,2(r4) ; t..... 054100: 112764 000020 000004 movb #20,4(r4) ; t..... 054106: 112764 000377 000005 movb #377,5(r4) ; t..... 054114: 005267 024110 inc 100230 ; 7.H( 054120: 010446 mov r4,-(sp) ; &. 054122: 004767 157370 call put.packet ; w.x^ 054126: 005726 tst (sp)+ ; V. 054130: 000167 022760 jmp cret$ ; w.p% ;-------------------------------------------------------- ; ; dorcv.c ; ; ; do$rcv( ptk ) do$rcv:: 054134: 004567 022740 jsr r5,csv$ ; w.`% 054140: 162706 000006 sub #6,sp ; Fe.. 054144: 016504 000004 mov 4(r5),r4 ; D... 054150: 036727 026474 000004 bit 102650,#4 ; W=<-.. 054156: 001542 beq 54464 ; b. 054160: 005767 026474 tst 102660 ; w.<- 054164: 001007 bne 54204 ; .. 054166: 010446 mov r4,-(sp) ; &. 054170: 012746 102674 mov #102674,-(sp) ; f.<. 054174: 004767 167440 call $enq.tail ; w. o 054200: 022626 cmp (sp)+,(sp)+ ; .% 054202: 000547 br 54522 ; g. ; 054204: 016465 000022 177770 mov 22(r4),177770(r5) ; 5...x. 054212: 016465 000024 177766 mov 24(r4),177766(r5) ; 5...v. 054220: 016465 000026 177764 mov 26(r4),177764(r5) ; 5...t. 054226: 016465 000030 177762 mov 30(r4),177762(r5) ; 5...r. 054234: 012701 000002 mov #2,r1 ; A... 054240: 005000 clr r0 ; .. 054242: 166501 177770 sub 177770(r5),r1 ; Amx. 054246: 005600 sbc r0 ; .. 054250: 166500 177766 sub 177766(r5),r0 ; @mv. 054254: 162701 000001 sub #1,r1 ; Ae.. 054260: 005600 sbc r0 ; .. 054262: 002404 blt 54274 ; .. 054264: 012764 006001 000020 mov #6001,20(r4) ; t..... 054272: 000473 br 54462 ; ;. ; 054274: 036727 026370 000010 bit 102670,#10 ; W=x,.. 054302: 001004 bne 54314 ; .. 054304: 012764 004001 000020 mov #4001,20(r4) ; t..... 054312: 000463 br 54462 ; 3. ; 054314: 016701 026336 mov 102656,r1 ; A.^, 054320: 006700 sxt r0 ; @. 054322: 166501 177770 sub 177770(r5),r1 ; Amx. 054326: 005600 sbc r0 ; .. 054330: 166500 177766 sub 177766(r5),r0 ; @mv. 054334: 162701 000001 sub #1,r1 ; Ae.. 054340: 005600 sbc r0 ; .. 054342: 002403 blt 54352 ; .. 054344: 016567 177770 026304 mov 177770(r5),102656 ; w.x.D, 054352: 012746 100042 mov #dma,-(sp) ; f.". 054356: 004767 167656 call $acquire ; w..o 054362: 005726 tst (sp)+ ; V. 054364: 010467 033774 mov r4,110364 ; 7.|7 054370: 016746 026262 mov 102656,-(sp) ; f.2, 054374: 016746 026260 mov 102660,-(sp) ; f.0, 054400: 016546 177764 mov 177764(r5),-(sp) ; f.t. 054404: 016546 177762 mov 177762(r5),-(sp) ; f.r. 054410: 004767 160204 call put.buffer ; w..` 054414: 062706 000010 add #10,sp ; Fe.. 054420: 012746 100042 mov #dma,-(sp) ; f.". 054424: 004767 167704 call $release ; w.Do 054430: 005726 tst (sp)+ ; V. 054432: 042767 000010 026230 bic #10,102670 ; wE..., 054440: 005067 026214 clr 102660 ; 7.., 054444: 016764 026206 000022 mov 102656,22(r4) ; t..,.. 054452: 005064 000024 clr 24(r4) ; 4... 054456: 005064 000020 clr 20(r4) ; 4... 054462: 000403 br 54472 ; .. ; 054464: 012764 000001 000020 mov #1,20(r4) ; t..... 054472: 152764 000200 000016 bisb #200,16(r4) ; tU.... 054500: 012764 000020 000002 mov #20,2(r4) ; t..... 054506: 105064 000004 clrb 4(r4) ; 4... 054512: 010446 mov r4,-(sp) ; &. 054514: 004767 156776 call put.packet ; w.~] 054520: 005726 tst (sp)+ ; V. 054522: 000167 022366 jmp cret$ ; w.v$ ;-------------------------------------------------------- ; ; dorw.c ; ; ; do$rw( ptk ) do$rw:: 054526: 004567 022346 jsr r5,csv$ ; w.f$ 054532: 016504 000004 mov 4(r5),r4 ; D... 054536: 105064 000017 clrb 17(r4) ; 4... 054542: 016446 000012 mov 12(r4),-(sp) ; &... 054546: 004767 166550 call get.ucb ; w.hm 054552: 005726 tst (sp)+ ; V. 054554: 010002 mov r0,r2 ; .. 054556: 001005 bne 54572 ; .. 054560: 012764 000003 000020 mov #3,20(r4) ; t..... 054566: 000167 000526 jmp 55320 ; w.V. ; 054572: 010246 mov r2,-(sp) ; &. 054574: 062716 000126 add #126,(sp) ; NeV. 054600: 004767 167434 call $acquire ; w..o 054604: 005726 tst (sp)+ ; V. 054606: 005762 000002 tst 2(r2) ; r... 054612: 001417 beq 54652 ; .. 054614: 010446 mov r4,-(sp) ; &. 054616: 010246 mov r2,-(sp) ; &. 054620: 062716 000002 add #2,(sp) ; Ne.. 054624: 004767 167010 call $enq.tail ; w..n 054630: 022626 cmp (sp)+,(sp)+ ; .% 054632: 010246 mov r2,-(sp) ; &. 054634: 062716 000126 add #126,(sp) ; NeV. 054640: 004767 167470 call $release ; w.8o 054644: 005726 tst (sp)+ ; V. 054646: 000167 000506 jmp 55360 ; w.F. ; ; 054652: 012746 100052 mov #100052,-(sp) ; f.*. 054656: 004767 167042 call $deqf.head ; w."n 054662: 005726 tst (sp)+ ; V. 054664: 010003 mov r0,r3 ; .. 054666: 010263 000002 mov r2,2(r3) ; 3... 054672: 016463 000020 000026 mov 20(r4),26(r3) ; 3..... 054700: 116400 000016 movb 16(r4),r0 ; .... 054704: 000510 br 55126 ; H. ; ; setrwcmd:: 054706: 012765 055614 177770 mov #$do$rw,177770(r5) ; u..[x. 054714: 012763 004374 000022 mov #rd$cmd,22(r3) ; s.|... 054722: 012763 000011 000024 mov #11,24(r3) ; s..... 054730: 036427 000020 040000 bit 20(r4),#40000 ; .=...@ 054736: 001004 bne 54750 ; .. 054740: 036227 000012 000001 bit 12(r2),#1 ; .<.... 054746: 001403 beq 54756 ; .. 054750: 052763 000100 000024 bis #100,24(r3) ; sU@... 054756: 000472 br 55144 ; :. ; 054760: 012765 056310 177770 mov #ok$wr,177770(r5) ; u.H\x. 054766: 012763 005014 000022 mov #wr$cmd,22(r3) ; s..... 054774: 012763 000022 000024 mov #22,24(r3) ; s..... 055002: 036427 000020 040000 bit 20(r4),#40000 ; .=...@ 055010: 001004 bne 55022 ; .. 055012: 036227 000012 000002 bit 12(r2),#2 ; .<.... 055020: 001403 beq 55030 ; .. 055022: 052763 000200 000024 bis #200,24(r3) ; sU.... 055030: 000445 br 55144 ; %. ; ; setrdcmd:: 055032: 012765 055614 177770 mov #$do$rw,177770(r5) ; u..[x. 055040: 012763 004374 000022 mov #rd$cmd,22(r3) ; s.|... 055046: 012763 000001 000024 mov #1,24(r3) ; s..... 055054: 000433 br 55144 ; .. ; setwrcmd:: 055056: 012765 056310 177770 mov #ok$wr,177770(r5) ; u.H\x. 055064: 012763 005014 000022 mov #wr$cmd,22(r3) ; s..... 055072: 012763 000002 000024 mov #2,24(r3) ; s..... 055100: 000421 br 55144 ; .. ; setcmdcmd:: 055102: 012765 055614 177770 mov #$do$rw,177770(r5) ; u..[x. 055110: 012763 005254 000022 mov #cmd$cmd,22(r3) ; s.,... 055116: 012763 000004 000024 mov #4,24(r3) ; s..... 055124: 000407 br 55144 ; .. ; ; ; 055126: 012701 077320 mov #rwoptbl,r1 ; A.P~ 055132: 020021 cmp r0,(r1)+ ; . 055134: 101376 bhi 55132 ; ~. 055136: 001361 bne 55102 ; q. 055140: 000171 000010 jmp @10(r1) ; y... ; ; ; 055144: 016463 000022 000014 mov 22(r4),14(r3) ; 3..... 055152: 016463 000024 000012 mov 24(r4),12(r3) ; 3..... 055160: 016463 000042 000010 mov 42(r4),10(r3) ; 3."... 055166: 016463 000044 000006 mov 44(r4),6(r3) ; 3.$... 055174: 016463 000026 000020 mov 26(r4),20(r3) ; 3..... 055202: 016463 000030 000016 mov 30(r4),16(r3) ; 3..... 055210: 010463 000004 mov r4,4(r3) ; 3... 055214: 010346 mov r3,-(sp) ; f. 055216: 004775 177770 call @177770(r5) ; }.x. 055222: 005726 tst (sp)+ ; V. 055224: 010064 000020 mov r0,20(r4) ; 4... 055230: 001017 bne 55270 ; .. 055232: 010346 mov r3,-(sp) ; f. 055234: 004767 134030 call insert$tcb ; w..8 055240: 005726 tst (sp)+ ; V. 055242: 010246 mov r2,-(sp) ; &. 055244: 062716 000126 add #126,(sp) ; NeV. 055250: 004767 167060 call $release ; w.0n 055254: 005726 tst (sp)+ ; V. 055256: 010246 mov r2,-(sp) ; &. 055260: 004767 167214 call $unblock ; w..n 055264: 005726 tst (sp)+ ; V. 055266: 000434 br 55360 ; .. ; 055270: 010346 mov r3,-(sp) ; f. 055272: 012746 100052 mov #100052,-(sp) ; f.*. 055276: 004767 166306 call $enq.head ; w.Fl 055302: 022626 cmp (sp)+,(sp)+ ; .% 055304: 010246 mov r2,-(sp) ; &. 055306: 062716 000126 add #126,(sp) ; NeV. 055312: 004767 167016 call $release ; w..n 055316: 005726 tst (sp)+ ; V. 055320: 005064 000022 clr 22(r4) ; 4... 055324: 005064 000024 clr 24(r4) ; 4... 055330: 152764 000200 000016 bisb #200,16(r4) ; tU.... 055336: 012764 000040 000002 mov #40,2(r4) ; t. ... 055344: 105064 000004 clrb 4(r4) ; 4... 055350: 010446 mov r4,-(sp) ; &. 055352: 004767 156140 call put.packet ; w.`\ 055356: 005726 tst (sp)+ ; V. 055360: 000167 021530 jmp cret$ ; w.X# ; ; $do$rw( tcb ) $do$rw:: 055364: 004567 021510 jsr r5,csv$ ; w.H# 055370: 016504 000004 mov 4(r5),r4 ; D... 055374: 016403 000004 mov 4(r4),r3 ; .... 055400: 010446 mov r4,-(sp) ; &. 055402: 004774 000022 call @22(r4) ; |... 055406: 005726 tst (sp)+ ; V. 055410: 010063 000020 mov r0,20(r3) ; 3... 055414: 001406 beq 55432 ; .. 055416: 010346 mov r3,-(sp) ; f. 055420: 010446 mov r4,-(sp) ; &. 055422: 004767 001002 call fix$count ; w... 055426: 022626 cmp (sp)+,(sp)+ ; .% 055430: 000445 br 55544 ; %. ; 055432: 036427 000024 000300 bit 24(r4),#300 ; .=..@. 055440: 001441 beq 55544 ; !. 055442: 042764 000030 000024 bic #30,24(r4) ; tE.... 055450: 016364 000022 000014 mov 22(r3),14(r4) ; t..... 055456: 016364 000024 000012 mov 24(r3),12(r4) ; t..... 055464: 016364 000042 000010 mov 42(r3),10(r4) ; t."... 055472: 016364 000044 000006 mov 44(r3),6(r4) ; t.$... 055500: 016364 000026 000020 mov 26(r3),20(r4) ; t..... 055506: 016364 000030 000016 mov 30(r3),16(r4) ; t..... 055514: 010446 mov r4,-(sp) ; &. 055516: 004767 127532 call cmd$cmd ; w.Z/ 055522: 005726 tst (sp)+ ; V. 055524: 010063 000020 mov r0,20(r3) ; 3... 055530: 001405 beq 55544 ; .. 055532: 010346 mov r3,-(sp) ; f. 055534: 010446 mov r4,-(sp) ; &. 055536: 004767 000666 call fix$count ; w.6. 055542: 022626 cmp (sp)+,(sp)+ ; .% 055544: 010446 mov r4,-(sp) ; &. 055546: 012746 100052 mov #100052,-(sp) ; f.*. 055552: 004767 166032 call $enq.head ; w..l 055556: 022626 cmp (sp)+,(sp)+ ; .% 055560: 152763 000200 000016 bisb #200,16(r3) ; sU.... 055566: 012763 000040 000002 mov #40,2(r3) ; s. ... 055574: 105063 000004 clrb 4(r3) ; 3... 055600: 010346 mov r3,-(sp) ; f. 055602: 004767 155710 call put.packet ; w.H[ 055606: 005726 tst (sp)+ ; V. 055610: 000167 021300 jmp cret$ ; w.@" ; ; ok$rd( tcb ) ok$rd:: 055614: 004567 021260 jsr r5,csv$ ; w.0" 055620: 016504 000004 mov 4(r5),r4 ; D... 055624: 016403 000002 mov 2(r4),r3 ; .... 055630: 036327 000030 000002 bit 30(r3),#2 ; W<.... 055636: 001404 beq 55650 ; .. 055640: 012700 000043 mov #43,r0 ; @.#. 055644: 000167 000434 jmp 56304 ; w... ; 055650: 036327 000030 000001 bit 30(r3),#1 ; W<.... 055656: 001004 bne 55670 ; .. 055660: 012700 000004 mov #4,r0 ; @... 055664: 000167 000414 jmp 56304 ; w... ; 055670: 036327 000030 000100 bit 30(r3),#100 ; W<..@. 055676: 001404 beq 55710 ; .. 055700: 012700 000005 mov #5,r0 ; @... 055704: 000167 000374 jmp 56304 ; w.|. ; 055710: 036427 000024 000034 bit 24(r4),#34 ; .=.... 055716: 001410 beq 55740 ; .. 055720: 036427 000020 000001 bit 20(r4),#1 ; .=.... 055726: 001404 beq 55740 ; .. 055730: 012700 000051 mov #51,r0 ; @.). 055734: 000167 000344 jmp 56304 ; w.d. ; 055740: 036427 000012 170000 bit 12(r4),#170000 ; .=...p 055746: 001404 beq 55760 ; .. 055750: 012700 006001 mov #6001,r0 ; @... 055754: 000167 000324 jmp 56304 ; w.T. ; 055760: 036427 000006 170000 bit 6(r4),#170000 ; .=...p 055766: 001404 beq 56000 ; .. 055770: 012700 016001 mov #16001,r0 ; @... 055774: 000167 000304 jmp 56304 ; w.D. ; 056000: 036427 000020 000001 bit 20(r4),#1 ; .=.... 056006: 001403 beq 56016 ; .. 056010: 012700 000051 mov #51,r0 ; @.). 056014: 000533 br 56304 ; [. ; 056016: 036427 000014 000001 bit 14(r4),#1 ; .=.... 056024: 001403 beq 56034 ; .. 056026: 012700 000111 mov #111,r0 ; @.I. 056032: 000524 br 56304 ; T. ; 056034: 026463 000006 000006 cmp 6(r4),6(r3) ; 3-.... 056042: 003005 bgt 56056 ; .. 056044: 002447 blt 56164 ; '. 056046: 026463 000010 000010 cmp 10(r4),10(r3) ; 3-.... 056054: 103443 bcs 56164 ; #. 056056: 052764 000040 000024 bis #40,24(r4) ; tU ... 056064: 016301 000024 mov 24(r3),r1 ; A... 056070: 006700 sxt r0 ; @. 056072: 066301 000010 add 10(r3),r1 ; Al.. 056076: 005500 adc r0 ; @. 056100: 066300 000006 add 6(r3),r0 ; @l.. 056104: 166401 000010 sub 10(r4),r1 ; .m.. 056110: 005600 sbc r0 ; .. 056112: 166400 000006 sub 6(r4),r0 ; .m.. 056116: 162701 000001 sub #1,r1 ; Ae.. 056122: 005600 sbc r0 ; .. 056124: 002003 bge 56134 ; .. 056126: 012700 016001 mov #16001,r0 ; @... 056132: 000464 br 56304 ; 4. ; 056134: 026427 000014 001000 cmp 14(r4),#1000 ; .-.... 056142: 001003 bne 56152 ; .. 056144: 005764 000012 tst 12(r4) ; t... 056150: 001403 beq 56160 ; .. 056152: 012700 006001 mov #6001,r0 ; @... 056156: 000452 br 56304 ; *. ; 056160: 005000 clr r0 ; .. 056162: 000450 br 56304 ; (. ; 056164: 026427 000014 001000 cmp 14(r4),#1000 ; .-.... 056172: 001003 bne 56202 ; .. 056174: 005764 000012 tst 12(r4) ; t... 056200: 001440 beq 56302 ; . 056202: 012701 000777 mov #777,r1 ; A... 056206: 005000 clr r0 ; .. 056210: 066401 000014 add 14(r4),r1 ; .m.. 056214: 005500 adc r0 ; @. 056216: 066400 000012 add 12(r4),r0 ; .m.. 056222: 105001 clrb r1 ; .. 056224: 150001 bisb r0,r1 ; .P 056226: 000301 swab r1 ; A. 056230: 105000 clrb r0 ; .. 056232: 000300 swab r0 ; @. 056234: 006200 asr r0 ; .. 056236: 006001 ror r1 ; .. 056240: 066401 000010 add 10(r4),r1 ; .m.. 056244: 005500 adc r0 ; @. 056246: 066400 000006 add 6(r4),r0 ; .m.. 056252: 166301 000010 sub 10(r3),r1 ; Al.. 056256: 005600 sbc r0 ; .. 056260: 166300 000006 sub 6(r3),r0 ; @l.. 056264: 162701 000001 sub #1,r1 ; Ae.. 056270: 005600 sbc r0 ; .. 056272: 002403 blt 56302 ; .. 056274: 012700 006001 mov #6001,r0 ; @... 056300: 000401 br 56304 ; .. ; 056302: 005000 clr r0 ; .. 056304: 000167 020604 jmp cret$ ; w..! ; ; ok$wr( tcb ) ok$wr:: 056310: 004567 020564 jsr r5,csv$ ; w.t! 056314: 016504 000004 mov 4(r5),r4 ; D... 056320: 016403 000002 mov 2(r4),r3 ; .... 056324: 010446 mov r4,-(sp) ; &. 056326: 004767 177262 call $do$rw ; w.2~ 056332: 005726 tst (sp)+ ; V. 056334: 010065 177770 mov r0,177770(r5) ; 5.x. 056340: 001403 beq 56350 ; .. 056342: 016500 177770 mov 177770(r5),r0 ; @.x. 056346: 000426 br 56424 ; .. ; 056350: 036427 000024 000040 bit 24(r4),#40 ; .=.. . 056356: 001403 beq 56366 ; .. 056360: 012700 016001 mov #16001,r0 ; @... 056364: 000417 br 56424 ; .. ; 056366: 036327 000012 010000 bit 12(r3),#10000 ; W<.... 056374: 001403 beq 56404 ; .. 056376: 012700 010006 mov #10006,r0 ; @... 056402: 000410 br 56424 ; .. ; 056404: 036327 000012 020000 bit 12(r3),#20000 ; W<... 056412: 001403 beq 56422 ; .. 056414: 012700 020006 mov #20006,r0 ; @.. 056420: 000401 br 56424 ; .. ; 056422: 005000 clr r0 ; .. 056424: 000167 020464 jmp cret$ ; w.4! ; ; fix$count( tcb, pkt ) fix$count:: 056430: 004567 020444 jsr r5,csv$ ; w.$! 056434: 005746 tst -(sp) ; f. 056436: 016504 000004 mov 4(r5),r4 ; D... 056442: 016503 000006 mov 6(r5),r3 ; C... 056446: 016365 000022 177770 mov 22(r3),177770(r5) ; u...x. 056454: 016365 000024 177766 mov 24(r3),177766(r5) ; u...v. 056462: 166465 000014 177770 sub 14(r4),177770(r5) ; 5m..x. 056470: 005665 177766 sbc 177766(r5) ; 5.v. 056474: 166465 000012 177766 sub 12(r4),177766(r5) ; 5m..v. 056502: 016563 177770 000022 mov 177770(r5),22(r3) ; s.x... 056510: 016563 177766 000024 mov 177766(r5),24(r3) ; s.v... 056516: 000167 020372 jmp cret$ ; w.z ;-------------------------------------------------------- ; ; doscc.c ; ; ; do$scc( ptk ) do$scc:: 056522: 004567 020352 jsr r5,csv$ ; w.j 056526: 016504 000004 mov 4(r5),r4 ; D... 056532: 105064 000017 clrb 17(r4) ; 4... 056536: 005764 000022 tst 22(r4) ; t... 056542: 003406 ble 56560 ; .. 056544: 105064 000016 clrb 16(r4) ; 4... 056550: 012764 006001 000020 mov #6001,20(r4) ; t..... 056556: 000453 br 56706 ; +. ; 056560: 005064 000020 clr 20(r4) ; 4... 056564: 016467 000026 024060 mov 26(r4),102652 ; 7...0( 056572: 001403 beq 56602 ; .. 056574: 062767 000002 024050 add #2,102652 ; we..(( 056602: 042767 077777 024036 bic #77777,102646 ; wE...( 056610: 016403 000024 mov 24(r4),r3 ; .... 056614: 042703 177417 bic #177417,r3 ; CE.. 056620: 050367 024022 bis r3,102646 ; wP.( 056624: 016764 024016 000024 mov 102646,24(r4) ; t..(.. 056632: 012764 000170 000026 mov #170,26(r4) ; t.x... 056640: 112764 000004 000030 movb #4,30(r4) ; t..... 056646: 112764 000001 000031 movb #1,31(r4) ; t..... 056654: 005064 000032 clr 32(r4) ; 4... 056660: 005064 000034 clr 34(r4) ; 4... 056664: 005064 000036 clr 36(r4) ; 4... 056670: 016764 023760 000040 mov 102654,40(r4) ; t.p' . 056676: 005064 000042 clr 42(r4) ; 4.". 056702: 005064 000044 clr 44(r4) ; 4.$. 056706: 152764 000200 000016 bisb #200,16(r4) ; tU.... 056714: 012764 000040 000002 mov #40,2(r4) ; t. ... 056722: 105064 000004 clrb 4(r4) ; 4... 056726: 010446 mov r4,-(sp) ; &. 056730: 004767 154562 call put.packet ; w.rY 056734: 005726 tst (sp)+ ; V. 056736: 000167 020152 jmp cret$ ; w.j ;-------------------------------------------------------- ; ; dosnd.c ; ; ; do$snd( ptk ) do$snd:: 056742: 004567 020132 jsr r5,csv$ ; w.Z 056746: 162706 000006 sub #6,sp ; Fe.. 056752: 016504 000004 mov 4(r5),r4 ; D... 056756: 036727 023666 000004 bit 102650,#4 ; W=6'.. 056764: 001531 beq 57250 ; Y. 056766: 005767 023666 tst 102660 ; w.6' 056772: 001007 bne 57012 ; .. 056774: 010446 mov r4,-(sp) ; &. 056776: 012746 102674 mov #102674,-(sp) ; f.<. 057002: 004767 164632 call $enq.tail ; w..i 057006: 022626 cmp (sp)+,(sp)+ ; .% 057010: 000536 br 57306 ; ^. ; 057012: 016465 000022 177770 mov 22(r4),177770(r5) ; 5...x. 057020: 016465 000024 177766 mov 24(r4),177766(r5) ; 5...v. 057026: 016465 000026 177764 mov 26(r4),177764(r5) ; 5...t. 057034: 016465 000030 177762 mov 30(r4),177762(r5) ; 5...r. 057042: 005765 177766 tst 177766(r5) ; u.v. 057046: 002004 bge 57060 ; .. 057050: 012764 006001 000020 mov #6001,20(r4) ; t..... 057056: 000473 br 57246 ; ;. ; 057060: 036727 023604 000004 bit 102670,#4 ; W=.'.. 057066: 001004 bne 57100 ; .. 057070: 012764 004001 000020 mov #4001,20(r4) ; t..... 057076: 000463 br 57246 ; 3. ; 057100: 016701 023552 mov 102656,r1 ; A.j' 057104: 006700 sxt r0 ; @. 057106: 166501 177770 sub 177770(r5),r1 ; Amx. 057112: 005600 sbc r0 ; .. 057114: 166500 177766 sub 177766(r5),r0 ; @mv. 057120: 162701 000001 sub #1,r1 ; Ae.. 057124: 005600 sbc r0 ; .. 057126: 002403 blt 57136 ; .. 057130: 016567 177770 023520 mov 177770(r5),102656 ; w.x.P' 057136: 012746 100042 mov #dma,-(sp) ; f.". 057142: 004767 165072 call $acquire ; w.:j 057146: 005726 tst (sp)+ ; V. 057150: 010467 031210 mov r4,110364 ; 7..2 057154: 016746 023476 mov 102656,-(sp) ; f.>' 057160: 016746 023474 mov 102660,-(sp) ; f.<' 057164: 016546 177764 mov 177764(r5),-(sp) ; f.t. 057170: 016546 177762 mov 177762(r5),-(sp) ; f.r. 057174: 004767 155410 call get.buffer ; w..[ 057200: 062706 000010 add #10,sp ; Fe.. 057204: 012746 100042 mov #dma,-(sp) ; f.". 057210: 004767 165120 call $release ; w.Pj 057214: 005726 tst (sp)+ ; V. 057216: 042767 000004 023444 bic #4,102670 ; wE..$' 057224: 005067 023430 clr 102660 ; 7..' 057230: 016764 023422 000022 mov 102656,22(r4) ; t..'.. 057236: 005064 000024 clr 24(r4) ; 4... 057242: 005064 000020 clr 20(r4) ; 4... 057246: 000403 br 57256 ; .. ; 057250: 012764 000001 000020 mov #1,20(r4) ; t..... 057256: 152764 000200 000016 bisb #200,16(r4) ; tU.... 057264: 012764 000020 000002 mov #20,2(r4) ; t..... 057272: 105064 000004 clrb 4(r4) ; 4... 057276: 010446 mov r4,-(sp) ; &. 057300: 004767 154212 call put.packet ; w..X 057304: 005726 tst (sp)+ ; V. 057306: 000167 017602 jmp cret$ ; w... ;-------------------------------------------------------- ; ; File: dosuc.c ; ; Set Unit Characteristics ; ; do$suc( ptk ) do$suc:: 057312: 004567 017562 jsr r5,csv$ ; w.r. 057316: 016504 000004 mov 4(r5),r4 ; D... 057322: 016403 000012 mov 12(r4),r3 ; .... 057326: 016465 000020 177770 mov 20(r4),177770(r5) ; 5...x. 057334: 105064 000017 clrb 17(r4) ; 4... 057340: 010346 mov r3,-(sp) ; f. 057342: 004767 163754 call get.ucb ; w.lg 057346: 005726 tst (sp)+ ; V. 057350: 010002 mov r0,r2 ; .. 057352: 001005 bne 57366 ; .. 057354: 012764 000003 000020 mov #3,20(r4) ; t..... 057362: 000167 000342 jmp 57730 ; w.b. ; 057366: 010246 mov r2,-(sp) ; &. 057370: 062716 000126 add #126,(sp) ; NeV. 057374: 004767 164640 call $acquire ; w. i 057400: 005726 tst (sp)+ ; V. 057402: 036227 000030 000014 bit 30(r2),#14 ; .<.... 057410: 001004 bne 57422 ; .. 057412: 012764 000305 000020 mov #305,20(r4) ; t.E... 057420: 000475 br 57614 ; =. ; 057422: 036227 000030 000002 bit 30(r2),#2 ; .<.... 057430: 001404 beq 57442 ; .. 057432: 012764 000043 000020 mov #43,20(r4) ; t.#... 057440: 000465 br 57614 ; 5. ; 057442: 036227 000030 000001 bit 30(r2),#1 ; .<.... 057450: 001004 bne 57462 ; .. 057452: 012764 000004 000020 mov #4,20(r4) ; t..... 057460: 000455 br 57614 ; -. ; 057462: 005762 000136 tst 136(r2) ; r.^. 057466: 001003 bne 57476 ; .. 057470: 005762 000004 tst 4(r2) ; r... 057474: 001416 beq 57532 ; .. 057476: 010446 mov r4,-(sp) ; &. 057500: 010246 mov r2,-(sp) ; &. 057502: 062716 000002 add #2,(sp) ; Ne.. 057506: 004767 164126 call $enq.tail ; w.Vh 057512: 022626 cmp (sp)+,(sp)+ ; .% 057514: 010246 mov r2,-(sp) ; &. 057516: 062716 000126 add #126,(sp) ; NeV. 057522: 004767 164606 call $release ; w..i 057526: 005726 tst (sp)+ ; V. 057530: 000517 br 57770 ; O. ; 057532: 005064 000020 clr 20(r4) ; 4... 057536: 042762 057577 000012 bic #57577,12(r2) ; rE._.. 057544: 016401 000024 mov 24(r4),r1 ; .... 057550: 042701 177774 bic #177774,r1 ; AE|. 057554: 050162 000012 bis r1,12(r2) ; rP.. 057560: 036527 177770 000004 bit 177770(r5),#4 ; W=x... 057566: 001412 beq 57614 ; .. 057570: 036427 000024 010000 bit 24(r4),#10000 ; .=.... 057576: 001406 beq 57614 ; .. 057600: 052762 010000 000012 bis #10000,12(r2) ; rU.... 057606: 056267 000040 020366 bis 40(r2),100202 ; 7\ .v 057614: 010364 000022 mov r3,22(r4) ; t... 057620: 016264 000012 000024 mov 12(r2),24(r4) ; 4..... 057626: 010364 000032 mov r3,32(r4) ; t... 057632: 005064 000034 clr 34(r4) ; 4... 057636: 005064 000036 clr 36(r4) ; 4... 057642: 016264 000140 000040 mov 140(r2),40(r4) ; 4.`. . 057650: 016264 000016 000042 mov 16(r2),42(r4) ; 4...". 057656: 016264 000014 000044 mov 14(r2),44(r4) ; 4...$. 057664: 016264 000010 000052 mov 10(r2),52(r4) ; 4...*. 057672: 016264 000006 000054 mov 6(r2),54(r4) ; 4...,. 057700: 016264 000022 000056 mov 22(r2),56(r4) ; 4..... 057706: 016264 000020 000060 mov 20(r2),60(r4) ; 4...0. 057714: 010246 mov r2,-(sp) ; &. 057716: 062716 000126 add #126,(sp) ; NeV. 057722: 004767 164406 call $release ; w..i 057726: 005726 tst (sp)+ ; V. 057730: 010364 000046 mov r3,46(r4) ; t.&. 057734: 005064 000050 clr 50(r4) ; 4.(. 057740: 152764 000200 000016 bisb #200,16(r4) ; tU.... 057746: 012764 000054 000002 mov #54,2(r4) ; t.,... 057754: 105064 000004 clrb 4(r4) ; 4... 057760: 010446 mov r4,-(sp) ; &. 057762: 004767 153530 call put.packet ; w.XW 057766: 005726 tst (sp)+ ; V. 057770: 000167 017120 jmp cret$ ; w.P. ; ;-------------------------------------------------------- ; ; File: douna.c ; ; do$una( ucb ) do$una:: 057774: 004567 017100 jsr r5,csv$ ; w.@. 060000: 016504 000004 mov 4(r5),r4 ; D... 060004: 036727 022636 000200 bit 102646,#200 ; W=.%.. 060012: 001473 beq 60202 ; ;. 060014: 005003 clr r3 ; .. 060016: 000401 br 60022 ; .. ; 060020: 005203 inc r3 ; .. 060022: 010300 mov r3,r0 ; @. 060024: 006300 asl r0 ; @. 060026: 062700 100054 add #100054,r0 ; @e,. 060032: 021004 cmp (r0),r4 ; ." 060034: 001371 bne 60020 ; y. 060036: 066703 020210 add 100252,r3 ; Cm. 060042: 012746 100050 mov #100050,-(sp) ; f.(. 060046: 004767 163652 call $deqf.head ; w.*g 060052: 005726 tst (sp)+ ; V. 060054: 010002 mov r0,r2 ; .. 060056: 005062 000006 clr 6(r2) ; 2... 060062: 005062 000010 clr 10(r2) ; 2... 060066: 010362 000012 mov r3,12(r2) ; r... 060072: 112762 000100 000016 movb #100,16(r2) ; r.@... 060100: 010362 000022 mov r3,22(r2) ; r... 060104: 016462 000012 000024 mov 12(r4),24(r2) ; 2..... 060112: 010362 000032 mov r3,32(r2) ; r... 060116: 005062 000034 clr 34(r2) ; 2... 060122: 005062 000036 clr 36(r2) ; 2... 060126: 016462 000140 000040 mov 140(r4),40(r2) ; 2.`. . 060134: 016462 000016 000042 mov 16(r4),42(r2) ; 2...". 060142: 016462 000014 000044 mov 14(r4),44(r2) ; 2...$. 060150: 012762 000040 000002 mov #40,2(r2) ; r. ... 060156: 105062 000004 clrb 4(r2) ; 2... 060162: 105062 000005 clrb 5(r2) ; 2... 060166: 005267 020036 inc 100230 ; 7.. 060172: 010246 mov r2,-(sp) ; &. 060174: 004767 153316 call put.packet ; w.NV 060200: 005726 tst (sp)+ ; V. 060202: 000167 016706 jmp cret$ ; w.F. ;-------------------------------------------------------- ; ; File: tsmac.mac ; ; This section deos not match at all the source code available ; 060206: 060414 060462 .word 60414,60462 ; .a2a ; ; File: tsmac.mac ; t$power:: 060212: 106427 000340 mtps #340 ; ..`. 060216: 012706 140000 mov #140000,sp ; F..@ 060222: 012737 037477 160110 mov #37477,@#160110 ; _.??H` 060230: 012737 001500 160210 mov #1500,@#w$sard ; _.@..` 060236: 012737 005500 160210 mov #5500,@#w$sard ; _.@..` 060244: 022737 000001 160112 cmp #1,@#160112 ; _%..J` 060252: 001407 beq 60272 ; .. 060254: 012737 000401 160110 mov #401,@#160110 ; _...H` 060262: 022737 151515 100000 cmp #151515,@#100000 ; _%MS.. 060270: 001405 beq 60304 ; .. 060272: 000137 060334 jmp @#60334 ; _.\` ; 060276: 012737 151515 100000 mov #151515,@#100000 ; _.MS.. 060304: 012706 140000 mov #140000,sp ; F..@ 060310: 012737 005401 160110 mov #5401,@#160110 ; _...H` 060316: 004737 063514 call @#63514 ; _.Lg 060322: 012737 006001 160110 mov #6001,@#160110 ; _...H` 060330: 000137 000266 jmp @#m$main ; _.6. ; 060334: 012737 060212 100010 mov #60212,@#100010 ; _..`.. 060342: 012737 060212 100012 mov #60212,@#100012 ; _..`.. 060350: 012737 060212 100014 mov #60212,@#100014 ; _..`.. 060356: 012737 060212 100016 mov #60212,@#100016 ; _..`.. 060364: 106427 000200 mtps #200 ; .... 060370: 012704 060532 mov #60532,r4 ; D.Za 060374: 012705 001001 mov #1001,r5 ; E... 060400: 012706 060206 mov #60206,sp ; F..` 060404: 010537 160110 mov r5,@#160110 ; _.H` 060410: 000174 000000 jmp @0(r4) ; |... ; 060414: 005700 tst r0 ; @. 060416: 002421 blt 60462 ; .. 060420: 062705 000400 add #400,r5 ; Ee.. 060424: 062704 000004 add #4,r4 ; De.. 060430: 020427 060576 cmp r4,#60576 ; .!~a 060434: 002761 blt 60400 ; q. 060436: 106427 000340 mtps #340 ; ..`. 060442: 000137 060276 jmp @#60276 ; _.>` ; 060446: 012706 060210 mov #60210,sp ; F..` 060452: 010537 160110 mov r5,@#160110 ; _.H` 060456: 000174 000000 jmp @0(r4) ; |... ; 060462: 005700 tst r0 ; @. 060464: 002010 bge 60506 ; .. 060466: 010501 mov r5,r1 ; A. 060470: 000301 swab r1 ; A. 060472: 042701 177400 bic #177400,r1 ; AE.. 060476: 062701 000702 add #702,r1 ; AeB. 060502: 010137 160210 mov r1,@#w$sard ; _..` 060506: 005205 inc r5 ; .. 060510: 032705 000100 bit #100,r5 ; E5@. 060514: 001754 beq 60446 ; l. 060516: 042705 000377 bic #377,r5 ; EE.. 060522: 005205 inc r5 ; .. 060524: 000750 br 60446 ; h. ; 060526: 000000 .word 0 ; .. 060530: 000000 .word 0 ; .. ; 060532: 063220 .word 63220, 0 ; .f ; 060536: 061272 000006 .word 61272, 6 060542: 061272 000014 .word 61272, 14 060546: 061272 000022 .word 61272, 22 060552: 061272 000000 .word 61272, 0 060556: 061272 000044 .word 61272, 44 060562: 061114 000036 .word 61114, 36 060566: 061154 000030 .word 61154, 30 060572: 063266 000000 .word 63266, 0 060576: 000000 .word 0, 0 060602: 000000 .word 0, 0 ; 060606: 061330 002000 .word 61330, 2000 060612: 061330 002050 .word 61330, 2050 060616: 061330 002062 .word 61330, 2062 060622: 061330 002074 .word 61330, 2074 060626: 061522 002000 .word 61522, 2000 060632: 061574 002000 .word 61574, 2000 060636: 061662 000400 .word 61662, 400 060642: 063450 000000 .word 63450, 0 060646: 061764 000000 .word 61764, 0 t$port:: 060652: 004537 077100 jsr r5,@#csv$ ; _.@~ 060656: 012704 060606 mov #60606,r4 ; D..a 060662: 012746 000001 mov #1,-(sp) ; f... 060666: 112766 000015 000001 movb #15,1(sp) ; v..... 060674: 011637 160110 mov (sp),@#160110 ; ..H` 060700: 010546 mov r5,-(sp) ; f. 060702: 010446 mov r4,-(sp) ; &. 060704: 016546 000006 mov 6(r5),-(sp) ; f... 060710: 016546 000004 mov 4(r5),-(sp) ; f... 060714: 004774 000000 call @0(r4) ; |... 060720: 022626 cmp (sp)+,(sp)+ ; .% 060722: 012604 mov (sp)+,r4 ; .. 060724: 012605 mov (sp)+,r5 ; .. 060726: 005700 tst r0 ; @. 060730: 002011 bge 60754 ; .. 060732: 105266 000000 incb 0(sp) ; 6... 060736: 011637 160110 mov (sp),@#160110 ; ..H` 060742: 116600 000001 movb 1(sp),r0 ; .... 060746: 062700 000702 add #702,r0 ; @eB. 060752: 000413 br 61002 ; .. ; 060754: 105266 000001 incb 1(sp) ; 6... 060760: 112766 000001 000000 movb #1,0(sp) ; v..... 060766: 062704 000004 add #4,r4 ; De.. 060772: 020427 060652 cmp r4,#60652 ; .!*a 060776: 002736 blt 60674 ; ^. 061000: 005000 clr r0 ; .. 061002: 000137 077114 jmp @#cret$ ; _.L~ ; ; ; ; 061006: 160206 .word 160206 ; .` 061010: 160006 .word 160006 ; .` 061012: 167741 160200 .word 167741, 160200 ; ao.` 061016: 160000 .word 160000 ; .` 061020: 000001 .word 000001 ; .. 061022: 160202 .word 160202 ; .` 061024: 160002 .word 160002 ; .` 061026: 177700 .word 177700 ; @. 061030: 160214 .word 160214 ; .` 061032: 160014 .word 160014 ; .` 061034: 000000 .word 000000 ; .. ; 061036: 140000 .word 140000 ; .@ 061040: 140000 .word 140000 ; .@ 061042: 140001 .word 140001 ; .@ 061044: 140002 .word 140002 ; .@ 061046: 140002 .word 140002 ; .@ 061050: 177670 160204 .word 177670, 160204 ; 8..` 061054: 160004 .word 160004 ; .` 061056: 000000 .word 000000 ; .. ; 061060: 177777 140014 .word 177777, 140014 ; ...@ 061064: 177777 000000 .word 177777, 000000 ; .... 061070: 000000 .word 000000 ; .. 061072: 000000 .word 000000 ; .. 061074: 000000 .word 000000 ; .. ; 061076: 000377 000377 .word 377, 377 ; .... 061102: 177777 177777 .word 177777, 177777 ; .... 061106: 000377 177777 .word 377, 17777 ; .... 061112: 000377 016401 .word 377, 16401 ; .... 061116: 000002 rti ; .. ; 061120: 042701 177400 bic #177400,r1 ; AE.. 061124: 062701 061006 add #61006,r1 ; Ae.b 061130: 017101 000002 mov @2(r1),r1 ; A... 061134: 012700 000000 mov #0,r0 ; @... 061140: 032701 000010 bit #10,r1 ; A5.. 061144: 001402 beq 61152 ; .. 061146: 012700 177777 mov #177777,r0 ; @... 061152: 000207 return ; .. ; 061154: 016401 000002 mov 2(r4),r1 ; .... 061160: 042701 177400 bic #177400,r1 ; AE.. 061164: 062701 061006 add #61006,r1 ; Ae.b 061170: 005002 clr r2 ; .. 061172: 010203 mov r2,r3 ; .. 061174: 046103 000004 bic 4(r1),r3 ; CL.. 061200: 010371 000000 mov r3,@0(r1) ; y... 061204: 017100 000002 mov @2(r1),r0 ; @... 061210: 020300 cmp r3,r0 ; @ 061212: 001024 bne 61264 ; .. 061214: 005702 tst r2 ; B. 061216: 100403 bmi 61226 ; .. 061220: 006302 asl r2 ; B. 061222: 005202 inc r2 ; .. 061224: 000762 br 61172 ; r. ; 061226: 006002 ror r2 ; .. 061230: 010203 mov r2,r3 ; .. 061232: 046103 000004 bic 4(r1),r3 ; CL.. 061236: 010371 000000 mov r3,@0(r1) ; y... 061242: 017100 000002 mov @2(r1),r0 ; @... 061246: 020300 cmp r3,r0 ; @ 061250: 001005 bne 61264 ; .. 061252: 005702 tst r2 ; B. 061254: 001364 bne 61226 ; t. 061256: 012700 000000 mov #0,r0 ; @... 061262: 000402 br 61270 ; .. ; 061264: 012700 177777 mov #177777,r0 ; @... 061270: 000207 return ; .. ; 061272: 016401 000002 mov 2(r4),r1 ; .... 061276: 042701 177400 bic #177400,r1 ; AE.. 061302: 062701 061006 add #61006,r1 ; Ae.b 061306: 016101 000002 mov 2(r1),r1 ; A... 061312: 012700 000000 mov #0,r0 ; @... 061316: 020111 cmp r1,(r1) ; I 061320: 001002 bne 61326 ; .. 061322: 012700 177777 mov #177777,r0 ; @... 061326: 000207 return ; .. ; 061330: 016601 000004 mov 4(sp),r1 ; .... 061334: 016405 000002 mov 2(r4),r5 ; .... 061340: 042705 177400 bic #177400,r5 ; EE.. 061344: 060105 add r1,r5 ; E` 061346: 062705 000010 add #10,r5 ; Ee.. 061352: 004737 062042 call @#62042 ; _."d 061356: 016504 000010 mov 10(r5),r4 ; D... 061362: 016503 000004 mov 4(r5),r3 ; C... 061366: 005103 com r3 ; C. 061370: 040304 bic r3,r4 ; D@ 061372: 005002 clr r2 ; .. 061374: 010203 mov r2,r3 ; .. 061376: 046503 000004 bic 4(r5),r3 ; CM.. 061402: 050403 bis r4,r3 ; .Q 061404: 010375 000000 mov r3,@0(r5) ; }... 061410: 010365 000010 mov r3,10(r5) ; u... 061414: 046565 000006 000010 bic 6(r5),10(r5) ; uM.... 061422: 004737 062164 call @#62164 ; _.td 061426: 103431 bcs 61512 ; .. 061430: 005702 tst r2 ; B. 061432: 100403 bmi 61442 ; .. 061434: 006302 asl r2 ; B. 061436: 005202 inc r2 ; .. 061440: 000755 br 61374 ; m. ; 061442: 006002 ror r2 ; .. 061444: 010203 mov r2,r3 ; .. 061446: 046503 000004 bic 4(r5),r3 ; CM.. 061452: 050403 bis r4,r3 ; .Q 061454: 010375 000000 mov r3,@0(r5) ; }... 061460: 010365 000010 mov r3,10(r5) ; u... 061464: 046565 000006 000010 bic 6(r5),10(r5) ; uM.... 061472: 004737 062164 call @#62164 ; _.td 061476: 103405 bcs 61512 ; .. 061500: 005702 tst r2 ; B. 061502: 001357 bne 61442 ; o. 061504: 012700 000000 mov #0,r0 ; @... 061510: 000207 return ; .. ; 061512: 016561 000010 000000 mov 10(r5),0(r1) ; q..... 061520: 000207 return ; .. ; 061522: 016601 000004 mov 4(sp),r1 ; .... 061526: 004737 062266 call @#62266 ; _.6d 061532: 012704 000010 mov #10,r4 ; D... 061536: 012705 000011 mov #11,r5 ; E... 061542: 004737 062412 call @#62412 ; _..e 061546: 103411 bcs 61572 ; .. 061550: 012704 000367 mov #367,r4 ; D.w. 061554: 012705 177757 mov #177757,r5 ; E.o. 061560: 004737 062412 call @#62412 ; _..e 061564: 103402 bcs 61572 ; .. 061566: 012700 000000 mov #0,r0 ; @... 061572: 000207 return ; .. ; 061574: 016601 000004 mov 4(sp),r1 ; .... 061600: 004737 062042 call @#62042 ; _."d 061604: 004737 062266 call @#62266 ; _.6d 061610: 012703 000100 mov #100,r3 ; C.@. 061614: 005004 clr r4 ; .. 061616: 005005 clr r5 ; .. 061620: 004737 062516 call @#62516 ; _.Ne 061624: 103415 bcs 61660 ; .. 061626: 105704 tstb r4 ; D. 061630: 100403 bmi 61640 ; .. 061632: 006304 asl r4 ; D. 061634: 005204 inc r4 ; .. 061636: 000770 br 61620 ; x. ; 061640: 006004 ror r4 ; .. 061642: 004737 062516 call @#62516 ; _.Ne 061646: 103404 bcs 61660 ; .. 061650: 105704 tstb r4 ; D. 061652: 001372 bne 61640 ; z. 061654: 012700 000000 mov #0,r0 ; @... 061660: 000207 return ; .. ; 061662: 016601 000004 mov 4(sp),r1 ; .... 061666: 012737 000000 140022 mov #0,@#w$cmd ; _....@ 061674: 012737 000107 140022 mov #107,@#w$cmd ; _.G..@ 061702: 105037 140020 clrb @#w$dat ; ...@ 061706: 012737 000111 140022 mov #111,@#w$cmd ; _.I..@ 061714: 112737 000040 140020 movb #40,@#w$dat ; _. ..@ 061722: 005037 100234 clr @#100234 ; .... 061726: 004737 062734 call @#62734 ; _.\e 061732: 103413 bcs 61762 ; .. 061734: 005737 100234 tst @#100234 ; _... 061740: 001006 bne 61756 ; .. 061742: 013761 140012 000000 mov @#r$cmd,0(r1) ; q..@.. 061750: 012700 177766 mov #177766,r0 ; @.v. 061754: 000402 br 61762 ; .. ; 061756: 012700 000000 mov #0,r0 ; @... 061762: 000207 return ; .. ; 061764: 016601 000004 mov 4(sp),r1 ; .... 061770: 012737 000000 140022 mov #0,@#w$cmd ; _....@ 061776: 012737 000107 140022 mov #107,@#w$cmd ; _.G..@ 062004: 112737 000002 140020 movb #2,@#w$dat ; _....@ 062012: 012737 000111 140022 mov #111,@#w$cmd ; _.I..@ 062020: 112737 000010 140020 movb #10,@#w$dat ; _....@ 062026: 004737 062734 call @#62734 ; _.\e 062032: 103402 bcs 62040 ; .. 062034: 012700 000000 mov #0,r0 ; @... 062040: 000207 return ; .. ; 062042: 012700 061006 mov #61006,r0 ; @..b 062046: 012702 000010 mov #10,r2 ; B... 062052: 060102 add r1,r2 ; B` 062054: 016062 000000 000000 mov 0(r0),0(r2) ; 2..... 062062: 016062 000002 000002 mov 2(r0),2(r2) ; 2..... 062070: 016062 000004 000004 mov 4(r0),4(r2) ; 2..... 062076: 017062 000002 000010 mov @2(r0),10(r2) ; 2..... 062104: 012762 007340 000006 mov #7340,6(r2) ; r.`... 062112: 020027 061014 cmp r0,#61014 ; . .b 062116: 002407 blt 62136 ; .. 062120: 005062 000006 clr 6(r2) ; 2... 062124: 020027 061036 cmp r0,#61036 ; . .b 062130: 002002 bge 62136 ; .. 062132: 005162 000006 com 6(r2) ; r... 062136: 046262 000006 000010 bic 6(r2),10(r2) ; 2L.... 062144: 062702 000012 add #12,r2 ; Be.. 062150: 062700 000006 add #6,r0 ; @e.. 062154: 020027 061066 cmp r0,#61066 ; . 6b 062160: 002735 blt 62054 ; ]. 062162: 000207 return ; .. ; 062164: 010346 mov r3,-(sp) ; f. 062166: 010246 mov r2,-(sp) ; &. 062170: 012700 000010 mov #10,r0 ; @... 062174: 060100 add r1,r0 ; @` 062176: 012703 000010 mov #10,r3 ; C... 062202: 017002 000002 mov @2(r0),r2 ; .... 062206: 046002 000006 bic 6(r0),r2 ; .L.. 062212: 026002 000010 cmp 10(r0),r2 ; .,.. 062216: 001005 bne 62232 ; .. 062220: 062700 000012 add #12,r0 ; @e.. 062224: 077312 sob r3,62202 ; J~ 062226: 000241 clc ; !. 062230: 000413 br 62260 ; .. ; 062232: 016061 000002 000002 mov 2(r0),2(r1) ; 1..... 062240: 010261 000004 mov r2,4(r1) ; 1... 062244: 016061 000010 000006 mov 10(r0),6(r1) ; 1..... 062252: 012700 177763 mov #177763,r0 ; @.s. 062256: 000261 sec ; 1. 062260: 012602 mov (sp)+,r2 ; .. 062262: 012603 mov (sp)+,r3 ; .. 062264: 000207 return ; .. ; 062266: 012737 000000 140022 mov #0,@#w$cmd ; _....@ 062274: 012737 000100 140022 mov #100,@#w$cmd ; _.@..@ 062302: 012700 061066 mov #61066,r0 ; @.6b 062306: 012702 000130 mov #130,r2 ; B.X. 062312: 060102 add r1,r2 ; B` 062314: 116062 000000 000004 movb 0(r0),4(r2) ; 2..... 062322: 105062 000005 clrb 5(r2) ; 2... 062326: 116062 000001 000006 movb 1(r0),6(r2) ; 2..... 062334: 105062 000007 clrb 7(r2) ; 2... 062340: 105062 000000 clrb 0(r2) ; 2... 062344: 113762 140010 000002 movb @#r$dat,2(r2) ; r..@.. 062352: 105062 000003 clrb 3(r2) ; 2... 062356: 146262 000006 000002 bicb 6(r2),2(r2) ; 2L.... 062364: 016262 000002 000010 mov 2(r2),10(r2) ; 2..... 062372: 062702 000012 add #12,r2 ; Be.. 062376: 062700 000002 add #2,r0 ; @e.. 062402: 020027 061114 cmp r0,#61114 ; . Lb 062406: 002742 blt 62314 ; b. 062410: 000207 return ; .. ; 062412: 012703 000100 mov #100,r3 ; C.@. 062416: 004737 062516 call @#62516 ; _.Ne 062422: 103427 bcs 62502 ; .. 062424: 012705 000306 mov #306,r5 ; E.F. 062430: 060105 add r1,r5 ; E` 062432: 012704 000013 mov #13,r4 ; D... 062436: 060403 add r4,r3 ; .a 062440: 162705 000012 sub #12,r5 ; Ee.. 062444: 005303 dec r3 ; C. 062446: 010337 140022 mov r3,@#w$cmd ; _..@ 062452: 113765 140010 000002 movb @#r$dat,2(r5) ; u..@.. 062460: 146565 000006 000002 bicb 6(r5),2(r5) ; uM.... 062466: 126565 000002 000010 cmpb 2(r5),10(r5) ; u-.... 062474: 001003 bne 62504 ; .. 062476: 077420 sob r4,62440 ; .. 062500: 000241 clc ; !. 062502: 000207 return ; .. ; 062504: 010500 mov r5,r0 ; @. 062506: 010402 mov r4,r2 ; .. 062510: 004737 063034 call @#63034 ; _..f 062514: 000207 return ; .. ; 062516: 004737 063100 call @#63100 ; _.@f 062522: 010337 140022 mov r3,@#w$cmd ; _..@ 062526: 012700 000013 mov #13,r0 ; @... 062532: 012702 000130 mov #130,r2 ; B.X. 062536: 060102 add r1,r2 ; B` 062540: 122762 177777 000004 cmpb #177777,4(r2) ; r%.... 062546: 001404 beq 62560 ; .. 062550: 116237 000000 140020 movb 0(r2),@#w$dat ; .....@ 062556: 000403 br 62566 ; .. ; 062560: 113762 140010 000002 movb @#r$dat,2(r2) ; r..@.. 062566: 062702 000012 add #12,r2 ; Be.. 062572: 077016 sob r0,62540 ; .~ 062574: 005705 tst r5 ; E. 062576: 001025 bne 62652 ; .. 062600: 012700 000072 mov #72,r0 ; @.:. 062604: 060100 add r1,r0 ; @` 062606: 052760 000020 000010 bis #20,10(r0) ; pU.... 062614: 042760 000040 000010 bic #40,10(r0) ; pE ... 062622: 012700 000116 mov #116,r0 ; @.N. 062626: 060100 add r1,r0 ; @` 062630: 017060 000002 000010 mov @2(r0),10(r0) ; 0..... 062636: 004737 062164 call @#62164 ; _.td 062642: 103003 bcc 62652 ; .. 062644: 010461 000000 mov r4,0(r1) ; 1... 062650: 000425 br 62724 ; .. ; 062652: 010337 140022 mov r3,@#w$cmd ; _..@ 062656: 012700 000130 mov #130,r0 ; @.X. 062662: 060100 add r1,r0 ; @` 062664: 012702 000013 mov #13,r2 ; B... 062670: 113760 140010 000002 movb @#r$dat,2(r0) ; p..@.. 062676: 146060 000006 000002 bicb 6(r0),2(r0) ; 0L.... 062704: 126060 000002 000010 cmpb 2(r0),10(r0) ; 0,.... 062712: 001005 bne 62726 ; .. 062714: 062700 000012 add #12,r0 ; @e.. 062720: 077215 sob r2,62670 ; .~ 062722: 000241 clc ; !. 062724: 000207 return ; .. ; 062726: 004737 063034 call @#63034 ; _..f 062732: 000207 return ; .. ; 062734: 010246 mov r2,-(sp) ; &. 062736: 010146 mov r1,-(sp) ; f. 062740: 012700 000144 mov #144,r0 ; @.d. 062744: 012737 000001 140022 mov #1,@#w$cmd ; _....@ 062752: 004737 063200 call @#63200 ; _..f 062756: 013702 140012 mov @#r$cmd,r2 ; B..@ 062762: 032702 000040 bit #40,r2 ; B5 . 062766: 001003 bne 62776 ; .. 062770: 012700 177770 mov #177770,r0 ; @.x. 062774: 000407 br 63014 ; .. ; 062776: 010200 mov r2,r0 ; .. 063000: 042700 177747 bic #177747,r0 ; @Eg. 063004: 005700 tst r0 ; @. 063006: 001404 beq 63020 ; .. 063010: 012700 177767 mov #177767,r0 ; @.w. 063014: 000261 sec ; 1. 063016: 000401 br 63022 ; .. ; 063020: 000241 clc ; !. 063022: 012601 mov (sp)+,r1 ; .. 063024: 010261 000000 mov r2,0(r1) ; 1... 063030: 012602 mov (sp)+,r2 ; .. 063032: 000207 return ; .. ; 063034: 013761 140012 000000 mov @#r$cmd,0(r1) ; q..@.. 063042: 016061 000002 000004 mov 2(r0),4(r1) ; 1..... 063050: 016061 000010 000006 mov 10(r0),6(r1) ; 1..... 063056: 012761 000013 000002 mov #13,2(r1) ; q..... 063064: 160261 000002 sub r2,2(r1) ; 1`.. 063070: 012700 177764 mov #177764,r0 ; @.t. 063074: 000261 sec ; 1. 063076: 000207 return ; .. ; 063100: 010146 mov r1,-(sp) ; f. 063102: 012700 000013 mov #13,r0 ; @... 063106: 062701 000130 add #130,r1 ; AeX. 063112: 010402 mov r4,r2 ; .. 063114: 122761 177777 000004 cmpb #177777,4(r1) ; q%.... 063122: 001420 beq 63164 ; .. 063124: 110261 000000 movb r2,0(r1) ; 1... 063130: 146161 000004 000000 bicb 4(r1),0(r1) ; qL.... 063136: 116161 000000 000002 movb 0(r1),2(r1) ; q..... 063144: 105161 000002 comb 2(r1) ; q... 063150: 116161 000000 000010 movb 0(r1),10(r1) ; q..... 063156: 146161 000006 000010 bicb 6(r1),10(r1) ; qL.... 063164: 062701 000012 add #12,r1 ; Ae.. 063170: 060502 add r5,r2 ; Ba 063172: 077030 sob r0,63114 ; .~ 063174: 012601 mov (sp)+,r1 ; .. 063176: 000207 return ; .. ; 063200: 012701 000204 mov #204,r1 ; A... 063204: 005737 100240 tst @#100240 ; _. . 063210: 000400 br 63212 ; .. ; 063212: 077104 sob r1,63204 ; D~ 063214: 077007 sob r0,63200 ; .~ 063216: 000207 return ; .. ; 063220: 012700 077776 mov #77776,r0 ; @.~. 063224: 011001 mov (r0),r1 ; .. 063226: 006200 asr r0 ; .. 063230: 005003 clr r3 ; .. 063232: 005002 clr r2 ; .. 063234: 062302 add (r3)+,r2 ; Bd 063236: 005502 adc r2 ; B. 063240: 077003 sob r0,63234 ; .~ 063242: 020201 cmp r2,r1 ; . 063244: 001405 beq 63260 ; .. 063246: 005701 tst r1 ; A. 063250: 001403 beq 63260 ; .. 063252: 012700 177776 mov #177776,r0 ; @.~. 063256: 000402 br 63264 ; .. ; 063260: 012700 000001 mov #1,r0 ; @... 063264: 000207 return ; .. ; 063266: 012701 100024 mov #100024,r1 ; A... 063272: 005002 clr r2 ; .. 063274: 012700 140000 mov #140000,r0 ; @..@ 063300: 160100 sub r1,r0 ; @` 063302: 006200 asr r0 ; .. 063304: 010211 mov r2,(r1) ; .. 063306: 062701 000002 add #2,r1 ; Ae.. 063312: 077004 sob r0,63304 ; .~ 063314: 005003 clr r3 ; .. 063316: 010300 mov r3,r0 ; @. 063320: 006303 asl r3 ; C. 063322: 005203 inc r3 ; .. 063324: 012701 100024 mov #100024,r1 ; A... 063330: 011102 mov (r1),r2 ; B. 063332: 020002 cmp r0,r2 ; . 063334: 001041 bne 63440 ; !. 063336: 010311 mov r3,(r1) ; I. 063340: 011102 mov (r1),r2 ; B. 063342: 020302 cmp r3,r2 ; B 063344: 001036 bne 63442 ; .. 063346: 062701 000002 add #2,r1 ; Ae.. 063352: 020127 140000 cmp r1,#140000 ; W .@ 063356: 103764 bcs 63330 ; t. 063360: 005703 tst r3 ; C. 063362: 100355 bpl 63316 ; m. 063364: 010300 mov r3,r0 ; @. 063366: 005701 tst r1 ; A. 063370: 006003 ror r3 ; .. 063372: 012701 140000 mov #140000,r1 ; A..@ 063376: 162701 000002 sub #2,r1 ; Ae.. 063402: 011102 mov (r1),r2 ; B. 063404: 020002 cmp r0,r2 ; . 063406: 001014 bne 63440 ; .. 063410: 010311 mov r3,(r1) ; I. 063412: 011102 mov (r1),r2 ; B. 063414: 020302 cmp r3,r2 ; B 063416: 001011 bne 63442 ; .. 063420: 020127 100024 cmp r1,#100024 ; W .. 063424: 001364 bne 63376 ; t. 063426: 005703 tst r3 ; C. 063430: 001355 bne 63364 ; m. 063432: 012700 000000 mov #0,r0 ; @... 063436: 000403 br 63446 ; .. ; 063440: 010003 mov r0,r3 ; .. 063442: 012700 177775 mov #177775,r0 ; @.}. 063446: 000207 return ; .. ; 063450: 016601 000004 mov 4(sp),r1 ; .... 063454: 013702 140002 mov @#rw$pll,r2 ; B..@ 063460: 052702 000010 bis #10,r2 ; BU.. 063464: 010237 140002 mov r2,@#rw$pll ; ...@ 063470: 011102 mov (r1),r2 ; B. 063472: 005102 com r2 ; B. 063474: 010211 mov r2,(r1) ; .. 063476: 012700 000001 mov #1,r0 ; @... 063502: 020211 cmp r2,(r1) ; . 063504: 001402 beq 63512 ; .. 063506: 012700 177777 mov #177777,r0 ; @... 063512: 000207 return ; .. ; 063514: 032737 177400 160112 bit #177400,@#160112 ; _5..J` 063522: 001012 bne 63550 ; .. 063524: 032737 000004 160112 bit #4,@#160112 ; _5..J` 063532: 001007 bne 63552 ; .. 063534: 022737 000240 140100 cmp #240,@#140100 ; _% .@@ 063542: 001002 bne 63550 ; .. 063544: 004737 140100 call @#140100 ; _.@@ 063550: 000207 return ; .. ; 063552: 005037 100000 clr @#100000 ; .... 063556: 000137 060212 jmp @#60212 ; _..` ;-------------------------------------------------------- ; ; ; FORMAT local program ; 063562: 075537 .word 75537 ; _{ 063564: 075554 .word 75554 ; l{ 063566: 075571 .word 75571 ; y{ 063570: 075606 .word 75606 ; .{ 063572: 075623 .word 75623 ; .{ format:: 063574: 004567 013300 jsr r5,csv$ ; w.@. 063600: 012746 100052 mov #100052,-(sp) ; f.*. 063604: 004767 160070 call $deq.head ; w.8` 063610: 005726 tst (sp)+ ; V. 063612: 010003 mov r0,r3 ; .. 063614: 012746 011000 mov #11000,-(sp) ; f... 063620: 012746 110600 mov #data,-(sp) ; f... 063624: 004767 010270 call 74120 ; w.8. 063630: 022626 cmp (sp)+,(sp)+ ; .% 063632: 012704 110600 mov #data,r4 ; D... 063636: 012702 111604 mov #111604,r2 ; B... 063642: 012712 177777 mov #177777,(r2) ; J... 063646: 010446 mov r4,-(sp) ; &. 063650: 010246 mov r2,-(sp) ; &. 063652: 010346 mov r3,-(sp) ; f. 063654: 004767 004764 call 70644 ; w.t. 063660: 062706 000006 add #6,sp ; Fe.. 063664: 010065 177770 mov r0,177770(r5) ; 5.x. 063670: 005765 177770 tst 177770(r5) ; u.x. 063674: 001011 bne 63720 ; .. 063676: 010446 mov r4,-(sp) ; &. 063700: 010246 mov r2,-(sp) ; &. 063702: 010346 mov r3,-(sp) ; f. 063704: 004767 000232 call 64142 ; w... 063710: 062706 000006 add #6,sp ; Fe.. 063714: 010065 177770 mov r0,177770(r5) ; 5.x. 063720: 005765 177770 tst 177770(r5) ; u.x. 063724: 001011 bne 63750 ; .. 063726: 010446 mov r4,-(sp) ; &. 063730: 010246 mov r2,-(sp) ; &. 063732: 010346 mov r3,-(sp) ; f. 063734: 004767 006300 call 72240 ; w.@. 063740: 062706 000006 add #6,sp ; Fe.. 063744: 010065 177770 mov r0,177770(r5) ; 5.x. 063750: 005765 177770 tst 177770(r5) ; u.x. 063754: 001011 bne 64000 ; .. 063756: 010446 mov r4,-(sp) ; &. 063760: 010246 mov r2,-(sp) ; &. 063762: 010346 mov r3,-(sp) ; f. 063764: 004767 001642 call 65632 ; w.". 063770: 062706 000006 add #6,sp ; Fe.. 063774: 010065 177770 mov r0,177770(r5) ; 5.x. 064000: 005765 177770 tst 177770(r5) ; u.x. 064004: 001006 bne 64022 ; .. 064006: 010246 mov r2,-(sp) ; &. 064010: 004767 001446 call 65462 ; w.&. 064014: 005726 tst (sp)+ ; V. 064016: 010065 177770 mov r0,177770(r5) ; 5.x. 064022: 012746 000001 mov #1,-(sp) ; f... 064026: 004767 126610 call put$udc ; w..- 064032: 005726 tst (sp)+ ; V. 064034: 010346 mov r3,-(sp) ; f. 064036: 012746 100052 mov #100052,-(sp) ; f.*. 064042: 004767 157542 call $enq.head ; w.b_ 064046: 022626 cmp (sp)+,(sp)+ ; .% 064050: 026527 177770 000001 cmp 177770(r5),#1 ; W-x... 064056: 001413 beq 64106 ; .. 064060: 012746 111632 mov #111632,-(sp) ; f... 064064: 012746 110600 mov #data,-(sp) ; f... 064070: 016546 177770 mov 177770(r5),-(sp) ; f.x. 064074: 004767 010250 call 74350 ; w.(. 064100: 062706 000006 add #6,sp ; Fe.. 064104: 000412 br 64132 ; .. ; 064106: 012746 111632 mov #111632,-(sp) ; f... 064112: 012746 110600 mov #data,-(sp) ; f... 064116: 012746 075654 mov #75654,-(sp) ; f.,{ 064122: 004767 010222 call 74350 ; w... 064126: 062706 000006 add #6,sp ; Fe.. 064132: 004767 146576 call terminate ; w.~M 064136: 000167 012752 jmp cret$ ; w.j. ; 064142: 004567 012732 jsr r5,csv$ ; w.Z. 064146: 016504 000004 mov 4(r5),r4 ; D... 064152: 016503 000006 mov 6(r5),r3 ; C... 064156: 016502 000010 mov 10(r5),r2 ; B... 064162: 105067 016477 clrb 102665 ; 7.?. 064166: 105067 016472 clrb 102664 ; 7.:. 064172: 005067 016470 clr 102666 ; 7.8. 064176: 012746 111632 mov #111632,-(sp) ; f... 064202: 012746 111632 mov #111632,-(sp) ; f... 064206: 012746 075513 mov #75513,-(sp) ; f.K{ 064212: 004767 010132 call 74350 ; w.Z. 064216: 062706 000006 add #6,sp ; Fe.. 064222: 005700 tst r0 ; @. 064224: 001052 bne 64352 ; *. 064226: 010346 mov r3,-(sp) ; f. 064230: 010446 mov r4,-(sp) ; &. 064232: 004767 000120 call 64356 ; w.P. 064236: 022626 cmp (sp)+,(sp)+ ; .% 064240: 005700 tst r0 ; @. 064242: 001043 bne 64352 ; #. 064244: 010246 mov r2,-(sp) ; &. 064246: 010446 mov r4,-(sp) ; &. 064250: 004767 000646 call 65122 ; w.&. 064254: 022626 cmp (sp)+,(sp)+ ; .% 064256: 005700 tst r0 ; @. 064260: 001034 bne 64352 ; .. 064262: 016264 000012 000010 mov 12(r2),10(r4) ; 4..... 064270: 006764 000006 sxt 6(r4) ; t... 064274: 012764 000400 000026 mov #400,26(r4) ; t..... 064302: 010346 mov r3,-(sp) ; f. 064304: 062716 000020 add #20,(sp) ; Ne.. 064310: 012746 111632 mov #111632,-(sp) ; f... 064314: 016246 000016 mov 16(r2),-(sp) ; &... 064320: 010446 mov r4,-(sp) ; &. 064322: 004767 003524 call 70052 ; w.T. 064326: 062706 000010 add #10,sp ; Fe.. 064332: 005046 clr -(sp) ; &. 064334: 010346 mov r3,-(sp) ; f. 064336: 010246 mov r2,-(sp) ; &. 064340: 010446 mov r4,-(sp) ; &. 064342: 004767 003324 call 67672 ; w.T. 064346: 062706 000010 add #10,sp ; Fe.. 064352: 000167 012536 jmp cret$ ; w.^. ; 064356: 004567 012516 jsr r5,csv$ ; w.N. 064362: 005746 tst -(sp) ; f. 064364: 016504 000004 mov 4(r5),r4 ; D... 064370: 062704 000030 add #30,r4 ; De.. 064374: 016503 000004 mov 4(r5),r3 ; C... 064400: 062703 000032 add #32,r3 ; Ce.. 064404: 016502 000004 mov 4(r5),r2 ; B... 064410: 016202 000002 mov 2(r2),r2 ; .... 064414: 005014 clr (r4) ; .. 064416: 000467 br 64576 ; 7. ; 064420: 005013 clr (r3) ; .. 064422: 000461 br 64566 ; 1. ; 064424: 036727 016240 000002 bit 102670,#2 ; W= ... 064432: 001403 beq 64442 ; .. 064434: 012700 000001 mov #1,r0 ; @... 064440: 000464 br 64612 ; 4. ; 064442: 016546 000006 mov 6(r5),-(sp) ; f... 064446: 016546 000004 mov 4(r5),-(sp) ; f... 064452: 004767 000140 call 64616 ; w.`. 064456: 022626 cmp (sp)+,(sp)+ ; .% 064460: 005700 tst r0 ; @. 064462: 001433 beq 64552 ; .. 064464: 016500 000004 mov 4(r5),r0 ; @... 064470: 005060 000034 clr 34(r0) ; 0... 064474: 010546 mov r5,-(sp) ; f. 064476: 062716 177766 add #177766,(sp) ; Nev. 064502: 016546 000004 mov 4(r5),-(sp) ; f... 064506: 004767 007536 call 74250 ; w.^. 064512: 022626 cmp (sp)+,(sp)+ ; .% 064514: 026562 177766 000044 cmp 177766(r5),44(r2) ; r-v.$. 064522: 002405 blt 64536 ; .. 064524: 003007 bgt 64544 ; .. 064526: 026562 177770 000046 cmp 177770(r5),46(r2) ; r-x.&. 064534: 103003 bcc 64544 ; .. 064536: 012700 075716 mov #75716,r0 ; @.N{ 064542: 000423 br 64612 ; .. ; 064544: 012700 075763 mov #75763,r0 ; @.s{ 064550: 000420 br 64612 ; .. ; 064552: 066267 000110 016106 add 110(r2),102666 ; 7lH.F. 064560: 005567 016100 adc 102664 ; w.@. 064564: 005213 inc (r3) ; .. 064566: 021362 000112 cmp (r3),112(r2) ; r"J. 064572: 002714 blt 64424 ; L. 064574: 005214 inc (r4) ; .. 064576: 016200 000114 mov 114(r2),r0 ; ..L. 064602: 005300 dec r0 ; @. 064604: 020014 cmp r0,(r4) ; . 064606: 003304 bgt 64420 ; D. 064610: 005000 clr r0 ; .. 064612: 000167 012276 jmp cret$ ; w.>. ; 064616: 004567 012256 jsr r5,csv$ ; w... 064622: 005746 tst -(sp) ; f. 064624: 016504 000004 mov 4(r5),r4 ; D... 064630: 016403 000002 mov 2(r4),r3 ; .... 064634: 010346 mov r3,-(sp) ; f. 064636: 004767 154760 call select ; w.pY 064642: 005726 tst (sp)+ ; V. 064644: 010446 mov r4,-(sp) ; &. 064646: 004767 141226 call fill$id ; w..B 064652: 005726 tst (sp)+ ; V. 064654: 012765 000140 177766 mov #140,177766(r5) ; u.`.v. 064662: 026463 000030 000064 cmp 30(r4),64(r3) ; 3-..4. 064670: 002403 blt 64700 ; .. 064672: 052765 000002 177766 bis #2,177766(r5) ; uU..v. 064700: 012765 100066 177770 mov #100066,177770(r5) ; u.6.x. 064706: 012767 000100 053106 mov #100,w$cmd ; w.@.FV 064714: 116500 177770 movb 177770(r5),r0 ; @.x. 064720: 010067 053074 mov r0,w$dat ; 7.. 064764: 005400 neg r0 ; .. 064766: 010067 053026 mov r0,w$dat ; 7..V 064772: 016300 000100 mov 100(r3),r0 ; @.@. 064776: 005400 neg r0 ; .. 065000: 010067 053014 mov r0,w$dat ; 7..V 065004: 016300 000102 mov 102(r3),r0 ; @.B. 065010: 005400 neg r0 ; .. 065012: 010067 053002 mov r0,w$dat ; 7..V 065016: 016300 000104 mov 104(r3),r0 ; @.D. 065022: 005400 neg r0 ; .. 065024: 010067 052770 mov r0,w$dat ; 7.xU 065030: 016467 000032 052762 mov 32(r4),w$dat ; 7...rU 065036: 016300 000106 mov 106(r3),r0 ; @.F. 065042: 005100 com r0 ; @. 065044: 010067 052750 mov r0,w$dat ; 7.hU 065050: 016300 000110 mov 110(r3),r0 ; @.H. 065054: 005100 com r0 ; @. 065056: 010067 052736 mov r0,w$dat ; 7.^U 065062: 012767 177773 052730 mov #177773,w$dat ; w.{.XU 065070: 016446 000030 mov 30(r4),-(sp) ; &... 065074: 016546 000006 mov 6(r5),-(sp) ; f... 065100: 010346 mov r3,-(sp) ; f. 065102: 016546 177766 mov 177766(r5),-(sp) ; f.v. 065106: 004767 003050 call 70162 ; w.(. 065112: 062706 000010 add #10,sp ; Fe.. 065116: 000167 011772 jmp cret$ ; w.z. ; 065122: 004567 011752 jsr r5,csv$ ; w.j. 065126: 005746 tst -(sp) ; f. 065130: 012746 000400 mov #400,-(sp) ; f... 065134: 012746 124600 mov #124600,-(sp) ; f..) 065140: 004767 006754 call 74120 ; w.l. 065144: 022626 cmp (sp)+,(sp)+ ; .% 065146: 012746 000004 mov #4,-(sp) ; f... 065152: 012746 124600 mov #124600,-(sp) ; f..) 065156: 016546 000006 mov 6(r5),-(sp) ; f... 065162: 062716 000140 add #140,(sp) ; Ne`. 065166: 004767 006700 call 74072 ; w.@. 065172: 062706 000006 add #6,sp ; Fe.. 065176: 016502 000004 mov 4(r5),r2 ; B... 065202: 016202 000002 mov 2(r2),r2 ; .... 065206: 005065 177766 clr 177766(r5) ; 5.v. 065212: 005065 177770 clr 177770(r5) ; 5.x. 065216: 005004 clr r4 ; .. 065220: 000512 br 65446 ; J. ; 065222: 020427 000002 cmp r4,#2 ; .!.. 065226: 002470 blt 65410 ; 8. 065230: 005003 clr r3 ; .. 065232: 000463 br 65402 ; 3. ; 065234: 010300 mov r3,r0 ; @. 065236: 005203 inc r3 ; .. 065240: 006300 asl r0 ; @. 065242: 062700 124600 add #124600,r0 ; @e.) 065246: 005010 clr (r0) ; .. 065250: 026562 177766 000060 cmp 177766(r5),60(r2) ; r-v.0. 065256: 002405 blt 65272 ; .. 065260: 003013 bgt 65310 ; .. 065262: 026562 177770 000062 cmp 177770(r5),62(r2) ; r-x.2. 065270: 103007 bcc 65310 ; .. 065272: 010300 mov r3,r0 ; @. 065274: 005203 inc r3 ; .. 065276: 006300 asl r0 ; @. 065300: 062700 124600 add #124600,r0 ; @e.) 065304: 005010 clr (r0) ; .. 065306: 000430 br 65370 ; .. ; 065310: 026562 177766 000060 cmp 177766(r5),60(r2) ; r-v.0. 065316: 003005 bgt 65332 ; .. 065320: 002414 blt 65352 ; .. 065322: 026562 177770 000062 cmp 177770(r5),62(r2) ; r-x.2. 065330: 101410 blos 65352 ; .. 065332: 010300 mov r3,r0 ; @. 065334: 005203 inc r3 ; .. 065336: 006300 asl r0 ; @. 065340: 062700 124600 add #124600,r0 ; @e.) 065344: 012710 040000 mov #40000,(r0) ; H..@ 065350: 000407 br 65370 ; .. ; 065352: 010300 mov r3,r0 ; @. 065354: 005203 inc r3 ; .. 065356: 006300 asl r0 ; @. 065360: 062700 124600 add #124600,r0 ; @e.) 065364: 012710 100000 mov #100000,(r0) ; H... 065370: 062765 000001 177770 add #1,177770(r5) ; ue..x. 065376: 005565 177766 adc 177766(r5) ; u.v. 065402: 020327 000400 cmp r3,#400 ; W .. 065406: 002712 blt 65234 ; J. 065410: 012746 124600 mov #124600,-(sp) ; f..) 065414: 010446 mov r4,-(sp) ; &. 065416: 016546 000004 mov 4(r5),-(sp) ; f... 065422: 004767 122312 call wr$rct ; w.J$ 065426: 062706 000006 add #6,sp ; Fe.. 065432: 005700 tst r0 ; @. 065434: 001403 beq 65444 ; .. 065436: 012700 076006 mov #76006,r0 ; @..| 065442: 000405 br 65456 ; .. ; 065444: 005204 inc r4 ; .. 065446: 020462 000024 cmp r4,24(r2) ; 2!.. 065452: 002663 blt 65222 ; 3. 065454: 005000 clr r0 ; .. 065456: 000167 011432 jmp cret$ ; w... ; 065462: 004567 011412 jsr r5,csv$ ; w... 065466: 016504 000004 mov 4(r5),r4 ; D... 065472: 012702 111632 mov #111632,r2 ; B... 065476: 010246 mov r2,-(sp) ; &. 065500: 010246 mov r2,-(sp) ; &. 065502: 012746 075525 mov #75525,-(sp) ; f.U{ 065506: 004767 006636 call 74350 ; w... 065512: 062706 000006 add #6,sp ; Fe.. 065516: 005700 tst r0 ; @. 065520: 001042 bne 65626 ; ". 065522: 005003 clr r3 ; .. 065524: 000424 br 65576 ; .. ; 065526: 010300 mov r3,r0 ; @. 065530: 006300 asl r0 ; @. 065532: 010046 mov r0,-(sp) ; &. 065534: 060416 add r4,(sp) ; .a 065536: 062716 000014 add #14,(sp) ; Ne.. 065542: 010246 mov r2,-(sp) ; &. 065544: 010300 mov r3,r0 ; @. 065546: 006300 asl r0 ; @. 065550: 062700 063562 add #63562,r0 ; @erg 065554: 011000 mov (r0),r0 ; .. 065556: 010046 mov r0,-(sp) ; &. 065560: 004767 006564 call 74350 ; w.t. 065564: 062706 000006 add #6,sp ; Fe.. 065570: 005700 tst r0 ; @. 065572: 001015 bne 65626 ; .. 065574: 005203 inc r3 ; .. 065576: 020327 000005 cmp r3,#5 ; W .. 065602: 002751 blt 65526 ; i. 065604: 005764 000012 tst 12(r4) ; t... 065610: 001403 beq 65620 ; .. 065612: 012700 075654 mov #75654,r0 ; @.,{ 065616: 000403 br 65626 ; .. ; 065620: 012700 075666 mov #75666,r0 ; @.6{ 065624: 000400 br 65626 ; .. ; 065626: 000167 011262 jmp cret$ ; w.2. ; 065632: 004567 011242 jsr r5,csv$ ; w.". 065636: 016500 000006 mov 6(r5),r0 ; @... 065642: 005060 000024 clr 24(r0) ; 0... 065646: 016500 000006 mov 6(r5),r0 ; @... 065652: 026027 000006 000002 cmp 6(r0),#2 ; .,.... 065660: 001003 bne 65670 ; .. 065662: 012703 000002 mov #2,r3 ; C... 065666: 000402 br 65674 ; .. ; 065670: 012703 000006 mov #6,r3 ; C... 065674: 000455 br 66030 ; -. ; 065676: 012746 000022 mov #22,-(sp) ; f... 065702: 010346 mov r3,-(sp) ; f. 065704: 012746 111632 mov #111632,-(sp) ; f... 065710: 004767 006230 call 74144 ; w... 065714: 062706 000006 add #6,sp ; Fe.. 065720: 010300 mov r3,r0 ; @. 065722: 005203 inc r3 ; .. 065724: 110067 014735 movb r0,102665 ; 7.]. 065730: 105067 014730 clrb 102664 ; 7.X. 065734: 005067 014726 clr 102666 ; 7.V. 065740: 016546 000004 mov 4(r5),-(sp) ; f... 065744: 004767 000260 call 66230 ; w.0. 065750: 005726 tst (sp)+ ; V. 065752: 010004 mov r0,r4 ; .. 065754: 001402 beq 65762 ; .. 065756: 010400 mov r4,r0 ; .. 065760: 000521 br 66224 ; Q. ; 065762: 010300 mov r3,r0 ; @. 065764: 005203 inc r3 ; .. 065766: 110067 014673 movb r0,102665 ; 7.;. 065772: 105067 014666 clrb 102664 ; 7.6. 065776: 005067 014664 clr 102666 ; 7.4. 066002: 016546 000006 mov 6(r5),-(sp) ; f... 066006: 016546 000004 mov 4(r5),-(sp) ; f... 066012: 004767 000560 call 66576 ; w.p. 066016: 022626 cmp (sp)+,(sp)+ ; .% 066020: 010004 mov r0,r4 ; .. 066022: 001402 beq 66030 ; .. 066024: 010400 mov r4,r0 ; .. 066026: 000476 br 66224 ; >. ; 066030: 020327 000010 cmp r3,#10 ; W .. 066034: 002720 blt 65676 ; P. 066036: 012746 000400 mov #400,-(sp) ; f... 066042: 012746 111632 mov #111632,-(sp) ; f... 066046: 004767 006046 call 74120 ; w.&. 066052: 022626 cmp (sp)+,(sp)+ ; .% 066054: 016500 000004 mov 4(r5),r0 ; @... 066060: 016065 000002 177770 mov 2(r0),177770(r5) ; 5...x. 066066: 016500 177770 mov 177770(r5),r0 ; @.x. 066072: 016046 000056 mov 56(r0),-(sp) ; &... 066076: 016046 000054 mov 54(r0),-(sp) ; &.,. 066102: 016500 000004 mov 4(r5),r0 ; @... 066106: 012660 000006 mov (sp)+,6(r0) ; 0... 066112: 012660 000010 mov (sp)+,10(r0) ; 0... 066116: 016500 000004 mov 4(r5),r0 ; @... 066122: 005060 000026 clr 26(r0) ; 0... 066126: 016546 000006 mov 6(r5),-(sp) ; f... 066132: 062716 000016 add #16,(sp) ; Ne.. 066136: 012746 111632 mov #111632,-(sp) ; f... 066142: 016502 177770 mov 177770(r5),r2 ; B.x. 066146: 016200 000062 mov 62(r2),r0 ; ..2. 066152: 010046 mov r0,-(sp) ; &. 066154: 016546 000004 mov 4(r5),-(sp) ; f... 066160: 004767 001666 call 70052 ; w.6. 066164: 062706 000010 add #10,sp ; Fe.. 066170: 012746 000001 mov #1,-(sp) ; f... 066174: 016546 000006 mov 6(r5),-(sp) ; f... 066200: 016546 000010 mov 10(r5),-(sp) ; f... 066204: 016546 000004 mov 4(r5),-(sp) ; f... 066210: 004767 001456 call 67672 ; w... 066214: 062706 000010 add #10,sp ; Fe.. 066220: 010004 mov r0,r4 ; .. 066222: 010400 mov r4,r0 ; .. 066224: 000167 010664 jmp cret$ ; w.4. ; 066230: 004567 010644 jsr r5,csv$ ; w.$. 066234: 016504 000004 mov 4(r5),r4 ; D... 066240: 016402 000002 mov 2(r4),r2 ; .... 066244: 012764 100000 000024 mov #100000,24(r4) ; t..... 066252: 005064 000026 clr 26(r4) ; 4... 066256: 016264 000044 000006 mov 44(r2),6(r4) ; 4.$... 066264: 016264 000046 000010 mov 46(r2),10(r4) ; 4.&... 066272: 012746 001000 mov #1000,-(sp) ; f... 066276: 016246 000010 mov 10(r2),-(sp) ; &... 066302: 016246 000006 mov 6(r2),-(sp) ; &... 066306: 004767 010414 call 76726 ; w... 066312: 062706 000006 add #6,sp ; Fe.. 066316: 010064 000012 mov r0,12(r4) ; 4... 066322: 010164 000014 mov r1,14(r4) ; t... 066326: 016401 000014 mov 14(r4),r1 ; .... 066332: 016400 000012 mov 12(r4),r0 ; .... 066336: 162701 000001 sub #1,r1 ; Ae.. 066342: 005600 sbc r0 ; .. 066344: 002511 blt 66570 ; I. 066346: 012701 022000 mov #22000,r1 ; A..$ 066352: 005000 clr r0 ; .. 066354: 166401 000014 sub 14(r4),r1 ; .m.. 066360: 005600 sbc r0 ; .. 066362: 166400 000012 sub 12(r4),r0 ; .m.. 066366: 162701 000001 sub #1,r1 ; Ae.. 066372: 005600 sbc r0 ; .. 066374: 002003 bge 66404 ; .. 066376: 012746 022000 mov #22000,-(sp) ; f..$ 066402: 000403 br 66412 ; .. ; 066404: 016400 000014 mov 14(r4),r0 ; .... 066410: 010046 mov r0,-(sp) ; &. 066412: 012746 111632 mov #111632,-(sp) ; f... 066416: 010446 mov r4,-(sp) ; &. 066420: 004767 121700 call fill$tcb ; w.@# 066424: 062706 000006 add #6,sp ; Fe.. 066430: 005764 000036 tst 36(r4) ; t... 066434: 003454 ble 66566 ; ,. 066436: 036727 014226 000002 bit 102670,#2 ; W=.... 066444: 001403 beq 66454 ; .. 066446: 012700 000001 mov #1,r0 ; @... 066452: 000447 br 66572 ; '. ; 066454: 010446 mov r4,-(sp) ; &. 066456: 004767 150416 call write ; w..Q 066462: 005726 tst (sp)+ ; V. 066464: 010003 mov r0,r3 ; .. 066466: 016446 000040 mov 40(r4),-(sp) ; &. . 066472: 010446 mov r4,-(sp) ; &. 066474: 004767 122274 call update$tcb ; w.<$ 066500: 022626 cmp (sp)+,(sp)+ ; .% 066502: 066467 000040 014156 add 40(r4),102666 ; 7m .n. 066510: 005567 014150 adc 102664 ; w.h. 066514: 030327 000020 bit r3,#20 ; W0.. 066520: 001414 beq 66552 ; .. 066522: 012746 000001 mov #1,-(sp) ; f... 066526: 010446 mov r4,-(sp) ; &. 066530: 004767 122240 call update$tcb ; w. $ 066534: 022626 cmp (sp)+,(sp)+ ; .% 066536: 062767 000001 014122 add #1,102666 ; we..R. 066544: 005567 014114 adc 102664 ; w.L. 066550: 000405 br 66564 ; .. ; 066552: 005703 tst r3 ; C. 066554: 001403 beq 66564 ; .. 066556: 012700 076067 mov #76067,r0 ; @.7| 066562: 000403 br 66572 ; .. ; 066564: 000721 br 66430 ; Q. ; 066566: 000657 br 66326 ; /. ; 066570: 005000 clr r0 ; .. 066572: 000167 010316 jmp cret$ ; w.N. ; 066576: 004567 010276 jsr r5,csv$ ; w.>. 066602: 016504 000004 mov 4(r5),r4 ; D... 066606: 016402 000002 mov 2(r4),r2 ; .... 066612: 012764 100000 000024 mov #100000,24(r4) ; t..... 066620: 012764 000400 000026 mov #400,26(r4) ; t..... 066626: 016264 000044 000006 mov 44(r2),6(r4) ; 4.$... 066634: 016264 000046 000010 mov 46(r2),10(r4) ; 4.&... 066642: 012746 001000 mov #1000,-(sp) ; f... 066646: 016246 000010 mov 10(r2),-(sp) ; &... 066652: 016246 000006 mov 6(r2),-(sp) ; &... 066656: 004767 010044 call 76726 ; w.$. 066662: 062706 000006 add #6,sp ; Fe.. 066666: 010064 000012 mov r0,12(r4) ; 4... 066672: 010164 000014 mov r1,14(r4) ; t... 066676: 016401 000014 mov 14(r4),r1 ; .... 066702: 016400 000012 mov 12(r4),r0 ; .... 066706: 162701 000001 sub #1,r1 ; Ae.. 066712: 005600 sbc r0 ; .. 066714: 002524 blt 67166 ; T. 066716: 012701 022000 mov #22000,r1 ; A..$ 066722: 005000 clr r0 ; .. 066724: 166401 000014 sub 14(r4),r1 ; .m.. 066730: 005600 sbc r0 ; .. 066732: 166400 000012 sub 12(r4),r0 ; .m.. 066736: 162701 000001 sub #1,r1 ; Ae.. 066742: 005600 sbc r0 ; .. 066744: 002003 bge 66754 ; .. 066746: 012746 022000 mov #22000,-(sp) ; f..$ 066752: 000403 br 66762 ; .. ; 066754: 016400 000014 mov 14(r4),r0 ; .... 066760: 010046 mov r0,-(sp) ; &. 066762: 012746 111632 mov #111632,-(sp) ; f... 066766: 010446 mov r4,-(sp) ; &. 066770: 004767 121330 call fill$tcb ; w.X" 066774: 062706 000006 add #6,sp ; Fe.. 067000: 005764 000036 tst 36(r4) ; t... 067004: 003467 ble 67164 ; 7. 067006: 036727 013656 000002 bit 102670,#2 ; W=.... 067014: 001403 beq 67024 ; .. 067016: 012700 000001 mov #1,r0 ; @... 067022: 000462 br 67170 ; 2. ; 067024: 010446 mov r4,-(sp) ; &. 067026: 004767 150016 call read ; w..P 067032: 005726 tst (sp)+ ; V. 067034: 010003 mov r0,r3 ; .. 067036: 016446 000040 mov 40(r4),-(sp) ; &. . 067042: 010446 mov r4,-(sp) ; &. 067044: 004767 121724 call update$tcb ; w.T# 067050: 022626 cmp (sp)+,(sp)+ ; .% 067052: 066467 000040 013606 add 40(r4),102666 ; 7m ... 067060: 005567 013600 adc 102664 ; w... 067064: 030327 000030 bit r3,#30 ; W0.. 067070: 001427 beq 67150 ; .. 067072: 016546 000006 mov 6(r5),-(sp) ; f... 067076: 010446 mov r4,-(sp) ; &. 067100: 004767 000070 call 67174 ; w.8. 067104: 022626 cmp (sp)+,(sp)+ ; .% 067106: 005700 tst r0 ; @. 067110: 001403 beq 67120 ; .. 067112: 012700 000001 mov #1,r0 ; @... 067116: 000424 br 67170 ; .. ; 067120: 012746 000001 mov #1,-(sp) ; f... 067124: 010446 mov r4,-(sp) ; &. 067126: 004767 121642 call update$tcb ; w."# 067132: 022626 cmp (sp)+,(sp)+ ; .% 067134: 062767 000001 013524 add #1,102666 ; we..T. 067142: 005567 013516 adc 102664 ; w.N. 067146: 000405 br 67162 ; .. ; 067150: 005703 tst r3 ; C. 067152: 001403 beq 67162 ; .. 067154: 012700 076067 mov #76067,r0 ; @.7| 067160: 000403 br 67170 ; .. ; 067162: 000706 br 67000 ; F. ; 067164: 000644 br 66676 ; $. ; 067166: 005000 clr r0 ; .. 067170: 000167 007720 jmp cret$ ; w.P. ; 067174: 004567 007700 jsr r5,csv$ ; w.@. 067200: 162706 000006 sub #6,sp ; Fe.. 067204: 016504 000004 mov 4(r5),r4 ; D... 067210: 012746 100052 mov #100052,-(sp) ; f.*. 067214: 004767 154504 call $deqf.head ; w.DY 067220: 005726 tst (sp)+ ; V. 067222: 010002 mov r0,r2 ; .. 067224: 016403 000002 mov 2(r4),r3 ; .... 067230: 016401 000010 mov 10(r4),r1 ; .... 067234: 016400 000006 mov 6(r4),r0 ; .... 067240: 166301 000046 sub 46(r3),r1 ; Al&. 067244: 005600 sbc r0 ; .. 067246: 166300 000044 sub 44(r3),r0 ; @l$. 067252: 010065 177762 mov r0,177762(r5) ; 5.r. 067256: 010165 177764 mov r1,177764(r5) ; u.t. 067262: 016462 000002 000002 mov 2(r4),2(r2) ; 2..... 067270: 016462 000004 000004 mov 4(r4),4(r2) ; 2..... 067276: 016546 177764 mov 177764(r5),-(sp) ; f.t. 067302: 016546 177762 mov 177762(r5),-(sp) ; f.r. 067306: 010246 mov r2,-(sp) ; &. 067310: 004767 127566 call get$rbn ; w.v/ 067314: 062706 000006 add #6,sp ; Fe.. 067320: 010065 177770 mov r0,177770(r5) ; 5.x. 067324: 001114 bne 67556 ; L. 067326: 005762 000046 tst 46(r2) ; r.&. 067332: 002041 bge 67436 ; !. 067334: 005065 177766 clr 177766(r5) ; 5.v. 067340: 012746 000001 mov #1,-(sp) ; f... 067344: 016546 177764 mov 177764(r5),-(sp) ; f.t. 067350: 016546 177762 mov 177762(r5),-(sp) ; f.r. 067354: 010246 mov r2,-(sp) ; &. 067356: 004767 131000 call put$rbn ; w..2 067362: 062706 000010 add #10,sp ; Fe.. 067366: 010065 177770 mov r0,177770(r5) ; 5.x. 067372: 001071 bne 67556 ; 9. 067374: 005762 000046 tst 46(r2) ; r.&. 067400: 002015 bge 67434 ; .. 067402: 016401 000010 mov 10(r4),r1 ; .... 067406: 016400 000006 mov 6(r4),r0 ; .... 067412: 166301 000056 sub 56(r3),r1 ; Al.. 067416: 005600 sbc r0 ; .. 067420: 166300 000054 sub 54(r3),r0 ; @l,. 067424: 010062 000046 mov r0,46(r2) ; 2.&. 067430: 010162 000050 mov r1,50(r2) ; r.(. 067434: 000403 br 67444 ; .. ; 067436: 012765 000001 177766 mov #1,177766(r5) ; u...v. 067444: 016201 000050 mov 50(r2),r1 ; ..(. 067450: 016200 000046 mov 46(r2),r0 ; ..&. 067454: 066301 000056 add 56(r3),r1 ; Al.. 067460: 005500 adc r0 ; @. 067462: 066300 000054 add 54(r3),r0 ; @l,. 067466: 010062 000006 mov r0,6(r2) ; 2... 067472: 010162 000010 mov r1,10(r2) ; r... 067476: 016400 000024 mov 24(r4),r0 ; .... 067502: 052700 100000 bis #100000,r0 ; @U.. 067506: 010062 000024 mov r0,24(r2) ; 2... 067512: 016462 000026 000026 mov 26(r4),26(r2) ; 2..... 067520: 012746 001000 mov #1000,-(sp) ; f... 067524: 016446 000044 mov 44(r4),-(sp) ; &.$. 067530: 010246 mov r2,-(sp) ; &. 067532: 004767 120566 call fill$tcb ; w.v! 067536: 062706 000006 add #6,sp ; Fe.. 067542: 010246 mov r2,-(sp) ; &. 067544: 004767 147300 call read ; w.@N 067550: 005726 tst (sp)+ ; V. 067552: 010065 177770 mov r0,177770(r5) ; 5.x. 067556: 010246 mov r2,-(sp) ; &. 067560: 012746 100052 mov #100052,-(sp) ; f.*. 067564: 004767 154020 call $enq.head ; w..X 067570: 022626 cmp (sp)+,(sp)+ ; .% 067572: 005765 177770 tst 177770(r5) ; u.x. 067576: 001404 beq 67610 ; .. 067600: 036527 177770 000002 bit 177770(r5),#2 ; W=x... 067606: 001415 beq 67642 ; .. 067610: 005765 177766 tst 177766(r5) ; u.v. 067614: 001010 bne 67636 ; .. 067616: 016500 000006 mov 6(r5),r0 ; @... 067622: 005260 000014 inc 14(r0) ; 0... 067626: 016500 000006 mov 6(r5),r0 ; @... 067632: 005260 000024 inc 24(r0) ; 0... 067636: 005000 clr r0 ; .. 067640: 000412 br 67666 ; .. ; 067642: 026527 177770 000005 cmp 177770(r5),#5 ; W-x... 067650: 001003 bne 67660 ; .. 067652: 012700 076017 mov #76017,r0 ; @..| 067656: 000403 br 67666 ; .. ; 067660: 012700 075751 mov #75751,r0 ; @.i{ 067664: 000400 br 67666 ; .. ; 067666: 000167 007222 jmp cret$ ; w... ; 067672: 004567 007202 jsr r5,csv$ ; w... 067676: 016504 000004 mov 4(r5),r4 ; D... 067702: 005002 clr r2 ; .. 067704: 005003 clr r3 ; .. 067706: 000406 br 67724 ; .. ; 067710: 010300 mov r3,r0 ; @. 067712: 006300 asl r0 ; @. 067714: 066500 000006 add 6(r5),r0 ; @m.. 067720: 061002 add (r0),r2 ; .b 067722: 005203 inc r3 ; .. 067724: 020327 000377 cmp r3,#377 ; W .. 067730: 002767 blt 67710 ; w. 067732: 005765 000012 tst 12(r5) ; u... 067736: 001001 bne 67742 ; .. 067740: 005202 inc r2 ; .. 067742: 016500 000006 mov 6(r5),r0 ; @... 067746: 010260 000776 mov r2,776(r0) ; 0.~. 067752: 005064 000006 clr 6(r4) ; 4... 067756: 005064 000010 clr 10(r4) ; 4... 067762: 005064 000026 clr 26(r4) ; 4... 067766: 016546 000010 mov 10(r5),-(sp) ; f... 067772: 062716 000022 add #22,(sp) ; Ne.. 067776: 016546 000006 mov 6(r5),-(sp) ; f... 070002: 012746 000003 mov #3,-(sp) ; f... 070006: 010446 mov r4,-(sp) ; &. 070010: 004767 000036 call 70052 ; w... 070014: 062706 000010 add #10,sp ; Fe.. 070020: 016500 000010 mov 10(r5),r0 ; @... 070024: 026027 000022 000003 cmp 22(r0),#3 ; .,.... 070032: 001003 bne 70042 ; .. 070034: 012700 075775 mov #75775,r0 ; @.}{ 070040: 000402 br 70046 ; .. ; 070042: 005000 clr r0 ; .. 070044: 000400 br 70046 ; .. ; 070046: 000167 007042 jmp cret$ ; w.". ; 070052: 004567 007022 jsr r5,csv$ ; w... 070056: 016504 000004 mov 4(r5),r4 ; D... 070062: 016503 000006 mov 6(r5),r3 ; C... 070066: 005303 dec r3 ; C. 070070: 002432 blt 70156 ; .. 070072: 052764 100000 000024 bis #100000,24(r4) ; tU.... 070100: 012746 001000 mov #1000,-(sp) ; f... 070104: 016546 000010 mov 10(r5),-(sp) ; f... 070110: 010446 mov r4,-(sp) ; &. 070112: 004767 120206 call fill$tcb ; w.. 070116: 062706 000006 add #6,sp ; Fe.. 070122: 010446 mov r4,-(sp) ; &. 070124: 004767 146750 call write ; w.hM 070130: 005726 tst (sp)+ ; V. 070132: 005700 tst r0 ; @. 070134: 001402 beq 70142 ; .. 070136: 005275 000012 inc @12(r5) ; =... 070142: 062764 000001 000010 add #1,10(r4) ; te.... 070150: 005564 000006 adc 6(r4) ; t... 070154: 000744 br 70066 ; d. ; 070156: 000167 006732 jmp cret$ ; w.Z. ; 070162: 004567 006712 jsr r5,csv$ ; w.J. 070166: 016504 000006 mov 6(r5),r4 ; D... 070172: 010446 mov r4,-(sp) ; &. 070174: 016546 000012 mov 12(r5),-(sp) ; f... 070200: 016546 000010 mov 10(r5),-(sp) ; f... 070204: 004767 000106 call 70316 ; w.F. 070210: 062706 000006 add #6,sp ; Fe.. 070214: 010003 mov r0,r3 ; .. 070216: 001022 bne 70264 ; .. 070220: 012702 000004 mov #4,r2 ; B... 070224: 000411 br 70250 ; .. ; 070226: 016546 000004 mov 4(r5),-(sp) ; f... 070232: 004767 122404 call put$udc ; w..% 070236: 005726 tst (sp)+ ; V. 070240: 036727 047546 000030 bit r$cmd,#30 ; W=fO.. 070246: 001402 beq 70254 ; .. 070250: 005302 dec r2 ; B. 070252: 002365 bge 70226 ; u. 070254: 005702 tst r2 ; B. 070256: 002002 bge 70264 ; .. 070260: 012703 000001 mov #1,r3 ; C... 070264: 012767 000107 047530 mov #107,w$cmd ; w.G.XO 070272: 016767 007710 047520 mov 100206,w$dat ; w.H.PO 070300: 010446 mov r4,-(sp) ; &. 070302: 004767 151634 call deselect ; w..S 070306: 005726 tst (sp)+ ; V. 070310: 010300 mov r3,r0 ; @. 070312: 000167 006576 jmp cret$ ; w.~. ; 070316: 004567 006556 jsr r5,csv$ ; w.n. 070322: 016504 000004 mov 4(r5),r4 ; D... 070326: 016503 000006 mov 6(r5),r3 ; C... 070332: 021427 177777 cmp (r4),#177777 ; .#.. 070336: 001006 bne 70354 ; .. 070340: 005014 clr (r4) ; .. 070342: 016546 000010 mov 10(r5),-(sp) ; f... 070346: 004767 146012 call restore ; w..L 070352: 005726 tst (sp)+ ; V. 070354: 005065 177770 clr 177770(r5) ; 5.x. 070360: 021403 cmp (r4),r3 ; .# 070362: 001475 beq 70556 ; =. 070364: 021403 cmp (r4),r3 ; .# 070366: 002016 bge 70424 ; .. 070370: 010302 mov r3,r2 ; B. 070372: 161402 sub (r4),r2 ; .c 070374: 000410 br 70416 ; .. ; 070376: 005067 007632 clr 100234 ; 7... 070402: 012767 000005 047412 mov #5,w$cmd ; w....O 070410: 005767 007620 tst 100234 ; w... 070414: 001775 beq 70410 ; }. 070416: 005302 dec r2 ; B. 070420: 002366 bge 70376 ; v. 070422: 010314 mov r3,(r4) ; L. 070424: 021403 cmp (r4),r3 ; .# 070426: 003416 ble 70464 ; .. 070430: 011402 mov (r4),r2 ; .. 070432: 160302 sub r3,r2 ; B` 070434: 000410 br 70456 ; .. ; 070436: 005067 007572 clr 100234 ; 7.z. 070442: 012767 000007 047352 mov #7,w$cmd ; w...jN 070450: 005767 007560 tst 100234 ; w.p. 070454: 001775 beq 70450 ; }. 070456: 005302 dec r2 ; B. 070460: 002366 bge 70436 ; v. 070462: 010314 mov r3,(r4) ; L. 070464: 012767 000111 047330 mov #111,w$cmd ; w.I.XN 070472: 036727 047312 000040 bit r$dat,#40 ; W=JN . 070500: 001001 bne 70504 ; .. 070502: 000770 br 70464 ; x. ; 070504: 005703 tst r3 ; C. 070506: 003422 ble 70554 ; .. 070510: 012767 000111 047304 mov #111,w$cmd ; w.I.DN 070516: 036727 047266 000020 bit r$dat,#20 ; W=6N.. 070524: 001413 beq 70554 ; .. 070526: 005014 clr (r4) ; .. 070530: 005265 177770 inc 177770(r5) ; 5.x. 070534: 016500 177770 mov 177770(r5),r0 ; @.x. 070540: 020027 000003 cmp r0,#3 ; . .. 070544: 003403 ble 70554 ; .. 070546: 012700 075742 mov #75742,r0 ; @.b{ 070552: 000402 br 70560 ; .. ; 070554: 000701 br 70360 ; A. ; 070556: 005000 clr r0 ; .. 070560: 000167 006330 jmp cret$ ; w.X. ; 070564: 004567 006310 jsr r5,csv$ ; w.H. 070570: 016504 000006 mov 6(r5),r4 ; D... 070574: 010446 mov r4,-(sp) ; &. 070576: 004767 135276 call fill$id ; w.>: 070602: 005726 tst (sp)+ ; V. 070604: 016500 000004 mov 4(r5),r0 ; @... 070610: 006300 asl r0 ; @. 070612: 006300 asl r0 ; @. 070614: 062700 100066 add #100066,r0 ; @e6. 070620: 116000 000002 movb 2(r0),r0 ; .... 070624: 000167 006264 jmp cret$ ; w.4. ; 070630: 075346 .word 075346 ; fz 070632: 075352 .word 075352 ; jz 070634: 075356 .word 075356 ; nz 070636: 075332 .word 075332 ; Zz 070640: 075362 .word 075362 ; rz 070642: 075340 .word 075340 ; `z 070644: 004567 006230 jsr r5,csv$ ; w... 070650: 162706 000020 sub #20,sp ; Fe.. 070654: 016504 000006 mov 6(r5),r4 ; D... 070660: 012702 111632 mov #111632,r2 ; B... 070664: 010200 mov r2,r0 ; .. 070666: 062700 001000 add #1000,r0 ; @e.. 070672: 010065 177750 mov r0,177750(r5) ; 5.h. 070676: 005064 000010 clr 10(r4) ; 4... 070702: 005064 000006 clr 6(r4) ; 4... 070706: 005003 clr r3 ; .. 070710: 000167 000364 jmp 71300 ; w.t. ; 070714: 010546 mov r5,-(sp) ; f. 070716: 062716 177770 add #177770,(sp) ; Nex. 070722: 010246 mov r2,-(sp) ; &. 070724: 010246 mov r2,-(sp) ; &. 070726: 016546 177750 mov 177750(r5),-(sp) ; f.h. 070732: 010300 mov r3,r0 ; @. 070734: 006300 asl r0 ; @. 070736: 062700 070630 add #70630,r0 ; @e.q 070742: 011000 mov (r0),r0 ; .. 070744: 010046 mov r0,-(sp) ; &. 070746: 004767 001202 call 72154 ; w... 070752: 062706 000012 add #12,sp ; Fe.. 070756: 005700 tst r0 ; @. 070760: 001402 beq 70766 ; .. 070762: 000167 000356 jmp 71344 ; w.n. ; 070766: 010300 mov r3,r0 ; @. 070770: 000534 br 71262 ; \. ; 070772: 016546 000004 mov 4(r5),-(sp) ; f... 070776: 016546 177770 mov 177770(r5),-(sp) ; f.x. 071002: 010246 mov r2,-(sp) ; &. 071004: 004767 000340 call 71350 ; w.`. 071010: 062706 000006 add #6,sp ; Fe.. 071014: 005700 tst r0 ; @. 071016: 001402 beq 71024 ; .. 071020: 000167 000320 jmp 71344 ; w.P. ; 071024: 000524 br 71276 ; T. ; 071026: 010546 mov r5,-(sp) ; f. 071030: 062716 177766 add #177766,(sp) ; Nev. 071034: 016546 177770 mov 177770(r5),-(sp) ; f.x. 071040: 010246 mov r2,-(sp) ; &. 071042: 004767 004160 call 75226 ; w.p. 071046: 062706 000006 add #6,sp ; Fe.. 071052: 005700 tst r0 ; @. 071054: 001133 bne 71344 ; [. 071056: 010300 mov r3,r0 ; @. 071060: 000442 br 71166 ; ". ; 071062: 005765 177766 tst 177766(r5) ; u.v. 071066: 001405 beq 71102 ; .. 071070: 012764 000001 000006 mov #1,6(r4) ; t..... 071076: 012703 000003 mov #3,r3 ; C... 071102: 000440 br 71204 ; . ; 071104: 005765 177766 tst 177766(r5) ; u.v. 071110: 001010 bne 71132 ; .. 071112: 012764 000002 000006 mov #2,6(r4) ; t..... 071120: 012764 000001 000010 mov #1,10(r4) ; t..... 071126: 012703 000004 mov #4,r3 ; C... 071132: 000424 br 71204 ; .. ; 071134: 005765 177766 tst 177766(r5) ; u.v. 071140: 001404 beq 71152 ; .. 071142: 012764 000001 000010 mov #1,10(r4) ; t..... 071150: 000405 br 71164 ; .. ; 071152: 005764 000006 tst 6(r4) ; t... 071156: 001402 beq 71164 ; .. 071160: 012703 000005 mov #5,r3 ; C... 071164: 000407 br 71204 ; .. ; 071166: 005300 dec r0 ; @. 071170: 020027 000003 cmp r0,#3 ; . .. 071174: 101003 bhi 71204 ; .. 071176: 006300 asl r0 ; @. 071200: 000170 077344 jmp @jtblfmt1(r0) ; x.d~ ; 071204: 000434 br 71276 ; .. ; 071206: 016546 000010 mov 10(r5),-(sp) ; f... 071212: 010246 mov r2,-(sp) ; &. 071214: 004767 000364 call 71604 ; w.t. 071220: 022626 cmp (sp)+,(sp)+ ; .% 071222: 005700 tst r0 ; @. 071224: 001047 bne 71344 ; '. 071226: 000423 br 71276 ; .. ; 071230: 010546 mov r5,-(sp) ; f. 071232: 062716 177752 add #177752,(sp) ; Nej. 071236: 016546 177770 mov 177770(r5),-(sp) ; f.x. 071242: 010246 mov r2,-(sp) ; &. 071244: 004767 003442 call 74712 ; w.". 071250: 062706 000006 add #6,sp ; Fe.. 071254: 005700 tst r0 ; @. 071256: 001032 bne 71344 ; .. 071260: 000406 br 71276 ; .. ; 071262: 020027 000005 cmp r0,#5 ; . .. 071266: 101374 bhi 71260 ; |. 071270: 006300 asl r0 ; @. 071272: 000170 077354 jmp @jtblfmt2(r0) ; x.l~ ; 071276: 005203 inc r3 ; .. 071300: 020327 000006 cmp r3,#6 ; W .. 071304: 002603 blt 70714 ; .. 071306: 010546 mov r5,-(sp) ; f. 071310: 062716 177756 add #177756,(sp) ; Nen. 071314: 010546 mov r5,-(sp) ; f. 071316: 062716 177752 add #177752,(sp) ; Nej. 071322: 016546 000004 mov 4(r5),-(sp) ; f... 071326: 016546 000010 mov 10(r5),-(sp) ; f... 071332: 010446 mov r4,-(sp) ; &. 071334: 004767 000322 call 71662 ; w.R. 071340: 062706 000012 add #12,sp ; Fe.. 071344: 000167 005544 jmp cret$ ; w.d. ; 071350: 004567 005524 jsr r5,csv$ ; w.T. 071354: 016504 000010 mov 10(r5),r4 ; D... 071360: 010546 mov r5,-(sp) ; f. 071362: 062716 177770 add #177770,(sp) ; Nex. 071366: 016546 000006 mov 6(r5),-(sp) ; f... 071372: 016546 000004 mov 4(r5),-(sp) ; f... 071376: 004767 003304 call 74706 ; w.D. 071402: 062706 000006 add #6,sp ; Fe.. 071406: 005700 tst r0 ; @. 071410: 001073 bne 71600 ; ;. 071412: 016546 177770 mov 177770(r5),-(sp) ; f.x. 071416: 004767 151700 call get.ucb ; w.@S 071422: 005726 tst (sp)+ ; V. 071424: 010003 mov r0,r3 ; .. 071426: 001003 bne 71436 ; .. 071430: 012700 075704 mov #75704,r0 ; @.D{ 071434: 000461 br 71600 ; 1. ; 071436: 036327 000012 020000 bit 12(r3),#20000 ; W<... 071444: 001403 beq 71454 ; .. 071446: 012700 075775 mov #75775,r0 ; @.}{ 071452: 000452 br 71600 ; *. ; 071454: 036327 000030 000010 bit 30(r3),#10 ; W<.... 071462: 001434 beq 71554 ; .. 071464: 012746 111632 mov #111632,-(sp) ; f... 071470: 012746 111632 mov #111632,-(sp) ; f... 071474: 012746 075513 mov #75513,-(sp) ; f.K{ 071500: 004767 002644 call 74350 ; w.$. 071504: 062706 000006 add #6,sp ; Fe.. 071510: 005700 tst r0 ; @. 071512: 001032 bne 71600 ; .. 071514: 036327 000030 001000 bit 30(r3),#1000 ; W<.... 071522: 001411 beq 71546 ; .. 071524: 010346 mov r3,-(sp) ; f. 071526: 004767 157260 call $do$fmt ; w.0^ 071532: 005726 tst (sp)+ ; V. 071534: 005700 tst r0 ; @. 071536: 001003 bne 71546 ; .. 071540: 012700 075666 mov #75666,r0 ; @.6{ 071544: 000415 br 71600 ; .. ; 071546: 012700 075763 mov #75763,r0 ; @.s{ 071552: 000412 br 71600 ; .. ; 071554: 036327 000030 000002 bit 30(r3),#2 ; W<.... 071562: 001403 beq 71572 ; .. 071564: 012700 075704 mov #75704,r0 ; @.D{ 071570: 000403 br 71600 ; .. ; 071572: 010364 000002 mov r3,2(r4) ; t... 071576: 005000 clr r0 ; .. 071600: 000167 005310 jmp cret$ ; w.H. ; 071604: 004567 005270 jsr r5,csv$ ; w.8. 071610: 016504 000004 mov 4(r5),r4 ; D... 071614: 016503 000006 mov 6(r5),r3 ; C... 071620: 012702 000012 mov #12,r2 ; B... 071624: 060302 add r3,r2 ; B` 071626: 012746 000050 mov #50,-(sp) ; f.(. 071632: 010246 mov r2,-(sp) ; &. 071634: 010446 mov r4,-(sp) ; &. 071636: 004767 002230 call 74072 ; w... 071642: 062706 000006 add #6,sp ; Fe.. 071646: 112763 000066 000011 movb #66,11(r3) ; s.6... 071654: 005000 clr r0 ; .. 071656: 000167 005232 jmp cret$ ; w... ; 071662: 004567 005212 jsr r5,csv$ ; w... 071666: 016504 000006 mov 6(r5),r4 ; D... 071672: 016503 000012 mov 12(r5),r3 ; C... 071676: 016502 000010 mov 10(r5),r2 ; B... 071702: 016202 000002 mov 2(r2),r2 ; .... 071706: 016500 000004 mov 4(r5),r0 ; @... 071712: 005760 000006 tst 6(r0) ; p... 071716: 001425 beq 71772 ; .. 071720: 016546 000010 mov 10(r5),-(sp) ; f... 071724: 004767 140106 call rd$uib ; w.F@ 071730: 005726 tst (sp)+ ; V. 071732: 005700 tst r0 ; @. 071734: 001403 beq 71744 ; .. 071736: 012700 075730 mov #75730,r0 ; @.X{ 071742: 000502 br 72150 ; B. ; 071744: 016500 000004 mov 4(r5),r0 ; @... 071750: 005760 000010 tst 10(r0) ; p... 071754: 001006 bne 71772 ; .. 071756: 010300 mov r3,r0 ; @. 071760: 016210 000020 mov 20(r2),(r0) ; .... 071764: 016260 000022 000002 mov 22(r2),2(r0) ; 0..... 071772: 016364 000002 000140 mov 2(r3),140(r4) ; t...`. 072000: 011364 000142 mov (r3),142(r4) ; t.b. 072004: 005064 000144 clr 144(r4) ; 4.d. 072010: 005064 000146 clr 146(r4) ; 4.f. 072014: 012764 000001 000132 mov #1,132(r4) ; t...Z. 072022: 012764 126736 000134 mov #126736,134(r4) ; t.^-\. 072030: 012746 000004 mov #4,-(sp) ; f... 072034: 010446 mov r4,-(sp) ; &. 072036: 062716 000160 add #160,(sp) ; Nep. 072042: 016546 000014 mov 14(r5),-(sp) ; f... 072046: 004767 002020 call 74072 ; w... 072052: 062706 000006 add #6,sp ; Fe.. 072056: 016500 000004 mov 4(r5),r0 ; @... 072062: 005760 000006 tst 6(r0) ; p... 072066: 001015 bne 72122 ; .. 072070: 012746 000004 mov #4,-(sp) ; f... 072074: 010446 mov r4,-(sp) ; &. 072076: 062716 000150 add #150,(sp) ; Neh. 072102: 016546 000014 mov 14(r5),-(sp) ; f... 072106: 004767 001760 call 74072 ; w.p. 072112: 062706 000006 add #6,sp ; Fe.. 072116: 005064 000136 clr 136(r4) ; 4.^. 072122: 005264 000136 inc 136(r4) ; 4.^. 072126: 010246 mov r2,-(sp) ; &. 072130: 010446 mov r4,-(sp) ; &. 072132: 004767 137044 call uib$to$ucb ; w.$> 072136: 022626 cmp (sp)+,(sp)+ ; .% 072140: 012762 040004 000030 mov #40004,30(r2) ; r..@.. 072146: 005000 clr r0 ; .. 072150: 000167 004740 jmp cret$ ; w.`. ; 072154: 004567 004720 jsr r5,csv$ ; w.P. 072160: 016546 000010 mov 10(r5),-(sp) ; f... 072164: 016546 000006 mov 6(r5),-(sp) ; f... 072170: 016546 000004 mov 4(r5),-(sp) ; f... 072174: 004767 002150 call 74350 ; w.h. 072200: 062706 000006 add #6,sp ; Fe.. 072204: 005700 tst r0 ; @. 072206: 001012 bne 72234 ; .. 072210: 016546 000014 mov 14(r5),-(sp) ; f... 072214: 016546 000012 mov 12(r5),-(sp) ; f... 072220: 016546 000004 mov 4(r5),-(sp) ; f... 072224: 004767 002646 call 75076 ; w.&. 072230: 062706 000006 add #6,sp ; Fe.. 072234: 000167 004654 jmp cret$ ; w.,. ; 072240: 004537 077100 jsr r5,@#csv$ ; _.@~ 072244: 112737 000001 102665 movb #1,@#102665 ; _...5. 072252: 016502 000004 mov 4(r5),r2 ; B... 072256: 016503 000006 mov 6(r5),r3 ; C... 072262: 016504 000010 mov 10(r5),r4 ; D... 072266: 005063 000012 clr 12(r3) ; 3... 072272: 026327 000006 000002 cmp 6(r3),#2 ; W,.... 072300: 001456 beq 72436 ; .. 072302: 005062 000032 clr 32(r2) ; 2... 072306: 012762 112632 000044 mov #112632,44(r2) ; r...$. 072314: 116237 000032 102664 movb 32(r2),@#102664 ; ....4. 072322: 005037 102666 clr @#102666 ; ..6. 072326: 004737 072444 call @#72444 ; _.$u 072332: 004737 074012 call @#74012 ; _..x 072336: 005700 tst r0 ; @. 072340: 001015 bne 72374 ; .. 072342: 012763 000001 000012 mov #1,12(r3) ; s..... 072350: 004737 073450 call @#73450 ; _.(w 072354: 005700 tst r0 ; @. 072356: 001030 bne 72440 ; .. 072360: 005262 000032 inc 32(r2) ; 2... 072364: 026264 000032 000034 cmp 32(r2),34(r4) ; 4,.... 072372: 002745 blt 72306 ; e. 072374: 010002 mov r0,r2 ; .. 072376: 012700 076032 mov #76032,r0 ; @..| 072402: 005763 000012 tst 12(r3) ; s... 072406: 001403 beq 72416 ; .. 072410: 005702 tst r2 ; B. 072412: 001012 bne 72440 ; .. 072414: 000410 br 72436 ; .. ; 072416: 012700 076043 mov #76043,r0 ; @.#| 072422: 005763 000010 tst 10(r3) ; s... 072426: 001404 beq 72440 ; .. 072430: 012763 000002 000006 mov #2,6(r3) ; s..... 072436: 005000 clr r0 ; .. 072440: 000137 077114 jmp @#cret$ ; _.L~ ; 072444: 010446 mov r4,-(sp) ; &. 072446: 012746 000004 mov #4,-(sp) ; f... 072452: 016446 000036 mov 36(r4),-(sp) ; &... 072456: 005316 dec (sp) ; N. 072460: 005366 000002 dec 2(sp) ; v... 072464: 001577 beq 73064 ; .. 072466: 016204 000002 mov 2(r2),r4 ; .... 072472: 010446 mov r4,-(sp) ; &. 072474: 004737 041622 call @#select ; _..C 072500: 005726 tst (sp)+ ; V. 072502: 012737 000100 140022 mov #100,@#w$cmd ; _.@..@ 072510: 016200 000044 mov 44(r2),r0 ; ..$. 072514: 012701 140020 mov #w$dat,r1 ; A..@ 072520: 010011 mov r0,(r1) ; .. 072522: 000300 swab r0 ; @. 072524: 010011 mov r0,(r1) ; .. 072526: 005011 clr (r1) ; .. 072530: 005011 clr (r1) ; .. 072532: 016211 000032 mov 32(r2),(r1) ; .... 072536: 011611 mov (sp),(r1) ; .. 072540: 012711 000001 mov #1,(r1) ; I... 072544: 013711 100206 mov @#100206,(r1) ; I... 072550: 016411 000070 mov 70(r4),(r1) ; ..8. 072554: 016446 000072 mov 72(r4),-(sp) ; &.:. 072560: 004737 012642 call @#put$udc ; _.". 072564: 005726 tst (sp)+ ; V. 072566: 012713 177777 mov #177777,(r3) ; K... 072572: 010346 mov r3,-(sp) ; f. 072574: 010446 mov r4,-(sp) ; &. 072576: 012746 000133 mov #133,-(sp) ; f.[. 072602: 004737 070162 call @#70162 ; _.rp 072606: 062706 000006 add #6,sp ; Fe.. 072612: 005700 tst r0 ; @. 072614: 001321 bne 72460 ; Q. 072616: 012700 000044 mov #44,r0 ; @.$. 072622: 060200 add r2,r0 ; .` 072624: 005063 000002 clr 2(r3) ; 3... 072630: 005063 000004 clr 4(r3) ; 3... 072634: 004737 073424 call @#73424 ; _..w 072640: 020027 000001 cmp r0,#1 ; . .. 072644: 001705 beq 72460 ; E. 072646: 012701 000376 mov #376,r1 ; A.~. 072652: 116604 000001 movb 1(sp),r4 ; .... 072656: 074104 xor r1,r4 ; Dx 072660: 122004 cmpb (r0)+,r4 ; .$ 072662: 001360 bne 72624 ; p. 072664: 122016 cmpb (r0)+,(sp) ; .$ 072666: 001356 bne 72624 ; n. 072670: 122062 000032 cmpb (r0)+,32(r2) ; 2$.. 072674: 001353 bne 72624 ; k. 072676: 062700 000003 add #3,r0 ; @e.. 072702: 004737 073424 call @#73424 ; _..w 072706: 020027 000001 cmp r0,#1 ; . .. 072712: 001662 beq 72460 ; 2. 072714: 122027 000370 cmpb (r0)+,#370 ; .$x. 072720: 001341 bne 72624 ; a. 072722: 005746 tst -(sp) ; f. 072724: 112016 movb (r0)+,(sp) ; .. 072726: 112066 000001 movb (r0)+,1(sp) ; 6... 072732: 011601 mov (sp),r1 ; .. 072734: 112016 movb (r0)+,(sp) ; .. 072736: 112066 000001 movb (r0)+,1(sp) ; 6... 072742: 012604 mov (sp)+,r4 ; .. 072744: 020127 024260 cmp r1,#24260 ; W 0( 072750: 101325 bhi 72624 ; U. 072752: 005701 tst r1 ; A. 072754: 001002 bne 72762 ; .. 072756: 005704 tst r4 ; D. 072760: 001440 beq 73062 ; . 072762: 010446 mov r4,-(sp) ; &. 072764: 042716 177760 bic #177760,(sp) ; NEp. 072770: 026226 000032 cmp 32(r2),(sp)+ ; .,.. 072774: 001313 bne 72624 ; K. 072776: 006204 asr r4 ; .. 073000: 006204 asr r4 ; .. 073002: 006204 asr r4 ; .. 073004: 006204 asr r4 ; .. 073006: 005704 tst r4 ; D. 073010: 003705 ble 72624 ; E. 073012: 020416 cmp r4,(sp) ; .! 073014: 003303 bgt 72624 ; C. 073016: 010462 000030 mov r4,30(r2) ; 2... 073022: 016604 000004 mov 4(sp),r4 ; .... 073026: 026364 000002 000106 cmp 2(r3),106(r4) ; t,..F. 073034: 002211 bge 72460 ; .. 073036: 010046 mov r0,-(sp) ; &. 073040: 004737 073072 call @#73072 ; _.:v 073044: 012600 mov (sp)+,r0 ; .. 073046: 005263 000002 inc 2(r3) ; 3... 073052: 026327 000002 000100 cmp 2(r3),#100 ; W,..@. 073060: 002720 blt 72722 ; P. 073062: 005000 clr r0 ; .. 073064: 022626 cmp (sp)+,(sp)+ ; .% 073066: 012604 mov (sp)+,r4 ; .. 073070: 000207 return ; .. ; 073072: 004537 077100 jsr r5,@#csv$ ; _.@~ 073076: 162706 000006 sub #6,sp ; Fe.. 073102: 016402 000076 mov 76(r4),r2 ; ..>. 073106: 066402 000046 add 46(r4),r2 ; .m&. 073112: 006302 asl r2 ; B. 073114: 066402 000072 add 72(r4),r2 ; .m:. 073120: 066402 000074 add 74(r4),r2 ; .m<. 073124: 062702 001013 add #1013,r2 ; Be.. 073130: 166401 000066 sub 66(r4),r1 ; .m6. 073134: 166401 000070 sub 70(r4),r1 ; .m8. 073140: 016403 000110 mov 110(r4),r3 ; ..H. 073144: 010346 mov r3,-(sp) ; f. 073146: 005416 neg (sp) ; .. 073150: 020126 cmp r1,(sp)+ ; V 073152: 002476 blt 73350 ; >. 073154: 010346 mov r3,-(sp) ; f. 073156: 016400 000032 mov 32(r4),r0 ; .... 073162: 060216 add r2,(sp) ; .` 073164: 077002 sob r0,73162 ; .~ 073166: 020126 cmp r1,(sp)+ ; V 073170: 003067 bgt 73350 ; 7. 073172: 010546 mov r5,-(sp) ; f. 073174: 062716 177766 add #177766,(sp) ; Nev. 073200: 010246 mov r2,-(sp) ; &. 073202: 010146 mov r1,-(sp) ; f. 073204: 005046 clr -(sp) ; &. 073206: 004737 033042 call @#33042 ; _."6 073212: 062706 000006 add #6,sp ; Fe.. 073216: 010301 mov r3,r1 ; A. 073220: 012603 mov (sp)+,r3 ; .. 073222: 005723 tst (r3)+ ; S. 073224: 016446 000032 mov 32(r4),-(sp) ; &... 073230: 005316 dec (sp) ; N. 073232: 021326 cmp (r3),(sp)+ ; V" 073234: 003014 bgt 73266 ; .. 073236: 001406 beq 73254 ; .. 073240: 160102 sub r1,r2 ; B` 073242: 020002 cmp r0,r2 ; . 073244: 003403 ble 73254 ; .. 073246: 011343 mov (r3),-(r3) ; c. 073250: 005213 inc (r3) ; .. 073252: 000406 br 73270 ; .. ; 073254: 005713 tst (r3) ; K. 073256: 003404 ble 73270 ; .. 073260: 020001 cmp r0,r1 ; . 073262: 003002 bgt 73270 ; .. 073264: 011343 mov (r3),-(r3) ; c. 073266: 005313 dec (r3) ; K. 073270: 010504 mov r5,r4 ; D. 073272: 062704 177762 add #177762,r4 ; Der. 073276: 016502 177772 mov 177772(r5),r2 ; B.z. 073302: 010246 mov r2,-(sp) ; &. 073304: 012346 mov (r3)+,-(sp) ; f. 073306: 004737 070564 call @#70564 ; _.tq 073312: 022626 cmp (sp)+,(sp)+ ; .% 073314: 010062 000034 mov r0,34(r2) ; 2... 073320: 010446 mov r4,-(sp) ; &. 073322: 010246 mov r2,-(sp) ; &. 073324: 004737 074250 call @#74250 ; _.(x 073330: 022626 cmp (sp)+,(sp)+ ; .% 073332: 004737 073354 call @#73354 ; _.lv 073336: 010500 mov r5,r0 ; @. 073340: 062700 177770 add #177770,r0 ; @ex. 073344: 020300 cmp r3,r0 ; @ 073346: 003753 ble 73276 ; k. 073350: 000137 077114 jmp @#cret$ ; _.L~ ; 073354: 012701 111632 mov #111632,r1 ; A... 073360: 016502 177774 mov 177774(r5),r2 ; B.|. 073364: 062702 000004 add #4,r2 ; Be.. 073370: 011200 mov (r2),r0 ; .. 073372: 001407 beq 73412 ; .. 073374: 021421 cmp (r4),(r1)+ ; .# 073376: 001003 bne 73406 ; .. 073400: 026411 000002 cmp 2(r4),(r1) ; .-.. 073404: 001406 beq 73422 ; .. 073406: 005721 tst (r1)+ ; Q. 073410: 077007 sob r0,73374 ; .~ 073412: 011421 mov (r4),(r1)+ ; .. 073414: 016421 000002 mov 2(r4),(r1)+ ; .... 073420: 005212 inc (r2) ; .. 073422: 000207 return ; .. ; 073424: 020027 135751 cmp r0,#135751 ; . i; 073430: 103004 bcc 73442 ; .. 073432: 122027 000241 cmpb (r0)+,#241 ; .$!. 073436: 001372 bne 73424 ; z. 073440: 000207 return ; .. ; 073442: 012700 000001 mov #1,r0 ; @... 073446: 000207 return ; .. ; 073450: 010446 mov r4,-(sp) ; &. 073452: 024646 cmp -(sp),-(sp) ; &) 073454: 012704 111632 mov #111632,r4 ; D... 073460: 005763 000004 tst 4(r3) ; s... 073464: 001546 beq 74002 ; f. 073466: 005237 102666 inc @#102666 ; ..6. 073472: 016201 000002 mov 2(r2),r1 ; .... 073476: 012700 000020 mov #20,r0 ; @... 073502: 016166 000046 000002 mov 46(r1),2(sp) ; v.&... 073510: 016116 000044 mov 44(r1),(sp) ; N.$. 073514: 021416 cmp (r4),(sp) ; .# 073516: 103475 bcs 73712 ; =. 073520: 101004 bhi 73532 ; .. 073522: 026466 000002 000002 cmp 2(r4),2(sp) ; 6-.... 073530: 103470 bcs 73712 ; 8. 073532: 066166 000010 000002 add 10(r1),2(sp) ; vl.... 073540: 005516 adc (sp) ; N. 073542: 066116 000006 add 6(r1),(sp) ; Nl.. 073546: 021416 cmp (r4),(sp) ; .# 073550: 101005 bhi 73564 ; .. 073552: 103462 bcs 73720 ; 2. 073554: 026466 000002 000002 cmp 2(r4),2(sp) ; 6-.... 073562: 103456 bcs 73720 ; .. 073564: 012700 000016 mov #16,r0 ; @... 073570: 016166 000056 000002 mov 56(r1),2(sp) ; v..... 073576: 016116 000054 mov 54(r1),(sp) ; N.,. 073602: 021416 cmp (r4),(sp) ; .# 073604: 101005 bhi 73620 ; .. 073606: 103441 bcs 73712 ; !. 073610: 026466 000002 000002 cmp 2(r4),2(sp) ; 6-.... 073616: 103435 bcs 73712 ; .. 073620: 066166 000062 000002 add 62(r1),2(sp) ; vl2... 073626: 005516 adc (sp) ; N. 073630: 066116 000060 add 60(r1),(sp) ; Nl0. 073634: 021416 cmp (r4),(sp) ; .# 073636: 101054 bhi 73770 ; ,. 073640: 103404 bcs 73652 ; .. 073642: 026466 000002 000002 cmp 2(r4),2(sp) ; 6-.... 073650: 103047 bcc 73770 ; '. 073652: 011416 mov (r4),(sp) ; .. 073654: 016466 000002 000002 mov 2(r4),2(sp) ; 6..... 073662: 166166 000046 000002 sub 46(r1),2(sp) ; vl&... 073670: 005616 sbc (sp) ; .. 073672: 166116 000044 sub 44(r1),(sp) ; Nl$. 073676: 010246 mov r2,-(sp) ; &. 073700: 004737 024216 call @#24216 ; _..( 073704: 005726 tst (sp)+ ; V. 073706: 012700 000016 mov #16,r0 ; @... 073712: 060300 add r3,r0 ; @` 073714: 005210 inc (r0) ; .. 073716: 000424 br 73770 ; .. ; 073720: 011462 000006 mov (r4),6(r2) ; 2... 073724: 016462 000002 000010 mov 2(r4),10(r2) ; 2..... 073732: 052761 100000 000030 bis #100000,30(r1) ; qU.... 073740: 010346 mov r3,-(sp) ; f. 073742: 010246 mov r2,-(sp) ; &. 073744: 004737 067174 call @#67174 ; _.|n 073750: 022626 cmp (sp)+,(sp)+ ; .% 073752: 016201 000002 mov 2(r2),r1 ; .... 073756: 042761 100000 000030 bic #100000,30(r1) ; qE.... 073764: 005700 tst r0 ; @. 073766: 001006 bne 74004 ; .. 073770: 062704 000004 add #4,r4 ; De.. 073774: 005363 000004 dec 4(r3) ; s... 074000: 003232 bgt 73466 ; .. 074002: 005000 clr r0 ; .. 074004: 022626 cmp (sp)+,(sp)+ ; .% 074006: 012604 mov (sp)+,r4 ; .. 074010: 000207 return ; .. ; 074012: 010046 mov r0,-(sp) ; &. 074014: 016246 000002 mov 2(r2),-(sp) ; &... 074020: 004737 041622 call @#select ; _..C 074024: 005726 tst (sp)+ ; V. 074026: 016246 000002 mov 2(r2),-(sp) ; &... 074032: 005046 clr -(sp) ; &. 074034: 010346 mov r3,-(sp) ; f. 074036: 012776 177777 000000 mov #177777,@0(sp) ; ~..... 074044: 004737 070316 call @#70316 ; _.Np 074050: 062706 000006 add #6,sp ; Fe.. 074054: 016246 000002 mov 2(r2),-(sp) ; &... 074060: 004737 042142 call @#deselect ; _.bD 074064: 005726 tst (sp)+ ; V. 074066: 012600 mov (sp)+,r0 ; .. 074070: 000207 return ; .. ; 074072: 010246 mov r2,-(sp) ; &. 074074: 016600 000004 mov 4(sp),r0 ; .... 074100: 016601 000006 mov 6(sp),r1 ; .... 074104: 016602 000010 mov 10(sp),r2 ; .... 074110: 012021 mov (r0)+,(r1)+ ; .. 074112: 077202 sob r2,74110 ; .~ 074114: 012602 mov (sp)+,r2 ; .. 074116: 000207 return ; .. ; 074120: 016600 000002 mov 2(sp),r0 ; .... 074124: 016601 000004 mov 4(sp),r1 ; .... 074130: 005020 clr (r0)+ ; .. 074132: 077102 sob r1,74130 ; B~ 074134: 000207 return ; .. ; 074136: 155555 bisb @-(r5),@-(r5) ; m[ 074140: 133333 bitb @(r3)+,@(r3)+ ; [6 074142: 066666 004537 077100 add 4537(sp),77100(sp) ; 6m_.@~ 074150: 016503 000004 mov 4(r5),r3 ; C... 074154: 016502 000006 mov 6(r5),r2 ; B... 074160: 010346 mov r3,-(sp) ; f. 074162: 010213 mov r2,(r3) ; .. 074164: 005223 inc (r3)+ ; .. 074166: 010346 mov r3,-(sp) ; f. 074170: 012746 075637 mov #75637,-(sp) ; f..{ 074174: 004737 074350 call @#74350 ; _.hx 074200: 022626 cmp (sp)+,(sp)+ ; .% 074202: 012603 mov (sp)+,r3 ; .. 074204: 005700 tst r0 ; @. 074206: 001016 bne 74244 ; .. 074210: 006302 asl r2 ; B. 074212: 016204 074136 mov 74136(r2),r4 ; ..^x 074216: 016500 000010 mov 10(r5),r0 ; @... 074222: 012701 000400 mov #400,r1 ; A... 074226: 010402 mov r4,r2 ; .. 074230: 010223 mov r2,(r3)+ ; .. 074232: 006302 asl r2 ; B. 074234: 100001 bpl 74240 ; .. 074236: 005202 inc r2 ; .. 074240: 077105 sob r1,74230 ; E~ 074242: 077011 sob r0,74222 ; .~ 074244: 000137 077114 jmp @#cret$ ; _.L~ ; 074250: 004537 077100 jsr r5,@#csv$ ; _.@~ 074254: 016504 000004 mov 4(r5),r4 ; D... 074260: 016403 000002 mov 2(r4),r3 ; .... 074264: 016401 000032 mov 32(r4),r1 ; .... 074270: 005000 clr r0 ; .. 074272: 016302 000112 mov 112(r3),r2 ; B.J. 074276: 066401 000030 add 30(r4),r1 ; .m.. 074302: 005500 adc r0 ; @. 074304: 077204 sob r2,74276 ; .~ 074306: 016302 000110 mov 110(r3),r2 ; B.H. 074312: 005003 clr r3 ; .. 074314: 005046 clr -(sp) ; &. 074316: 060103 add r1,r3 ; C` 074320: 005516 adc (sp) ; N. 074322: 060016 add r0,(sp) ; .` 074324: 077204 sob r2,74316 ; .~ 074326: 066403 000034 add 34(r4),r3 ; .m.. 074332: 005516 adc (sp) ; N. 074334: 016504 000006 mov 6(r5),r4 ; D... 074340: 012624 mov (sp)+,(r4)+ ; .. 074342: 010314 mov r3,(r4) ; L. 074344: 000137 077114 jmp @#cret$ ; _.L~ ; 074350: 004537 077100 jsr r5,@#csv$ ; _.@~ 074354: 016504 000004 mov 4(r5),r4 ; D... 074360: 016503 000006 mov 6(r5),r3 ; C... 074364: 016402 000000 mov 0(r4),r2 ; .... 074370: 020427 075332 cmp r4,#75332 ; .!Zz 074374: 103441 bcs 74500 ; !. 074376: 020427 075366 cmp r4,#75366 ; .!vz 074402: 103401 bcs 74406 ; .. 074404: 010402 mov r4,r2 ; .. 074406: 112223 movb (r2)+,(r3)+ ; .. 074410: 112223 movb (r2)+,(r3)+ ; .. 074412: 016546 000010 mov 10(r5),-(sp) ; f... 074416: 121227 000000 cmpb (r2),#0 ; .".. 074422: 001413 beq 74452 ; .. 074424: 121227 000045 cmpb (r2),#45 ; ."%. 074430: 001006 bne 74446 ; .. 074432: 010346 mov r3,-(sp) ; f. 074434: 004737 074576 call @#74576 ; _.~y 074440: 012603 mov (sp)+,r3 ; .. 074442: 005202 inc r2 ; .. 074444: 000764 br 74416 ; t. ; 074446: 112223 movb (r2)+,(r3)+ ; .. 074450: 000762 br 74416 ; r. ; 074452: 012604 mov (sp)+,r4 ; .. 074454: 010300 mov r3,r0 ; @. 074456: 166500 000006 sub 6(r5),r0 ; @m.. 074462: 032700 000001 bit #1,r0 ; @5.. 074466: 001427 beq 74546 ; .. 074470: 005200 inc r0 ; .. 074472: 112723 000040 movb #40,(r3)+ ; S. . 074476: 000423 br 74546 ; .. ; 074500: 016400 000002 mov 2(r4),r0 ; .... 074504: 005001 clr r1 ; .. 074506: 112223 movb (r2)+,(r3)+ ; .. 074510: 005201 inc r1 ; .. 074512: 020100 cmp r1,r0 ; @ 074514: 002774 blt 74506 ; |. 074516: 020427 075332 cmp r4,#75332 ; .!Zz 074522: 103011 bcc 74546 ; .. 074524: 016502 000010 mov 10(r5),r2 ; B... 074530: 016400 000004 mov 4(r4),r0 ; .... 074534: 020100 cmp r1,r0 ; @ 074536: 001403 beq 74546 ; .. 074540: 112223 movb (r2)+,(r3)+ ; .. 074542: 005201 inc r1 ; .. 074544: 000773 br 74534 ; {. ; 074546: 010046 mov r0,-(sp) ; &. 074550: 016546 000006 mov 6(r5),-(sp) ; f... 074554: 004737 032520 call @#put$host ; _.P5 074560: 022626 cmp (sp)+,(sp)+ ; .% 074562: 005700 tst r0 ; @. 074564: 001402 beq 74572 ; .. 074566: 012700 000001 mov #1,r0 ; @... 074572: 000137 077114 jmp @#cret$ ; _.L~ ; 074576: 004537 077100 jsr r5,@#csv$ ; _.@~ 074602: 016504 000006 mov 6(r5),r4 ; D... 074606: 012403 mov (r4)+,r3 ; .. 074610: 010465 000006 mov r4,6(r5) ; 5... 074614: 016504 000004 mov 4(r5),r4 ; D... 074620: 012701 074676 mov #74676,r1 ; A.>y 074624: 005000 clr r0 ; .. 074626: 020311 cmp r3,(r1) ; I 074630: 103403 bcs 74640 ; .. 074632: 161103 sub (r1),r3 ; Cb 074634: 005200 inc r0 ; .. 074636: 000773 br 74626 ; {. ; 074640: 062700 000060 add #60,r0 ; @e0. 074644: 110024 movb r0,(r4)+ ; .. 074646: 062701 000002 add #2,r1 ; Ae.. 074652: 020127 074706 cmp r1,#74706 ; W Fy 074656: 103762 bcs 74624 ; r. 074660: 062703 000060 add #60,r3 ; Ce0. 074664: 110324 movb r3,(r4)+ ; T. 074666: 010465 000004 mov r4,4(r5) ; 5... 074672: 000137 077114 jmp @#cret$ ; _.L~ ; 074676: 023420 cmp @(r4)+,(r0)+ ; .' 074700: 001750 beq 74622 ; h. 074702: 000144 jmp -(r4) ; d. ; 074704: 000012 .word 000012 ; .. 074706: 005001 clr r1 ; .. 074710: 000402 br 74716 ; .. ; 074712: 012701 000001 mov #1,r1 ; A... 074716: 004537 077100 jsr r5,@#csv$ ; _.@~ 074722: 016502 000004 mov 4(r5),r2 ; B... 074726: 010246 mov r2,-(sp) ; &. 074730: 066516 000006 add 6(r5),(sp) ; Nm.. 074734: 005003 clr r3 ; .. 074736: 005004 clr r4 ; .. 074740: 020216 cmp r2,(sp) ; . 074742: 103041 bcc 75046 ; !. 074744: 105712 tstb (r2) ; J. 074746: 001437 beq 75046 ; .. 074750: 121227 000015 cmpb (r2),#15 ; .".. 074754: 001434 beq 75046 ; .. 074756: 121227 000012 cmpb (r2),#12 ; .".. 074762: 001431 beq 75046 ; .. 074764: 121227 000060 cmpb (r2),#60 ; ."0. 074770: 103423 bcs 75040 ; .. 074772: 121227 000071 cmpb (r2),#71 ; ."9. 074776: 101020 bhi 75040 ; .. 075000: 012700 000011 mov #11,r0 ; @... 075004: 010446 mov r4,-(sp) ; &. 075006: 010346 mov r3,-(sp) ; f. 075010: 061603 add (sp),r3 ; .c 075012: 005504 adc r4 ; D. 075014: 066604 000002 add 2(sp),r4 ; .m.. 075020: 077005 sob r0,75010 ; .~ 075022: 022626 cmp (sp)+,(sp)+ ; .% 075024: 112200 movb (r2)+,r0 ; .. 075026: 162700 000060 sub #60,r0 ; @e0. 075032: 060003 add r0,r3 ; .` 075034: 005504 adc r4 ; D. 075036: 000740 br 74740 ; `. ; 075040: 012700 076055 mov #76055,r0 ; @.-| 075044: 000412 br 75072 ; .. ; 075046: 005000 clr r0 ; .. 075050: 016502 000010 mov 10(r5),r2 ; B... 075054: 005701 tst r1 ; A. 075056: 001404 beq 75070 ; .. 075060: 010422 mov r4,(r2)+ ; .. 075062: 001002 bne 75070 ; .. 075064: 005703 tst r3 ; C. 075066: 001764 beq 75040 ; t. 075070: 010312 mov r3,(r2) ; J. 075072: 000137 077114 jmp @#cret$ ; _.L~ ; 075076: 004537 077100 jsr r5,@#csv$ ; _.@~ 075102: 016502 000004 mov 4(r5),r2 ; B... 075106: 005003 clr r3 ; .. 075110: 020227 075332 cmp r2,#75332 ; . Zz 075114: 103010 bcc 75136 ; .. 075116: 016246 000004 mov 4(r2),-(sp) ; &... 075122: 020227 075332 cmp r2,#75332 ; . Zz 075126: 103012 bcc 75154 ; .. 075130: 016203 000006 mov 6(r2),r3 ; .... 075134: 000407 br 75154 ; .. ; 075136: 016246 000002 mov 2(r2),-(sp) ; &... 075142: 020227 075346 cmp r2,#75346 ; . fz 075146: 103002 bcc 75154 ; .. 075150: 016203 000004 mov 4(r2),r3 ; .... 075154: 016546 000006 mov 6(r5),-(sp) ; f... 075160: 004737 032346 call @#get$host ; _.f4 075164: 022626 cmp (sp)+,(sp)+ ; .% 075166: 013775 102656 000010 mov @#102656,@10(r5) ; }..... 075174: 005700 tst r0 ; @. 075176: 001403 beq 75206 ; .. 075200: 012700 000001 mov #1,r0 ; @... 075204: 000406 br 75222 ; .. ; 075206: 005775 000010 tst @10(r5) ; }... 075212: 001003 bne 75222 ; .. 075214: 005703 tst r3 ; C. 075216: 001401 beq 75222 ; .. 075220: 010300 mov r3,r0 ; @. 075222: 000137 077114 jmp @#cret$ ; _.L~ ; 075226: 016600 000006 mov 6(sp),r0 ; .... 075232: 005010 clr (r0) ; .. 075234: 005766 000004 tst 4(sp) ; v... 075240: 001432 beq 75326 ; .. 075242: 016601 000002 mov 2(sp),r1 ; .... 075246: 121127 000131 cmpb (r1),#131 ; W"Y. 075252: 001424 beq 75324 ; .. 075254: 121127 000171 cmpb (r1),#171 ; W"y. 075260: 001421 beq 75324 ; .. 075262: 121127 000116 cmpb (r1),#116 ; W"N. 075266: 001417 beq 75326 ; .. 075270: 121127 000156 cmpb (r1),#156 ; W"n. 075274: 001414 beq 75326 ; .. 075276: 105711 tstb (r1) ; I. 075300: 001412 beq 75326 ; .. 075302: 121127 000012 cmpb (r1),#12 ; W".. 075306: 001407 beq 75326 ; .. 075310: 121127 000015 cmpb (r1),#15 ; W".. 075314: 001404 beq 75326 ; .. 075316: 012700 076055 mov #76055,r0 ; @.-| 075322: 000402 br 75330 ; .. ; 075324: 005210 inc (r0) ; .. 075326: 005000 clr r0 ; .. 075330: 000207 return ; .. ; 075332: 075366 .word 075366 ; vz 075334: 000144 .word 000144 ; d. ; 075336: 076055 .word 076055 ; -| 075340: 075502 .word 075502 ; B{ 075342: 000012 .word 000012 ; .. 075344: 076055 .word 076055 ; -| 075346: 075375 .word 075375 ; }z 075350: 000006 .word 000006 ; .. ; 075352: 075411 .word 075411 ; .{ 075354: 000002 .word 000002 ; .. ; 075356: 075437 .word 075437 ; .{ 075360: 000002 .word 000002 ; .. ; 075362: 075453 .word 075453 ; +{ 075364: 000002 .word 000002 ; .. ; 075366: 060002 .word 060002 ; .` 075370: 044525 .word 044525 ; UI 075372: 037524 000400 .word 037524, 000400 ; T?.. 075376: 052440 .word 052440 ; U 075400: 064556 .word 064556 ; ni 075402: 020164 030074 .word 020164, 030074 ; t <0 075406: 037476 002000 052440 .word 037476, 002000, 052440 ; >?.. U 075414: 062563 062440 .word 062563, 062440 ; se e 075420: 064570 072163 .word 064570, 072163 ; xist 075424: 064440 .word 064440 ; i 075426: 063156 .word 063156 ; nf 075430: 020157 .word 020157 ; o 075432: 047074 037476 002400 .word 047074, 037476, 002400 ; ?.. 075440: 046040 060557 .word 046040, 060557 ; Loa 075444: 020144 .word 020144 ; d 075446: 047074 037476 003000 .word 047074, 037476, 003000 ; ?.. 075454: 041440 .word 041440 ; C 075456: 067157 064564 .word 067157, 064564 ; onti 075462: 020156 .word 020156 ; n 075464: 063151 .word 063151 ; if 075466: 064440 .word 064440 ; i 075470: 060556 .word 060556 ; na 075472: 061543 .word 061543 ; cc 075474: 036040 037116 .word 036040, 037116 ; 075500: 000077 .word 000077 ; ?. 075502: 010007 .word 010007 ; .. 075504: 062523 .word 062523 ; Se 075506: 020162 037443 .word 020162, 037443 ; r #? 075512: 000000 .word 000000 ; .. 075514: 043060 072155 .word 043060, 072155 ; 0Fmt 075520: 041040 .word 041040 ; B 075522: 063545 .word 063545 ; eg 075524: 000400 .word 000400 ; .. 075526: 043060 072155 .word 043060, 072155 ; 0Fmt 075532: 042040 .word 042040 ; D 075534: 067157 001000 .word 067157, 001000 ; on.. 075540: 022460 051040 .word 022460, 051040 ; 0% R 075544: 073145 .word 073145 ; ev 075546: 046040 047102 .word 046040, 047102 ; LBN 075552: 000163 030005 .word 000163, 030005 ; s..0 075556: 020045 .word 020045 ; % 075560: 060502 .word 060502 ; Ba 075562: 020144 .word 020144 ; d 075564: 041122 .word 041122 ; RB 075566: 071516 .word 071516 ; Ns 075570: 003400 .word 003400 ; .. 075572: 022460 041040 .word 022460, 041040 ; 0% B 075576: 062141 .word 062141 ; ad 075600: 042040 .word 042040 ; D 075602: 047102 000163 .word 047102, 000163 ; BNs. 075606: 030011 .word 030011 ; .0 075610: 020045 .word 020045 ; % 075612: 060502 .word 060502 ; Ba 075614: 020144 .word 020144 ; d 075616: 041130 .word 041130 ; XB 075620: 071516 .word 071516 ; Ns 075622: 005400 .word 005400 ; .. 075624: 022460 071040 .word 022460, 071040 ; 0% r 075630: 072145 .word 072145 ; et 075632: 071151 .word 071151 ; ir 075634: 062145 .word 062145 ; ed 075636: 010000 .word 010000 ; .. 075640: 050060 071541 .word 050060, 071541 ; 0Pas 075644: 020163 020045 .word 020163, 020045 ; s % 075650: 062502 .word 062502 ; Be 075652: 000147 .word 000147 ; g. 075654: 040014 .word 040014 ; .@ 075656: 041506 .word 041506 ; FC 075660: 020124 .word 020124 ; T 075662: 071565 000144 .word 071565, 000144 ; usd. 075666: 040015 .word 040015 ; .@ 075670: 041506 .word 041506 ; FC 075672: 020124 .word 020124 ; T 075674: 067556 020164 .word 067556, 020164 ; not 075700: 071565 000144 .word 071565, 000144 ; usd. 075704: 050007 .word 050007 ; .P 075706: 062516 .word 062516 ; Ne 075710: 020170 067165 .word 020170, 067165 ; x un 075714: 000164 050010 .word 000164, 050010 ; t..P 075720: 041104 .word 041104 ; DB 075722: 020116 .word 020116 ; N 075724: 066546 000164 .word 066546, 000164 ; fmt. 075730: 050011 .word 050011 ; .P 075732: 041506 .word 041506 ; FC 075734: 020124 .word 020124 ; T 075736: 067543 000160 .word 067543, 000160 ; cop. 075742: 050012 .word 050012 ; .P 075744: 042523 .word 042523 ; SE 075746: 045505 .word 045505 ; EK 075750: 005400 .word 005400 ; .. 075752: 051120 .word 051120 ; PR 075754: 052103 .word 052103 ; CT 075756: 061440 .word 061440 ; c 075760: 070157 .word 070157 ; op 075762: 006000 .word 006000 ; .. 075764: 046120 047102 .word 046120, 047102 ; PLBN 075770: 063040 .word 063040 ; f 075772: 072155 .word 072155 ; mt 075774: 006400 .word 006400 ; .. 075776: 043120 .word 043120 ; PF 076000: 052103 .word 052103 ; CT 076002: 073440 .word 073440 ; w 076004: 000162 050017 .word 000162, 050017 ; r..P 076010: 041522 .word 041522 ; RC 076012: 020124 .word 020124 ; T 076014: 071167 010000 .word 071167, 010000 ; wr.. 076020: 051120 .word 051120 ; PR 076022: 052103 .word 052103 ; CT 076024: 063040 .word 063040 ; f 076026: 066165 000154 050021 .word 066165, 000154, 050021 ; ull..P 076034: 041506 .word 041506 ; FC 076036: 020124 .word 020124 ; T 076040: 062162 011000 .word 062162, 011000 ; rd.. 076044: 043120 .word 043120 ; PF 076046: 052103 .word 052103 ; CT 076050: 067040 074145 .word 067040, 074145 ; nex 076054: 012400 .word 012400 ; .. 076056: 044520 .word 044520 ; PI 076060: 066154 071040 .word 066154, 071040 ; ll r 076064: 070163 013000 .word 070163, 013000 ; sp.. 076070: 051120 .word 051120 ; PR 076072: 067165 062040 060551 .word 067165, 062040, 060551 ; un dia 076100: 000147 .word 000147 ; g. ;-------------------------------------------------------- ; ; File: C library routines ; ; 076102: 004567 000772 jsr r5,csv$ ; w.z. 076106: 004767 000056 call 76170 ; w... 076112: 000411 br 76136 ; .. ; 076114: 004567 000760 jsr r5,csv$ ; w.p. 076120: 004767 000044 call 76170 ; w.$. 076124: 000413 br 76154 ; .. ; 076126: 004567 000746 jsr r5,csv$ ; w.f. 076132: 004767 000046 call 76204 ; w.&. 076136: 010400 mov r4,r0 ; .. 076140: 010501 mov r5,r1 ; A. 076142: 000404 br 76154 ; .. ; 076144: 004567 000730 jsr r5,csv$ ; w.X. 076150: 004767 000030 call 76204 ; w... 076154: 005726 tst (sp)+ ; V. 076156: 012602 mov (sp)+,r2 ; .. 076160: 012603 mov (sp)+,r3 ; .. 076162: 012604 mov (sp)+,r4 ; .. 076164: 012605 mov (sp)+,r5 ; .. 076166: 000207 return ; .. ; 076170: 010504 mov r5,r4 ; D. 076172: 062704 000010 add #10,r4 ; De.. 076176: 011403 mov (r4),r3 ; .. 076200: 006702 sxt r2 ; B. 076202: 000405 br 76216 ; .. ; 076204: 010504 mov r5,r4 ; D. 076206: 062704 000012 add #12,r4 ; De.. 076212: 011403 mov (r4),r3 ; .. 076214: 014402 mov -(r4),r2 ; .. 076216: 012746 000041 mov #41,-(sp) ; f.!. 076222: 014401 mov -(r4),r1 ; .. 076224: 014400 mov -(r4),r0 ; .. 076226: 100005 bpl 76242 ; .. 076230: 005400 neg r0 ; .. 076232: 005401 neg r1 ; .. 076234: 005600 sbc r0 ; .. 076236: 062716 040000 add #40000,(sp) ; Ne.@ 076242: 005004 clr r4 ; .. 076244: 005005 clr r5 ; .. 076246: 005702 tst r2 ; B. 076250: 100404 bmi 76262 ; .. 076252: 003010 bgt 76274 ; .. 076254: 005703 tst r3 ; C. 076256: 001444 beq 76370 ; $. 076260: 000405 br 76274 ; .. ; 076262: 062716 100000 add #100000,(sp) ; Ne.. 076266: 005402 neg r2 ; .. 076270: 005403 neg r3 ; .. 076272: 005602 sbc r2 ; .. 076274: 020002 cmp r0,r2 ; . 076276: 002403 blt 76306 ; .. 076300: 003007 bgt 76320 ; .. 076302: 020103 cmp r1,r3 ; C 076304: 103005 bcc 76320 ; .. 076306: 010004 mov r0,r4 ; .. 076310: 010105 mov r1,r5 ; E. 076312: 005000 clr r0 ; .. 076314: 005001 clr r1 ; .. 076316: 000424 br 76370 ; .. ; 076320: 006105 rol r5 ; E. 076322: 006104 rol r4 ; D. 076324: 020204 cmp r2,r4 ; . 076326: 101007 bhi 76346 ; .. 076330: 001002 bne 76336 ; .. 076332: 020305 cmp r3,r5 ; E 076334: 101004 bhi 76346 ; .. 076336: 160305 sub r3,r5 ; E` 076340: 005604 sbc r4 ; .. 076342: 160204 sub r2,r4 ; .` 076344: 000261 sec ; 1. 076346: 006101 rol r1 ; A. 076350: 006100 rol r0 ; @. 076352: 105316 decb (sp) ; N. 076354: 003361 bgt 76320 ; q. 076356: 006316 asl (sp) ; N. 076360: 102003 bvc 76370 ; .. 076362: 005400 neg r0 ; .. 076364: 005401 neg r1 ; .. 076366: 005600 sbc r0 ; .. 076370: 005726 tst (sp)+ ; V. 076372: 100003 bpl 76402 ; .. 076374: 005404 neg r4 ; .. 076376: 005405 neg r5 ; .. 076400: 005604 sbc r4 ; .. 076402: 000207 return ; .. ; 076404: 005466 000004 neg 4(sp) ; 6... 076410: 016600 000002 mov 2(sp),r0 ; .... 076414: 016601 000004 mov 4(sp),r1 ; .... 076420: 100003 bpl 76430 ; .. 076422: 000404 br 76434 ; .. ; 076424: 006300 asl r0 ; @. 076426: 005301 dec r1 ; A. 076430: 003375 bgt 76424 ; }. 076432: 000207 return ; .. ; 076434: 006200 asr r0 ; .. 076436: 005201 inc r1 ; .. 076440: 002775 blt 76434 ; }. 076442: 000207 return ; .. ; 076444: 010246 mov r2,-(sp) ; &. 076446: 010346 mov r3,-(sp) ; f. 076450: 010446 mov r4,-(sp) ; &. 076452: 005002 clr r2 ; .. 076454: 016601 000010 mov 10(sp),r1 ; .... 076460: 100002 bpl 76466 ; .. 076462: 005401 neg r1 ; .. 076464: 005102 com r2 ; B. 076466: 016603 000012 mov 12(sp),r3 ; .... 076472: 100002 bpl 76500 ; .. 076474: 005403 neg r3 ; .. 076476: 005102 com r2 ; B. 076500: 005000 clr r0 ; .. 076502: 012704 000020 mov #20,r4 ; D... 076506: 032701 000001 bit #1,r1 ; A5.. 076512: 001401 beq 76516 ; .. 076514: 060300 add r3,r0 ; @` 076516: 000241 clc ; !. 076520: 006000 ror r0 ; .. 076522: 006001 ror r1 ; .. 076524: 005304 dec r4 ; D. 076526: 001367 bne 76506 ; w. 076530: 005702 tst r2 ; B. 076532: 001401 beq 76536 ; .. 076534: 005401 neg r1 ; .. 076536: 010100 mov r1,r0 ; @. 076540: 012604 mov (sp)+,r4 ; .. 076542: 012603 mov (sp)+,r3 ; .. 076544: 012602 mov (sp)+,r2 ; .. 076546: 000207 return ; .. ; 076550: 004767 000012 call 76566 ; w... 076554: 000207 return ; .. ; 076556: 004767 000004 call 76566 ; w... 076562: 010100 mov r1,r0 ; @. 076564: 000207 return ; .. ; 076566: 010446 mov r4,-(sp) ; &. 076570: 010346 mov r3,-(sp) ; f. 076572: 010246 mov r2,-(sp) ; &. 076574: 005004 clr r4 ; .. 076576: 016602 000014 mov 14(sp),r2 ; .... 076602: 003004 bgt 76614 ; .. 076604: 001442 beq 76712 ; ". 076606: 012704 100000 mov #100000,r4 ; D... 076612: 005402 neg r2 ; .. 076614: 016600 000012 mov 12(sp),r0 ; .... 076620: 003004 bgt 76632 ; .. 076622: 001433 beq 76712 ; .. 076624: 062704 040000 add #40000,r4 ; De.@ 076630: 005400 neg r0 ; .. 076632: 012703 000010 mov #10,r3 ; C... 076636: 005001 clr r1 ; .. 076640: 000300 swab r0 ; @. 076642: 001402 beq 76650 ; .. 076644: 006303 asl r3 ; C. 076646: 000300 swab r0 ; @. 076650: 006300 asl r0 ; @. 076652: 006101 rol r1 ; A. 076654: 001405 beq 76670 ; .. 076656: 005200 inc r0 ; .. 076660: 160201 sub r2,r1 ; .` 076662: 103002 bcc 76670 ; .. 076664: 060201 add r2,r1 ; .` 076666: 005300 dec r0 ; @. 076670: 005303 dec r3 ; C. 076672: 003366 bgt 76650 ; v. 076674: 006304 asl r4 ; D. 076676: 102001 bvc 76702 ; .. 076700: 005400 neg r0 ; .. 076702: 005704 tst r4 ; D. 076704: 100004 bpl 76716 ; .. 076706: 005401 neg r1 ; .. 076710: 000402 br 76716 ; .. ; 076712: 005000 clr r0 ; .. 076714: 005001 clr r1 ; .. 076716: 012602 mov (sp)+,r2 ; .. 076720: 012603 mov (sp)+,r3 ; .. 076722: 012604 mov (sp)+,r4 ; .. 076724: 000207 return ; .. ; 076726: 004567 000146 jsr r5,csv$ ; w.f. 076732: 005046 clr -(sp) ; &. 076734: 016503 000010 mov 10(r5),r3 ; C... 076740: 006702 sxt r2 ; B. 076742: 100015 bpl 76776 ; .. 076744: 000410 br 76766 ; .. ; 076746: 004567 000126 jsr r5,csv$ ; w.V. 076752: 005046 clr -(sp) ; &. 076754: 016503 000012 mov 12(r5),r3 ; C... 076760: 016502 000010 mov 10(r5),r2 ; B... 076764: 100004 bpl 76776 ; .. 076766: 005402 neg r2 ; .. 076770: 005403 neg r3 ; .. 076772: 005602 sbc r2 ; .. 076774: 005116 com (sp) ; N. 076776: 005765 000004 tst 4(r5) ; u... 077002: 100007 bpl 77022 ; .. 077004: 005465 000004 neg 4(r5) ; 5... 077010: 005465 000006 neg 6(r5) ; 5... 077014: 005665 000004 sbc 4(r5) ; 5... 077020: 005116 com (sp) ; N. 077022: 012704 000040 mov #40,r4 ; D. . 077026: 005000 clr r0 ; .. 077030: 005001 clr r1 ; .. 077032: 006301 asl r1 ; A. 077034: 006100 rol r0 ; @. 077036: 006303 asl r3 ; C. 077040: 006102 rol r2 ; B. 077042: 103005 bcc 77056 ; .. 077044: 066501 000006 add 6(r5),r1 ; Am.. 077050: 005500 adc r0 ; @. 077052: 066500 000004 add 4(r5),r0 ; @m.. 077056: 005304 dec r4 ; D. 077060: 001364 bne 77032 ; t. 077062: 005726 tst (sp)+ ; V. 077064: 001403 beq 77074 ; .. 077066: 005400 neg r0 ; .. 077070: 005401 neg r1 ; .. 077072: 005600 sbc r0 ; .. 077074: 000167 000014 jmp cret$ ; w... ; csv$:: 077100: 010500 mov r5,r0 ; @. 077102: 010605 mov sp,r5 ; .. 077104: 010446 mov r4,-(sp) ; &. 077106: 010346 mov r3,-(sp) ; f. 077110: 010246 mov r2,-(sp) ; &. 077112: 004710 call (r0) ; H. cret$:: 077114: 010502 mov r5,r2 ; B. 077116: 014204 mov -(r2),r4 ; .. 077120: 014203 mov -(r2),r3 ; .. 077122: 014202 mov -(r2),r2 ; .. 077124: 010506 mov r5,sp ; F. 077126: 012605 mov (sp)+,r5 ; .. 077130: 000207 return ; .. ; ; switch jump tables form do_mscp and do_dup ; swmscp:: 077132: 002544 .word op$abo ; d. 077134: 002602 .word op$gcs ; .. 077136: 002614 .word op$gus ; .. 077140: 002640 .word op$scc ; . 077142: 002716 .word op$default ; N. 077144: 002716 .word op$default ; N. 077146: 002716 .word op$default ; N. 077150: 002556 .word op$avl ; n. 077152: 002626 .word op$onl ; .. 077154: 002652 .word op$suc ; *. 077156: 002676 .word op$dab ; >. 077160: 002716 .word op$default ; N. 077162: 002716 .word op$default ; N. 077164: 002716 .word op$default ; N. 077166: 002716 .word op$default ; N. 077170: 002664 .word op$acc ; 4. 077172: 002676 .word op$ccd ; >. 077174: 002664 .word op$ers ; 4. 077176: 002676 .word op$flu ; >. 077200: 002716 .word op$default ; N. 077202: 002716 .word op$default ; N. 077204: 002716 .word op$default ; N. 077206: 002716 .word op$default ; N. 077210: 002570 .word op$new ; x. 077212: 002716 .word op$default ; N. 077214: 002716 .word op$default ; N. 077216: 002716 .word op$default ; N. 077220: 002716 .word op$default ; N. 077222: 002716 .word op$default ; N. 077224: 002716 .word op$default ; N. 077226: 002716 .word op$default ; N. 077230: 002664 .word op$cmd ; 4. 077232: 002664 .word op$rd ; 4. 077234: 002664 .word op$wr ; 4. 077236: 002716 .word op$default ; N. 077240: 002716 .word op$default ; N. 077242: 002716 .word op$default ; N. 077244: 002716 .word op$default ; N. 077246: 002716 .word op$default ; N. 077250: 002716 .word op$default ; N. 077252: 002716 .word op$default ; N. 077254: 002716 .word op$default ; N. 077256: 002716 .word op$default ; N. 077260: 002716 .word op$default ; N. 077262: 002716 .word op$default ; N. 077264: 002716 .word op$default ; N. 077266: 002570 .word op$fmt ; x. swdup:: 077270: 003060 .word op$ap ; 0. 077272: 003046 .word op$elp ; &. 077274: 003034 .word op$esp ; .. 077276: 003104 .word op$gds ; D. 077300: 003072 .word op$rcv ; :. 077302: 003022 .word op$snd ; .. ; ; Tables ; 077304: 022544 040063 rd.media:: .word 022544, 040063 077310: 022545 100041 rx33.media:: .word 022544, 040063 077314: 022545 100062 rx50.media:: .word 022544, 040063 rwoptbl:: 077320: 000020 .word op$acc ; .. 077322: 000022 .word op$ers ; .. 077324: 000041 .word op$rd ; !. 077326: 000042 .word op$wr ; ". 077330: 177777 .word 177777 077332: 055032 .word setrdcmd 077334: 055056 .word setwrcmd 077336: 054706 .word setrwcmd 077340: 054760 .word setrwcmd 077342: 055102 .word setcmdcmd jtblfmt1:: 077344: 071062 .word 071062 077346: 071104 .word 071104 077350: 071204 .word 071204 077352: 071134 .word 071134 jtblfmt2:: 077354: 070772 .word 070772 077354: 071026 .word 071026 077360: 071026 .word 071026 077362: 071206 .word 071206 077364: 071026 .word 071026 077366: 071230 .word 071230 ; ; Unused & Checksum ; 077370: 177777 177777 .word 177777, 177777 077374: 177777 177777 .word 177777, 177777 077400: 177777 177777 .word 177777, 177777 077404: 177777 177777 .word 177777, 177777 077410: 177777 177777 .word 177777, 177777 077414: 177777 177777 .word 177777, 177777 077420: 177777 177777 .word 177777, 177777 077424: 177777 177777 .word 177777, 177777 077430: 177777 177777 .word 177777, 177777 077434: 177777 177777 .word 177777, 177777 077440: 177777 177777 .word 177777, 177777 077444: 177777 177777 .word 177777, 177777 077450: 177777 177777 .word 177777, 177777 077454: 177777 177777 .word 177777, 177777 077460: 177777 177777 .word 177777, 177777 077464: 177777 177777 .word 177777, 177777 077470: 177777 177777 .word 177777, 177777 077474: 177777 177777 .word 177777, 177777 077500: 177777 177777 .word 177777, 177777 077504: 177777 177777 .word 177777, 177777 077510: 177777 177777 .word 177777, 177777 077514: 177777 177777 .word 177777, 177777 077520: 177777 177777 .word 177777, 177777 077524: 177777 177777 .word 177777, 177777 077530: 177777 177777 .word 177777, 177777 077534: 177777 177777 .word 177777, 177777 077540: 177777 177777 .word 177777, 177777 077544: 177777 177777 .word 177777, 177777 077550: 177777 177777 .word 177777, 177777 077554: 177777 177777 .word 177777, 177777 077560: 177777 177777 .word 177777, 177777 077564: 177777 177777 .word 177777, 177777 077570: 177777 177777 .word 177777, 177777 077574: 177777 177777 .word 177777, 177777 077600: 177777 177777 .word 177777, 177777 077604: 177777 177777 .word 177777, 177777 077610: 177777 177777 .word 177777, 177777 077614: 177777 177777 .word 177777, 177777 077620: 177777 177777 .word 177777, 177777 077624: 177777 177777 .word 177777, 177777 077630: 177777 177777 .word 177777, 177777 077634: 177777 177777 .word 177777, 177777 077640: 177777 177777 .word 177777, 177777 077644: 177777 177777 .word 177777, 177777 077650: 177777 177777 .word 177777, 177777 077654: 177777 177777 .word 177777, 177777 077660: 177777 177777 .word 177777, 177777 077664: 177777 177777 .word 177777, 177777 077670: 177777 177777 .word 177777, 177777 077674: 177777 177777 .word 177777, 177777 077700: 177777 177777 .word 177777, 177777 077704: 177777 177777 .word 177777, 177777 077710: 177777 177777 .word 177777, 177777 077714: 177777 177777 .word 177777, 177777 077720: 177777 177777 .word 177777, 177777 077724: 177777 177777 .word 177777, 177777 077730: 177777 177777 .word 177777, 177777 077734: 177777 177777 .word 177777, 177777 077740: 177777 177777 .word 177777, 177777 077744: 177777 177777 .word 177777, 177777 077750: 177777 177777 .word 177777, 177777 077754: 177777 177777 .word 177777, 177777 077760: 177777 177777 .word 177777, 177777 077764: 177777 177777 .word 177777, 177777 077770: 177777 177777 .word 177777, 177777 077774: 177777 001227 .word 177777, 001227