Dies ist das Listung des ROS-Ausleseprogramms, welches die ersten $4000 Worte vom APL ROS ins RWS ab Adresse $1000 kopiert. Man kann dann anschließend diesen Bereich ($1000-$8FFF) mit Hilfe des DCP in eine Datei auf Diskette schreiben und sie mit KERM5110 (auf dem 5110) oder IBMDISK (um 5110-Disketten auf einem PC zu lesen/schreiben) auf einen PC übertragen.
Start: 0B00 1104 CTRL 1, #$04 ; select APL ROS 0B02 D301 000B LWI R3, #$000B ; address of low-byte of R5 0B06 8500 LBI R5, #0 ; source ROS address ... 0B08 4138 PUTB 1, (R3) ; ... high-byte 0B0A 8500 LBI R5, #0 0B0C 4138 PUTB 1, (R3) ; ... low-byte 0B0E 0004 NOP 0B10 D701 1000 LWI R7, #$1000 ; destination RWS address 0B14 D801 4000 LWI R8, #$4000 ; word count _loop: 0B18 011E GETB R1, 1 ; get high-byte 0B1A 0004 NOP 0B1C 016E GETB R6, 1 ; get low-byte 0B1E 061D MLH R6, R1 ; make one word 0B20 5671 MOVE (R7)+, R6 ; write to RWS 0B22 F800 SUB R8, #1 ; decrement word count 0B24 018C MHL R1, R8 0B26 0186 OR R1, R8 0B28 C103 SZ R1 ; zero? 0B2A F013 BRA _loop ; no 0B2C 0000 HALTUm die verbleibenden Teile auszulesen, muß man die Adressen 0B06 und 0B0A für die ROS-Adresse abändern, und evtl. die Wortzahl bei 0B16, und das Programm/DCP solange ausführen, bis jeder Teil des ROS auf Diskette gespeichert worden ist.