OSGBPG return PTR# even when not provided

ivanizag · Sep 9, 2021 · 872c9f9 · 872c9f9
1 parent 55a219f
commit 872c9f9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/osGbpb.go b/osGbpb.go
@@ -93,7 +93,8 @@ func execOSGBPB(env *environment) {
 		// Update the file control block
 		env.mem.pokeDoubleWord(controlBlock+cbDataAddress, address+transferred)
 		env.mem.pokeDoubleWord(controlBlock+cbDataCount, count-transferred)
-		env.mem.pokeDoubleWord(controlBlock+cbDataOffset, offset+transferred)
+		pos, _ := file.Seek(0, io.SeekCurrent)
+		env.mem.pokeDoubleWord(controlBlock+cbDataOffset, uint32(pos))
 
 		newP := p
 		if count-transferred != 0 {