collapseos/blk/503

BEGIN,
    A 0xff LDrn, (HL) A LDrr, ( default mask )
    L1 BSET ( loop2 ) @GET, @PUT,
    0x20 CPn, JRZ, L4 FWR ( escapechar )
	( not an escape char, just apply the mask and write )
    (HL) ANDr, (HL) A LDrr,
    HL INCss,
JR, AGAIN,
L4 FSET ( escapechar, adjust by setting (hl) to 0x7f )
7 (HL) RESbr, JR, L1 BWR ( loop2 )
L2 FSET ( maybeerror, was it an error? )
A ORr, JRZ, L1 BWR ( loop2, not an error )
L3 FSET ( error )
C A LDrr, ( error code from @GET/@PUT )
A 0x1a LDrn, ( @ERROR ) 0x28 RSTn, RET,
recipes/trs80: move RECV program to blkfs 2020-05-06 12:15:56 +10:00			`BEGIN,`
			`A 0xff LDrn, (HL) A LDrr, ( default mask )`
			`L1 BSET ( loop2 ) @GET, @PUT,`
			`0x20 CPn, JRZ, L4 FWR ( escapechar )`
			`( not an escape char, just apply the mask and write )`
			`(HL) ANDr, (HL) A LDrr,`
			`HL INCss,`
			`JR, AGAIN,`
			`L4 FSET ( escapechar, adjust by setting (hl) to 0x7f )`
			`7 (HL) RESbr, JR, L1 BWR ( loop2 )`
			`L2 FSET ( maybeerror, was it an error? )`
			`A ORr, JRZ, L1 BWR ( loop2, not an error )`
			`L3 FSET ( error )`
			`C A LDrr, ( error code from @GET/@PUT )`
			`A 0x1a LDrn, ( @ERROR ) 0x28 RSTn, RET,`
VE: add 't' This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues. 2020-06-12 08:12:01 +10:00