|
DataMuseum.dkPresents historical artifacts from the history of: Commodore CBM-900 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Commodore CBM-900 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2802 (0xaf2)
Types: TextFile
Notes: UNIX file
Names: »ssave.s«
└─⟦f27320a65⟧ Bits:30001972 Commodore 900 hard disk image with partial source code
└─⟦926b8033d⟧ UNIX V7 Filesystem
└─ ⟦this⟧ »u/demo/slide/ssave.s«
/ module name ssave .shri .globl main_ main_: .strn L2: .byte 119 .byte 0 .shri .strn L4: .byte 67 .byte 97 .byte 110 .byte 39 .byte 116 .byte 32 .byte 111 .byte 112 .byte 101 .byte 110 .byte 32 .byte 102 .byte 105 .byte 108 .byte 101 .byte 10 .byte 0 .shri .strn L9: .byte 67 .byte 97 .byte 110 .byte 39 .byte 116 .byte 32 .byte 97 .byte 108 .byte 108 .byte 111 .byte 99 .byte 97 .byte 116 .byte 101 .byte 58 .byte 37 .byte 100 .byte 10 .byte 0 .shri .strn L11: .byte 67 .byte 97 .byte 110 .byte 39 .byte 116 .byte 32 .byte 97 .byte 108 .byte 108 .byte 111 .byte 99 .byte 97 .byte 116 .byte 101 .byte 32 .byte 108 .byte 97 .byte 115 .byte 116 .byte 10 .byte 0 .shri sub r15, $48 ldm (rr14), r10, $4 ld r13, r15 ldl rr0, $L2 pushl (rr14), rr0 ldl rr10, L10001+6(r13) inc r11, $4 ldl L10001+6(r13), rr10 pushl (rr14), (rr10) calr fopen_ inc r15, $8 ldl L10001-40(r13), rr0 testl rr0 jr ne, L3 ldl rr0, $L4 pushl (rr14), rr0 calr printf_ inc r15, $4 calr exit_ L3: subl rr0, rr0 jr un, L20001 L6: ldl rr0, L10001-36(r13) addl rr0, $1 L20001: ldl L10001-36(r13), rr0 ldl rr0, L10001-36(r13) cpl rr0, $6 jr ge, L5 ld r11, L10001-34(r13) sla r11, $2 ld r1, r13 add r1, r11 ld r12, r1 push (rr14), $16384 calr malloc_ inc r15, $2 ldl L10001-28(r12), rr0 testl rr0 jr ne, L6 pushl (rr14), L10001-36(r13) ldl rr0, $L9 pushl (rr14), rr0 calr printf_ inc r15, $8 calr exit_ jr un, L6 L5: push (rr14), $7168 calr malloc_ inc r15, $2 ldl L10001-32(r13), rr0 testl rr0 jr ne, L10 ldl rr0, $L11 pushl (rr14), rr0 calr printf_ inc r15, $4 calr exit_ L10: ldl rr0, $973078528 ldl L10001-4(r13), rr0 subl rr0, rr0 jr un, L20002 L13: ldl rr0, L10001-36(r13) addl rr0, $1 L20002: ldl L10001-36(r13), rr0 ldl rr0, L10001-36(r13) cpl rr0, $4 jr ge, L12 push (rr14), $8192 pushl (rr14), L10001-4(r13) ld r12, L10001-34(r13) sla r12, $2 ld r1, r13 add r1, r12 ld r12, r1 pushl (rr14), L10001-28(r12) calr ldir_ inc r15, $10 ldl rr0, L10001-4(r13) add r1, $16384 ldl L10001-4(r13), rr0 jr un, L13 L12: ldl rr0, $989855744 ldl L10001-4(r13), rr0 ldl rr0, $4 jr un, L20003 L16: ldl rr0, L10001-36(r13) addl rr0, $1 L20003: ldl L10001-36(r13), rr0 ldl rr0, L10001-36(r13) cpl rr0, $6 jr ge, L15 push (rr14), $8192 pushl (rr14), L10001-4(r13) ld r12, L10001-34(r13) sla r12, $2 ld r1, r13 add r1, r12 ld r12, r1 pushl (rr14), L10001-28(r12) calr ldir_ inc r15, $10 ldl rr0, L10001-4(r13) add r1, $16384 ldl L10001-4(r13), rr0 jr un, L16 L15: push (rr14), $3584 pushl (rr14), L10001-4(r13) pushl (rr14), L10001-32(r13) calr ldir_ inc r15, $10 ldm r10, (rr14), $4 add r15, $48 ret un / autos 48 r10|r11|r12 L10001=SS|48 L10001=SS|48