code:dump - ikarishinjieva/unixV6-code-analyze-chs GitHub Wiki
1350
1351 /* ------------------------- */
1352 .globl dump
1353 dump:
1355 bne dump
1356
1357 / save regs r0,r1,r2,r3,r4,r5,r6,KIA6
1358 / starting at abs location 4
1359
1360 mov r0,4
1361 mov $6,r0
1362 mov r1,(r0)+
1363 mov r2,(r0)+
1364 mov r3,(r0)+
1365 mov r4,(r0)+
1366 mov r5,(r0)+
1367 mov sp,(r0)+
1368 mov KISA6,(r0)+
1369
1370 / dump all of core (ie to first mt error)
1371 / onto mag tape. (9 track or 7 track ’binary’)
1372
1373 mov $MTC,r0
1374 mov $60004,(r0)+
1375 clr 2(r0)
1376 1:
1377 mov $-512.,(r0)
1378 inc -(r0)
1379 2:
1380 tstb (r0)
1381 bge 2b
1382 tst (r0)+
1383 bge 1b
1384 reset
1385
1386 / end of file and loop
1387
1388 mov $60007,-(r0)
1389 br .
1390